Excel VBA將多列復制到另一張表到一列

Question

我需要將多列從一張紙復制到另一列的紙上的幫助。 下面是一個例子。 謝謝！

Adam      Sammy        Roy
111       444          777
222       555          888
333       666          999


Adam
111
222
333
Sammy
444
555
666
Roy
777
888
999

Answer 1

我猜你可以用這些代碼做到這一點。

Sub one_column()
Dim numCol As Integer
numCol = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column
Dim i As Integer
Dim lastRow As Integer
For i = 1 To numCol
    lastRow = Sheet1.Cells(Rows.Count, i).End(xlUp).Row
    Sheet1.Range(Sheet1.Cells(1, i), Sheet1.Cells(lastRow, i)).Copy
    firstBlank = Sheet2.Cells(Rows.Count, 1).End(3).Row
    If firstBlank = 1 Then
    Sheet2.Cells(firstBlank, 1).PasteSpecial
    Else
    Sheet2.Cells(firstBlank + 1, 1).PasteSpecial
    End If

Next

End Sub