Последние записи
- Реакция на клик по ячейке в Excel
- Как в Excel сделать так, чтобы при нажатии на ячейку менялось цифровое значение?
- Как эффективнее обрабатывать большой файл по кускам?
- Событие по изменению Edit.Text
- Как сделать картинку адаптивной, само растягивающейся к размеру монитора, чтобы размер баннера изменялся сам — подстраивался под дизайн сайта
- Прозрачность тайлсета в TPNGImage
- Как сделать VBA макрос в excel
- Поиск по столбцу 1-ого не нулевого значения (формулой в Microsoft Office Excel)
- Простановка единиц в ячейки под объектами (Microsoft Office Excel)
- Расчет затраченного времени между определенным рабочим временем (формулой в Microsoft Office Excel)
9th
Ноя
Макрос транспонирования
Posted by obzor under VBA
Макрос транспонирования — как сделать для большего количества строк, больше 260?
Как сделать в этом макросе чтоб он переименовывал лист куда делается транспонирование ? Переименовать лист в «Данные».
Можно так:
Sub TRP()
Workbooks.Add xlWBATWorksheet
ActiveSheet.Name = "Ваше_Имя_Листа"
ThisWorkbook.Sheets("Таблица").Range("A4:AH5003").Copy
ActiveSheet.[A1].PasteSpecial Transpose:=True
ActiveWorkbook.SaveAs "Ваше_Имя_Книги.xlsx"
End Sub
Измените формат на «.xlsm» и используйте более старшие версии Excel, где столбцов 16384.
Похожие статьи
за 2 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru |
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Python
- Форум PHP
- Delphi форумы
- Форумы C (Си)
- Java
- Форум WinApi
- Форум низкоуровневое программирование
- Форум VBA
- Форум Excel
- Форум OpenGL
- Форум DirectX
- Форум CAD
- Форум по операционным системам
- Форум по администрированию серверов и VDS А ещё
- Обсуждаем софт на форуме программистов