Разбить столбец на несколько частей

[Ivan savelev]

Подскажите пожалуйста как разбить колонку на несколько частей :
Пример есть 1 столбец 21000 ячеек
нужно получить 30 столбцов по 700 ячеек.

Заранее благодарен всем откликнувшимся

[Hugo121]

Буквально пару дней назад была тема. Только не помню, на каком форуме, и там сразу 3 колонки переносили. Автор кода вероятно nilem, если не путаю - в коде автор не подписался...
Но файл я нашёл, переделал на одну колонку.

[SAS888]

Это было на нашем форуме. А именно - здесь.

[Hugo121]

Извиняюсь
Автор кода - SAS888

[N-ice]

добрый день!

..а как разделить список
столбец 1
1
2
3
4
5
6
.
.
.
n
в такой вариант
столбец 1 столбец 2 столбец 3
1 2 3
4 5 6
... n
(и с возможностью задать кол-во столбцов)?
Спасибо.

[SAS888]

Пусть исходные данные находятся в столбце "A" на листе "Было".
Результат поместим на лист "Стало":

Sub DivData()
    Dim i As Long, j As Long: Application.ScreenUpdating = False
    Sheets("Было").Activate: Sheets("Стало").Cells.ClearContents
    j = InputBox("Введите количество столбцов", "Ввод")
    If j < 1 Then Exit Sub
    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step j
        Cells(i, 1).Resize(j).Copy
        Sheets("Стало").Cells(Rows.Count, 1).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
    Next
End Sub