回复：在Excel VBA中复制和粘贴

Question

为什么在Excel VBA中复制单元格，形状等时， ActiveSheet.Cells(i,j).Paste无效？

相反，我有

Cells(i,j).Select
ActiveSheet.Paste

哪个有效，但是为什么呢？

Answer 1

因为.Paste已被应用到SheetObject（因为你已经写正确： ActiveSheet.Paste ）

在MSDN上检查该方法。 必须通过以下方式使用它：

Worksheets("Sheet1").Range("C1:C5").Copy 
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")

或更简短地说：

Cells(j,i).Copy Destination:=Cells(y,z)

或使用PasteSpecial方法。 可以将其应用于范围对象：

With sheet
    .Range("C1:C5").Copy 
    .Range("D1:D5").PasteSpecial Operation:=xlPasteSpecialOperationAdd 
End With

Answer 2

例如，您不必告诉它要粘贴，如果您为i和j设置了变量，则可以使用它

Range("A1").Copy Cells(i, j)

您甚至根本无法复制，例如：

Cells(i, j)=Range("A1")