使用 VBA 公式答案

【问题标题】：Working with VBA formulas使用 VBA 公式
【发布时间】：2018-04-11 02:26:52
【问题描述】：

我正在遍历工作表中的所有行。从底部到顶部遍历。我想对行中的前 12 个值求和，并尝试使用偏移量 R[]C[] 表示法作为相对位置，但这种情况会使 VBA 崩溃

我想添加公式并尝试过：

For row = ActiveSheets.Range("A" & rows.count).End(xlUp).row To 2 Step -1
    ActiveSheets.Range("BB" & row).Formula = "=SUM(R[0]C[-12]:R[0]C[-1])"
Next row

BB 列的公式如下所示： =SUM(AP3:BA3)

【问题讨论】：

问题/问题是什么？
@Jim - 请定义“崩溃 VBA”。
问题是它崩溃了。崩溃是指它“停止运行”。我必须终止 excel 实例并重新开始
什么是ActiveSheets？为什么最后是s？（ActiveSheet 会起作用——尽管使用它很少是好的 VBA）。你真的应该使用Option Explicit，而你不应该使用On Error Resume Next（不是上面的代码片段使用这个，但我怀疑你可能会使用这个代码）。
您也不需要循环来添加公式，您可以一次将其添加到整个范围。

标签： excel vba

【解决方案1】：

试试，

with activesheet
    with .range(.cells(2, "A"), .cells(.rows.count, "A").end(xlup))
        .offset(0, 53).formula = "=sum(ap2:ba2)"
    end with
end with

【讨论】：