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