使用VBA在Active Cell中进行特殊粘贴

我想从Worksheet 2复制一个表（范围A1到AV3）到工作表1中的活动单元格

我现在的代码是：

Private Sub CommandButton1_Click() Worksheets("Sheet2").Range("A1:AV3").Copy Worksheets("Sheet1).ActiveCell.PasteSpecial Paste:=xlPasteFormats Worksheets("Sheet1").ActiveCell.PasteSpecial Paste:=xlPasteValues End Sub 

谁能帮我解决这个问题？ 我想每次点击button，它都会复制到任何活动的单元格。

Answer 1

假设您的ActiveCell在“Sheet1”中，并且命令button也在“Sheet1”中，则无需在ActiveCell之前添加Worksheets("Sheet1") ，只需使用类似下面的代码：

 Private Sub CommandButton1_Click() Worksheets("Sheet2").Range("A1:AV3").Copy ActiveCell.PasteSpecial xlPasteFormats ActiveCell.PasteSpecial xlPasteValues End Sub