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，我怎麼可能讓它粘貼到另一列？ 我想嘗試結束（xlLeft）。列，但不能讓它工作

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 

末次