excel - 使用vba在excel中设置求和公式

Question

正在处理 Excel 宏，我试图添加上面单元格中的单元格值来计算总值。这就是我的数据

在这里，我想为每列添加上面的单元格值来计算总和。为了实现这一点，我编写了一个宏，如下所示。

For cl = 2 To 5    
    Worksheets(5).Cells(4, cl).Formula = "=SUM(B4:B6)"        
Next cl

这应该将公式设置为一行中的每个单元格，直到 5 列。 但它在一行中的所有单元格上设置相同的公式，它应该根据列进行更改。如何为相应列的每个单元格设置求和公式？

Answer 1

不确定我是否完全理解你的代码。您似乎正在写入第 4 行，但您还想对第 4 行到第 6 行求和。这将创建循环引用。

假设公式被写入第 3 行。您将需要使用 R1C1 引用样式使单元格相对于当前单元格求和。

了解要使用的引用的技巧是:

• 获取一个新工作表，在单元格 B3 中输入 =SUM(B4:B6) 并复制到右侧。
• 然后点击文件 > 选项 > 公式并选择R1C1 引用样式。
• 现在检查工作表中的公式。您将看到:=SUM(R[1]C:R[3]C)

这就是您在宏中所需要的。

For cl = 2 To 5    
    Worksheets(5).Cells(3, cl).FormulaR1C1 = "=SUM(R[1]C:R[3]C)"    
Next cl