回復：在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")