我在将Indirect
公式输入我的代码时遇到了困难。我知道我可以使用FormulaR1C1
,但是会在单元格中创建一个公式,该公式相当静态,并且在运行代码后添加行时不太友好。我希望我的代码类似于此单元格内公式=SUM(L99:INDIRECT("R[-1]C",0))
,它位于单元格L106
中。
下面是我的代码,也是我尝试创建上述公式的尝试。谢谢!
Dim s1 As Excel.Worksheet: Set s1 = ActiveWorkbook.Worksheets(ThisWorkbook.Sheets.Count)
With s1
'What the current formula is
.Cells(rwCnt, abRng.Column).Offset(4, 6).FormulaR1C1 = "=sum(R[0]C[-5],R[0]C[-2])"
.Cells(rwCnt, abRng.Column).Offset(11, 6).FormulaR1C1 = "=Sum(R[-7]C[0]:R[-1]C[0])"
'My attempt
.Cells(rwCnt, abRng.Column).Offset(11, 6).Formula = "=sum(" & .Cells(rwCnt, abRng.Column).Offset(4, 6) _
& ":INDIRECT(""R[-1]C"", 0))"
End With
[.Cells(rwCnt, abRng.Column).Offset(4, 6)
我认为这将返回单元格中的值,您需要它的地址]