将一个长列拆分为excel中的多个较小列

Question

如果您有超过7000个项目的列表，那么在15个项目的组中复制粘贴的最佳方法是什么？如果有人有比以下更好的方法，请告诉我，我正在使用excel 2003

我列出了从A1列到A7000的7000个项目。我想将它分成15个不同的列（B，C，D ......等）。换句话说，我如何制作列：

B1:B15 include items A1:A15. 

C1:C15 include items A16:A30. 

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

感谢任何帮助。谢谢！

Answer 1

这样的事情应该有效。有人可能会使用更优化的代码。

戈登

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

Answer 2

你可以创建一个Excel宏，它会自动满足需要，即使它有lac的记录。