vba excel 2010将数据复制到另一个空列工作表

大家能帮帮我吗？数据总是A列，工作表1，我想复制并粘贴到工作表2上的空列。第一次数据进入colunm A表2，第二次（我放在表1 A列的其他数据）进入colunm B表2，依此类推。我找到了这段代码，但把数据放在A列，第2页

    Sub Insert_Data()

Sheets("Tratamento").Range("A1").Copy Destination:=Sheets("Dados").Range("A1")
For i = 2 To Sheets("Tratamento").Cells(Rows.Count, 1).End(xlUp).Row
Sheets("Tratamento").Range("A" & i).Copy Destination:=Sheets("Dados").Range("A" & Sheets("Dados").Cells(Rows.Count, 1).End(xlUp).Row + 1)
Next i

End Sub

就这个怎么样

Sub Insert_Data()

Sheets("Tratamento").Range("A1").Copy Destination:=Sheets("Dados").Range("A1")
For I = 2 To Sheets("Tratamento").Cells(Rows.Count, 1).End(xlUp).Row

'  Made change on this line
Sheets("Tratamento").Range("A" & I).Copy Destination:=Sheets("Dados").Range("A" & I)

Next I

End Sub

---

还是这太简单了？也许我不明白你的问题？

以下命令应该可以完成这项工作：

Select Case Sheets("Dados").Range("A1") = "" 

Case True 'paste in col A if A1 is empty

    Sheets("Tratamento").Range("A:A").Copy Sheets("Dados").Range("A1") 

Case False ' paste to next col

    Sheets("Tratamento").Range("A:A").Copy Sheets("Dados").Range("XFD1").End(xlToLeft).Offset(0, 1) 

---

这样做的目的是从第二张工作表的末尾开始，并选择最后一列右侧的列，该列带有一个值。这是假设您不会跳过任何列，并且页面上没有其他数据

嗨，它坏了。尝试解释：如果表2上的列A已经有数据，那么在列B上复制，如果列A和B有数据，那么在列C上复制。我不知道如何验证列A、B、C是否为空以接收值。这正是我想要的。非常感谢你。