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类型（仅粘贴值）

2 个答案: