乘以-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知道粘贴到哪里。