Excel VBA：如何对具有可变行的Sum公式进行编码以放入工作表

Question

我想将Sum公式放在表格的C到H列中，但是我想出的代码不起作用。 情况如下：

1. 该表的第一行的编号有所不同（第一列始终为B）
2. 公式中第一行的数量有所不同，但始终是表的第三行
3. 应该包含该公式的行数有所不同，但是在宏中，我相对于表的第一行计算了该数
4. 公式中的最后一行的数量有所不同，但始终比应包含公式的行的数量少1

为了更具体，希望更清楚，让我们说：

1. 表第一行的数量= startnum
2. 那么公式中第一行的编号= startnum + 3
3. 应该包含公式= startnum + x的行号
4. 然后公式中的最后一行的编号= startnum + x-1

为了找出我的代码是什么，我记录了一个宏。 基于此，我测试了以下代码：

With Worksheets("A&N")
    .Range("C16:H16").Formula = "=SUM(C7:C15)"
End With

这很好用，但是正如我所描述的，数字16、7和15实际上是可变的。

我尝试将这段代码转换为我的情况，并编写了以下代码：

Set rngOpmaak = Range(rngTabel.Cells(startnum + x, 2), rngTabel.Cells(startnum + x, 7)) 
rngOpmaak.Formula = "=SUM(“C” & startnum + 3 & “:C” & startnum + x -1)"

当我运行宏时，我收到一条消息，提示第二行不能编译。 我在该站点上看到的解决方案对我来说看起来就像我的代码一样，所以我不理解我的问题所在。

我也尝试过：

rngOpmaak.FormulaR1C1 = "=SUM(R" & startnum + 3 & "C:R" & startnum + x -1 & "C)"

但是对于startnum=2 （表的第一行），公式将=SUM(C$3:C$5)变为=SUM(H$3:H$5) （不带引号），而不是=SUM(C4:C6)变为=SUM(H4:H6) 。

谁能帮助我解决代码行问题？ 所有建议，不胜感激。

Answer 1

您需要根据自己的情况进行调整，因为我没有使用与您相同的变量（最好使用更具表现力的变量）：

Sub test()
    Dim output As Range, dataStart As Integer, dataEnd As Integer, rowsOfData As Integer, nCols As Integer
    ' Row 1: Table headers
    ' Row 2: 1st row of data
    ' Row 3: more data
    ' Row 4: more data
    ' Row 5: last row of data
    ' Row 6: Summary row (location of formula)
    dataStart = 2
    dataEnd = 5
    rowsOfData = 1 + dataEnd - dataStart
    nCols = 4
    Set output = Range(Cells(dataEnd + 1, 1), Cells(dataEnd + 1, nCols))
    output.FormulaR1C1 = "=SUM(R[-" & rowsOfData & "]C:R[-1]C)"
End Sub

所生成的公式使用相对引用，因为它相对于当前单元格有偏移量（ [] ），而不是绝对R / C值，例如
R2C:R5C -> A$2:A$5 不管在A列中的哪个位置输入公式
如果在A6中输入了公式，则 R[-4]C:R[-1] -> A2:A5 。