求教大神

回复 zipall :吧主，首先这些公式都在一行中，我选中一个单元格，激活再回车，宏如下：
Sub Macro1()
Range("KO1").Select
ActiveCell.FormulaR1C1 = "=RC[-290]+RC[-289]+RC[-284]+RC[-283]+RC[-282]"
Range("KP1").Select
ActiveCell.FormulaR1C1 = "=RC[-291]+RC[-290]+RC[-285]+RC[-284]+RC[-282]"
Range("KQ1").Select
ActiveCell.FormulaR1C1 = "=RC[-292]+RC[-291]+RC[-286]+RC[-285]+RC[-282]"
Range("KR1").Select
ActiveCell.FormulaR1C1 = "=RC[-293]+RC[-292]+RC[-287]+RC[-286]+RC[-282]"
Range("KR2").Select
End Sub

跪求大神写for循环，谢谢！

先激活A1然后enter，再激活B1再enter，请高手写个循环，谢谢！