在 VBA 中逐行运行答案

【问题标题】：running row by line in VBA在 VBA 中逐行运行
【发布时间】：2018-01-08 10:21:54
【问题描述】：

我需要编写一个代码来插入公式以在该行中添加一些单元格，然后将值传递到所选列的下一行。提前感谢您的帮助。

For cont = 1 To 125
    Range("BA1").Select

    Cells(cont, 53).Value = Range("BA2").Select
    ActiveCell.FormulaR1C1 = _
    "=RC[-1]+RC[-2]+RC[-3]+RC[-4]+RC[-5]+RC[-6]+RC[-7]+RC[-8]+RC[-9]+RC[-10]+RC[-11]+RC[-12]+RC[-13]+RC[-14]+RC[-15]+RC[-16]+RC[-17]+RC[-18]+RC[-19]+RC[-20]+RC[-21]+RC[-22]+RC[-23]+RC[-24]+RC[-25]+RC[-26]+RC[-28]+RC[-30]+RC[-32]+RC[-34]+RC[-36]+RC[-38]+RC[-39]+RC[-40]+RC[-41]+RC[-42]"


    Next cont

【问题讨论】：

为什么要使用 VBA？
@ScottCraner NICE，请发帖为“ANSWER”
@ShaiRado 恭喜你达到 20k！

标签： vba excel loops excel-formula

【解决方案1】：

不需要循环，就用这一行；

Range("BA2:BA125").FormulaR1C1 = "=SUM(RC[-42]:RC[-1])"

【讨论】：