Excel VBA將列復制到另一列

Question

這是代碼：

Public Sub mysub()
Dim colA As Integer, colB As Integer
Dim rowA As Integer, rowB As Integer
colA = 3
colB = 19
rowA = 7
rowB = 7
lastA = Cells(Rows.Count, colA).End(xlUp).Row
For x = rowA To lastA
    Data = Cells(x, colA)
    Cells(rowB, colB) = Data
    rowB = rowB + 1
Next x

End Sub

它工作正常，但會不斷重寫colB，我如何讓它粘貼在另一列上？ 我想嘗試End（xlLeft）.column但不能讓它工作

Answer 1

據我了解，您正在嘗試將數據粘貼到特定行中的第一個空列中。 如果是這樣，那么您可以使用以下代碼：

Public Sub mysub()
Dim colA As Integer, colB As Integer
Dim rowA As Integer, rowB As Integer
colA = 3
rowA = 7
rowB = 7
lastA = Cells(Rows.Count, colA).End(xlUp).Row
For x = rowA To lastA
    Data = Cells(x, colA)

    'check for first empty column in the x row
    colB = Cells(x, Columns.Count).End(xlToLeft).Column + 1

    Cells(rowB, colB) = Data
    rowB = rowB + 1
Next x

結束子