在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宏，它會自動滿足全部需求，即使有記錄的地方也是如此。