Разбиение на колонки

[zenner]

Добрый день! Подскажите пожалуйста как в Excel можно разбить одну длинную колонку на несколько как в Word ? СПАСИБО!
Безымянный.jpg

[SAS888]

Ваш вопрос очень "размыт".
Давайте пример того, что есть и того, что нужно получить.

[zenner]

До и После.rar

нужно всего лишь разбить по колонкам , чтобы небыла одна длинная колонка а чтобы разбилось на 5 колонок.

[SAS888]

Можно выполнить макрос:

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False: i = 1
    Do While Cells(57, i) <> ""
        Range(Cells(57, i), Cells(Rows.Count, i).End(xlUp)).Cut Cells(1, i + 2): i = i + 2
    Loop
End Sub

Пример во вложении.

[zenner]

Я попробовал Ваш макрос но он разбивает на очень много колонок а мне нужно чтобы колонок было только 5 так как я сначала сортирую все номера от А до Я , потом с помощью макроса разбиваю на 5 колонок и потом печатаю и нужно чтобы на листах нумерация шла нормально

[IgorGO]

варианты на тему...

[zenner]

Сообщение от IgorGO

варианты на тему...

Я увеличил список в первой колонке и не все номера разбиваются
Что-то не до конца работает.
Пример SAS888 мне очень понравился но как его переделать чтобы страницы не распределялись в право а в низ.Конечный итог должен выглядеть так:Finish.rar

[IgorGO]

кажется, последняя формула была записана в 50-й строке. скопируйте ее и рамножте вниз сколько надо, столько и будет

[zenner]

Сообщение от IgorGO

кажется, последняя формула была записана в 50-й строке. скопируйте ее и рамножте вниз сколько надо, столько и будет

Спасибо попробую!

А вообще, можно переделать макрос SAS888 чтобы он разбивал на 5 колонок на листе?

[IgorGO]

я не могу править макрос SAS888 - это его интелектуальная собственность.

пробуйте это

Sub FirstColumnTo5others()
  Dim i As Long, how As Long
  how = WorksheetFunction.RoundUp(Cells(Rows.Count, 1).End(xlUp).Row / 5, 0)
  For i = 0 To 4
    Range(Cells(i * how + 1, 1), Cells((i + 1) * how, 1)).Copy Destination:=Cells(1, i * 2 + 4)
  Next
End Sub

отмеченные красным числа 1 и 4 поменяйте на любые удобные для вас значения начального ряда и колонки, куда должны перемещаться данные из первой колонки.