如何将求和函数输出到单元格中

Question

我正在编写一个代码，将新员工添加到员工列表中，并更新这些员工下方的所有求和函数。我在这个网站上搜索了几天，似乎找不到任何遇到同样问题的人。

在新行中添加员工姓名和小时数后，我需要底部的小计将新行包含在总小时数的计算中。

我已经使用 for...next 循环向下循环到该行，其中 x 发生变化。

我已经把它输出到我的工作表中了。这在逻辑上是正确的，但实际上并不奏效。这只是为了说明我正在尝试做什么。

=SUM(范围(Cells(5, 17), Cells(x, 17)))

最后，我只想在小计单元格中显示类似的内容... =SUM(Q5:Q18)

非常感谢！

Answer 1

试试下面的代码：

Sub sample()

   dim x as Integer

    For x = 5 To 17
        Cells(x, 18) = WorksheetFunction.Sum(Range(Cells(5, 17), Cells(x, 17)))
    Next
End Sub

或

如果您想将公式作为字符串发送，您可以使用以下内容。

Sub sample()

   dim x as Integer

    For x = 5 To 17
        Cells(x, 18) = "=Sum(Q5:Q" & x & ")"
    Next
End Sub