有时候在Excel中,需要循环的算每一列的值,而这一列的值是某几列的求和或者某种运算后的结果,比如如下的C4=C3+B4
可以用一个宏来实现,宏代码如下:
Dim i As Integer
For i = 10 To 252
ActiveSheet.Hyperlinks.Add anchor:=Range("G" & i)
Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=R[-1]C+RC[-1]"
Next
一般可以先通过录录制一个宏来查看这个宏的代码,然后进行改进。录制的过程,其实只需要新建一个宏,然后点击开始录制,然后直接在Excel上进行相关的操作,它就已经在录制了。
经过实验,如果想实现某一列等于前面二列的值相加,如下图:
可以用如下代码:
Dim i As Integer
For i = 10 To 252
ActiveSheet.Hyperlinks.Add anchor:=Range("G" & i)
Range("G" & i).Select
ActiveCell.FormulaR1C1 = "=RC[-1]+RC[-2]"
Next