-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

実際には、フルレンジの行を指定する必要があります。したがって、Excelは貼り付ける場所を知るため、

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

である必要があります。