乘以-1 VBA

Question

我有下面的代碼，其中有一個錯誤1004。請有人建議爲什麼會發生這種情況？此代碼的目的是將期望範圍乘以-1。

Range("A2").Value = -1 
    Dim Lrow As Long 
    Lrow = ActiveWorkbook.Worksheets("RING").Columns(1).Find("%,FPROJECT_ID,TPROJECTS,NPORTFOLIO,NNON_PORTFOLIO").Row 
    Range("A2").Copy 
    Range("BJ:CI" & Lrow).PasteSpecial Paste:=xlPasteAll, Operation:=xlMultiply, _ 
    SkipBlanks:=False, Transpose:=False 
    Application.CutCopyMode = False 

Answer 1

您實際上需要指定整個範圍的行。所以它必須是

Range("BJ" & Lrow & ":CI" & Lrow).PasteSpecial Paste:=xlPasteAll,  Operation:=xlMultiply, _ 
SkipBlanks:=False, Transpose:=False 

因此Excel知道粘貼到哪裏。