Excel - макрос для переміщення даних з рядків у стовпці

Проблема

Я маю дані в одному стовпці і хотів би перенести його в рядок для кожного з трьох рядків з просторовим роздільником, наприклад; Колонка даних змінюється по кількості даних кожного разу.

 ABCDEFGHIJ тощо 

В

 ABCDEFGHIJ тощо 

Рішення

Припустимо, що дані знаходяться в A2 вниз, а A1 має заголовки стовпців.

Спробуйте цей макрос

• Результати будуть у стовпцях C-E

 Sub-тест () Dim rng As Range, m As Integer, c Як колонки діапазону ("c: E"). xlDown)) Встановіть c = Діапазон ("a2") У той час як c "" MsgBox c.Address Range (c, c.Offset (m - 1, 0)). End (xlUp) .Offset (1, 0) .PasteSpecial Transpose: = True Set c = c.Offset (m, 0) Sub End End 

Завдяки Venkat1926 для цього чайові.