В Excel строки в столбец?

Question

[Василий Шешунов]

Здравствуйте!
Подскажите, как можно было бы автоматизировано расположить даренные вот так?

Answer 1

[Adamos]

XLS -> CSV, регулярка, CSV -> XLS (лучше бы -> SQL, конечно).

Answer 2

[Дмитрий]

https://4analytics.ru/chto-vajno-znat-o/3-sposoba-...

Answer 3

[Никита Дворец]

Вариант: Макрос VBA Excel
Sub massiv()

With Worksheets("Transpose")

Dim arr1() As Variant
Dim arr2() As Variant
Dim arr3() As Variant

Dim i, j, n As Integer


n = 0
For i = 2 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
ReDim Preserve arr1(n)
arr1(n) = .Cells(i, 2).Value
n = n + 1
Next i

n = 0
For j = 2 To 5 Step 1
.Range("C" & j).Value = arr1(n)
n = n + 1
Next j

' ============================================
n = 0
For i = 3 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
ReDim Preserve arr2(n)
arr2(n) = .Cells(i, 2).Value
n = n + 1
Next i

n = 0
For j = 2 To 5 Step 1
.Range("D" & j).Value = arr2(n)
n = n + 1
Next j

' ============================================
n = 0
For i = 4 To Cells(Rows.Count, 2).End(xlUp).Row Step 3
ReDim Preserve arr3(n)
arr3(n) = .Cells(i, 2).Value
n = n + 1
Next i

n = 0
For j = 2 To 5 Step 1
.Range("E" & j).Value = arr3(n)
n = n + 1
Next j

End With
End Sub

Answer 4

[anoriyuriy]

1. Решение формулами
1.1 В C3, допустим, создадим служебный столбец. Вводим 2 - это номер первой значимой строки. В C4 вводим
=C3+3 - это шаг наших данных.
Тянем вниз с запасом.

1.2 Создаем область вывода: столбцы Результат1, 2, 3:
Вводим в первую ячейку области вывода формулу: =ДВССЫЛ("A"&$C3+СТОЛБЕЦ()-5)
Формула написана с привязкой к задействованным на листе диапазонам, поэтому, если у вас по другому - меняйте ссылки и константы в формулах

1.3 Протягивайте формулу вправо и вниз

Готово!

2. Решение с помощью Power Query - помощнее и универсальнее
2.1 Выделить диапазон, перейти на вкладку Данные, выбрать пункт Из таблицы/диапазона

Видим такое

Рекомендую отменить автоматический шаг и нажать крестик у шага Измененный тип в области справа

2.2 Перейти на вкладку Добавление столбца, нажать стрелочку на кнопке Столбец индекса, выбрать От 0. Получаем вот такое

2.3 На той же вкладке раскрываем кнопку Стандартные и выбираем Остаток от деления Вводим параметр 3.

Нажимаем OK
2.4 Переходим на вкладку Преобразование и, выделив столбец Остаток от деления нажимаем кнопку Столбец сведения. В качестве столбца значений выбираем исходный, функция - Не агрегировать.

2.5 Выделить три появившихся столбца, и нажать кнопку Заполнить - Вверх

2.6 Правая кнопка мыши по последнему столбцу - Удалить дубликаты

2.7 Дальше выделить первый столбец (кликом по заголовку), на вкладке Главная нажать кнопку Удалить столбцы или Delete на клавиатуре

Нажать Закрыть и загрузить

Готово!