Excel VBA Специальная вставка значения

Question

мне нужно изменить на этом ниже код, чтобы скопировать данные в другую книгу в качестве значения только

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