代码改变世界

操作Excel的宏

2013-12-27 21:37  左眼微笑右眼泪  阅读(257)  评论(0)  编辑  收藏  举报

      有时候在Excel中，需要循环的算每一列的值，而这一列的值是某几列的求和或者某种运算后的结果，比如如下的C4=C3+B4clip_image001

     可以用一个宏来实现，宏代码如下：

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上进行相关的操作，它就已经在录制了。

      经过实验，如果想实现某一列等于前面二列的值相加，如下图：

clip_image002

      可以用如下代码：

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