하나의 긴 열을 여러 작은 열로 나누어 Excel

Question

7000 개가 넘는 항목이있는 경우 15 개 항목 그룹으로 붙여 넣기를 복사하는 가장 좋은 방법은 무엇입니까? 누구든지 다음보다 나은 방법이 있다면 제게 알려주십시오. Excel 2003을 사용 중입니다.

A1부터 A7000까지 7000 개의 항목이 길게 나열되어 있습니다.

B1:B15 include items A1:A15. 

C1:C15 include items A16:A30. 

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

이 어떤 도움에 감사드립니다 : 나는 즉 15 그룹에서 다른 열 (등 B, C, D ...)로이 분할 싶습니다, 어떻게 열을 만들 수 있죠. 고맙습니다!

Answer 1

Excel 매크로를 만들 수 있습니다. 자동으로 필요에 따라 lac의 레코드가 있습니다.

Answer 2

이와 비슷한 기능이 작동합니다. 누군가는보다 최적화 된 코드를 사용하여 방문 할 수 있습니다. VBA를 사용

고든

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