使用VBA公式

Question

我在我的工作表中迭代所有行。从底部到顶部穿越。我想对行中的前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)

Answer 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