ActiveSheet.Paste 类型（仅粘贴值）

Question

我有这个简单的代码，我只想将值从 WoorkBook1 复制到 Workbook2，只有值，因为 Workbook2 有特定的格式。

Sub Test()
   Workbooks("Workbook1.xlsx").Activate
   Range("B2:B7").Select
   Selection.Copy
   Workbooks("Workbook2.xlsx").Activate
   Range("B5:B10").Select
   ActiveSheet.Paste
End Sub

Tnx4all

Answer 1

使用 PasteSpecial 和 xlPasteValues 选项

Sub Test()
   Workbooks("Workbook1.xlsx").Activate
   Range("B2:B7").Select
   Selection.Copy
   Workbooks("Workbook2.xlsx").Activate
   Range("B5:B10").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Answer 2

更有效的方法：

Sub Test()

Workbooks("Workbook1.xlsx").Activate
Range("B2:B7").Copy
Workbooks("Workbook2.xlsx").Activate
Range("B5:B10").PasteSpecial Paste:=xlPasteValues

End Sub

ActiveSheet.Paste 类型（仅粘贴值）

ActiveSheet.Paste type (Paste Only values)

copy

copy-paste