我需要帮助来创建 Excel VBA 宏。我有一个包含 4 个工作表的工作簿。工作表编号 1、2 和 3 中的列“A”填充有数据。我需要将这些数据复制到工作表 4 列“A”中。我已经通过使用此代码完成了此操作,但它不起作用(它仅通过替换..来复制数据)。
示例(我需要执行以下操作)
(Sheet 1 Col. A)
1
2
3
4
(Sheet 2 Col. A)
5
6
(Sheet 3 Col. A)
7
8
9
需要将以上所有内容复制到表 4 Col. A 中,如下所示
1
2
3
4
5
6
7
8
9
所以,我写了如下代码
Sub CopyColumnToWorkbook()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Worksheets("Sheet1").Columns("A")
Set targetColumn = Worksheets("Sheet4").Columns("A")
sourceColumn.Copy Destination:=targetColumn
End Sub
Sub CopyColumnToWorkbook2()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Worksheets("Sheet2").Columns("A")
Set targetColumn = Worksheets("Sheet4").Columns("A")
sourceColumn.Copy Destination:=targetColumn
End Sub
Sub CopyColumnToWorkbook2()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Worksheets("Sheet3").Columns("A")
Set targetColumn = Worksheets("Sheet4").Columns("A")
sourceColumn.Copy Destination:=targetColumn
End Sub
上面的编码不能按我的需要工作。有人请帮我做上面的例子。
非常感谢。