Разделить одну длинную колонку на несколько меньших столбцов в excel

Question

Каков наилучший способ скопировать пасту в группы по 15 предметов, если у вас есть список из более чем 7000 предметов? Если у кого-то есть лучший метод, чем следующий, пожалуйста, дайте мне знать, я использую excel 2003

У меня длинный список из 7000 предметов из столбца A1 в A7000. Я хотел бы разделить это на различные столбцы (B, C, D ... и т.д.) в группах 15. Другими словами, как мне сделать столбец:

B1:B15 include items A1:A15. 

C1:C15 include items A16:A30. 

D1:D15 include items A31:A45 etc... 

Любая помощь приветствуется. Спасибо!

Answer 1

Вы можете создать макрос Excel, и он автоматически сделает все возможное, даже если есть записи lac.

Answer 2

Нечто подобное должно работать. Кто-то может получить более оптимизированный код.

Гордон

Sub split_data() 
Dim lastRow As Long, copynumRow As Long 
Dim cRow As Long, cCol As Long 

Application.ScreenUpdating = False 

copynumRow = 15 
cCol = 2 
cRow = 1 + copynumRow 

With ActiveSheet 
    lastRow = .Range("A" & .Rows.Count).End(xlUp).Row 

    Do While cRow <= lastRow 
     .Range("A" & cRow).Resize(copynumRow, 1).Cut _ 
      Destination:=.Cells(1, cCol).Resize(copynumRow, 1) 

     cRow = cRow + copynumRow 
     cCol = cCol + 1 
    Loop 
End With 

Application.ScreenUpdating = True 

End Sub