我有两个工作簿(源和目标),我想将源工作簿中的 A 列复制到目标工作簿中的 A 列。我在上面使用了这段代码。
Sub CopyColumnToWorkbook()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Workbooks("Source").Worksheets("Sheet1").Columns("A")
Set targetColumn = Workbooks("Target").Worksheets("Sheet1").Columns("A")
sourceColumn.Copy Destination:=targetColumn
End Sub
但是源工作表包含带有公式的单元格。我只想复制单元格值,而不是公式。
我应该对上述代码进行哪些更改?
Sub BOM()
Dim sourceColumn As Range, targetColumn As Range
Set sourceColumn = Workbooks("MASTER").Worksheets("Sheet1").Columns("C")
Set targetColumn = Workbooks("BOM").Worksheets("Sheet1").Columns("A")
sourceColumn.Copy Destination:=targetColumn
Set sourceColumn = Workbooks("MASTER").Worksheets("Sheet1").Columns("D")
Set targetColumn = Workbooks("BOM").Worksheets("Sheet1").Columns("B")
sourceColumn.Copy Destination:=targetColumn
Set sourceColumn = Workbooks("MASTER").Worksheets("Sheet1").Columns("E")
Set targetColumn = Workbooks("BOM").Worksheets("Sheet1").Columns("C")
sourceColumn.Copy Destination:=targetColumn
End Sub
这是我用来将单元格从一个工作簿复制到另一个工作簿的代码。它在运行 Windows 7 Excel 2010 的 PC 上运行良好,但我想在使用 XP Excel 2007 的 PC 上运行相同的代码。
我Runtime error: Subscript out of range.
在运行宏时得到,当我单击调试按钮时,它指向第三行代码。