VBA-保持单元格公式的完整性

问题描述 投票:0回答:1

我在将Indirect公式输入我的代码时遇到了困难。我知道我可以使用FormulaR1C1,但是会在单元格中创建一个公式,该公式相当静态,并且在运行代码后添加行时不太友好。我希望我的代码类似于此单元格内公式=SUM(L99:INDIRECT("R[-1]C",0)),它位于单元格L106中。

Formula Screenshot

下面是我的代码,也是我尝试创建上述公式的尝试。谢谢!

   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

vba excel-formula excel-r1c1-notation
1个回答
0
投票

[.Cells(rwCnt, abRng.Column).Offset(4, 6)我认为这将返回单元格中的值,您需要它的地址]

© www.soinside.com 2019 - 2024. All rights reserved.