Excel VBA粘贴特殊值

我需要编辑下面的代码将数据复制到另一个工作簿仅作为值

Sub CopyColumnToWorkbook() Dim sourceColumn As Range, targetColumn As Range Set sourceColumn = Workbooks("Source.xls").Worksheets(2).Columns("A:E") Set targetColumn = Workbooks("Target.xls").Worksheets(1).Columns("A") sourceColumn.Copy Destination:=targetColumn End Sub 

Answer 1

试试这个代码：

 Sub CopyColumnToWorkbook() Dim sourceColumn As Range, targetColumn As Range Set sourceColumn = Workbooks("Source.xls").Worksheets(2).Columns("A:E") Set targetColumn = Workbooks("Target.xls").Worksheets(1).Columns("A") sourceColumn.Copy targetColumn.PasteSpecial xlPasteValues Application.CutCopyMode = False End Sub