在VBA中逐行运行

Question

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

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

Answer 1

不需要循环，只需使用这一行；

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