Макрос транспонування (для тих, хто часто транспонирует)

У попередніх статтях ми з вами вже розглядали питання про те, як в Excel перетворити рядок в стовпець, тобто транспонувати дані. Так як на практиці дана необхідність може зустрічається досить часто, ми розглянули створення шаблону для транспонування даних з рядка в стовпець з використанням функції ТРАНСП (ТРАНСП - Автоматичне транспонування даних в Excel).

У цій статті ми розглянемо абстрактну, більш узагальнену задачу транспонування. Цього разу ми вдамося до використання макросів.

Припустимо у нас є дані на одному аркуші книги для транспонування і ми хочемо перевести всі рядки в стовпці (тобто виконати транспонування). Якщо ми просто виділимо весь лист, то при спробі транспонування через спеціальну вставку (як в першій статті) ми отримаємо ПОМИЛКУ. Помилка з`явиться через те, що лист Excel немає квадратний, тобто рядків в ньому набагато більше ніж стовпців. Звідси ми отримали обмеження для даних які можуть бути транспонувати: ширина і довжина таблиці даних для транспонування не може перевищувати ширини листа Excel, а саме 16 384 осередки для MS Excel 2010 року.

Відео: Функція ТРАНСП в MS Excel

Але для такого великого діапазону даних операція транспонування буде проходити вкрай довго (хоча, звичайно, залежить від комп`ютера).

Щоб здійснити операцію постійно, то ми маємо уявлення про розмір таблиці даних для транспонування і тому, для прискорення операції ми можемо скоротити діапазон. У нашому прикладі до A1: X1000. Запишемо вищевикладене макросом:

Макрос транспонування (для тих, хто часто транспонирует)

Відео: Макрос Об`єднання осередків (Кускова Е.В. Група 6314)

Макрос транспонировании

Макрос копіює діапазон A1: X1000 на активному аркуші, створює новий лист в книзі і транспонирует дані вже в новий лист.

Тепер Ви можете змінити діапазон на свій (необхідний) і використовувати Макрос в роботі.

Відео: Урок 24: Застосування в розрахунках функцій транспонування, ДВССИЛ, зміщені і ПОИСКПОЗ

він же текстом:

Sub Макрос1 () Range ( "A1: X1000"). SelectSelection.CopySheets.Add After: = Sheets (Sheets.Count) Range ( "A1"). SelectSelection.PasteSpecial Paste: = xlPasteValues, Operation: = xlNone, SkipBlanks: = False, Transpose: = TrueEnd Sub

Дуже сподіваємося, що наша стаття допомогла Вам у вирішенні Вашої проблеми. Будемо вдячні, якщо Ви натиснете +1 і / або Мені подобається внизу даної статті або поділіться з друзями за допомогою кнопок розташованих нижче.