Excel：vba实现隔列求和

要求：假设各月第二行的字段无规律，请统计1－3月预算、实际的小计数。

实现结果即高亮部分如下：(求每列和在上一篇)

第一种方法用vba实现
代码如下：

Sub 隔列求和2()
Dim x%, y%
budget = 0
real = 0
For x = 3 To 17 '行
    '实际列 因为是隔列，所以设置步长step为2，意思就是2,4,6的和
    For y = 2 To 7 Step 2
        budget = budget + Cells(x, y).Value
    Next y
    Cells(x, 8) = budget '将得到的每一行预算和依次放入第八列
    Cells(x, 8).Interior.Color = vbYellow  '高亮为黄色
    budget = 0
    
    For y = 3 To 7 Step 2 '预算列 设置步长step为2，意思就是3,5,7列的和
        real = real + Cells(x, y).Value
    Next y
    Cells(x, 9) = real '将得到的每一行实际和依次放入第九列
    Cells(x, 9).Interior.Color = vbGreen   '高亮为绿色
    real = 0
Next x
End Sub

第二种方法(Excel函数实现隔列求和)：
1.选择范围，因为这里要算的"实际"在所选的范围里面

2.按F4锁定范围，当下拉填充时不变的量就可以锁定

3.要算什么就选择所在的单元格，然后锁定，这里不一定要D1；F1，H1，J1也行

4.然后再次锁定

5.下拉填充时，求和数据会变，所以不锁定C2:J2

6.下拉填充所有数据