excel for循环函数求和，求VBA计算代码！！！

求助：以部门相同为条件，分别求出1月份、2月份、3月份各部门“一档”、“二档”的小计之和，并填充在相对应的红色区域处！

---

首先我要说 你这样的数据 汇总 不需要 使用VBA 这么麻烦 你只要 使用公式、分类汇总、数据透孙肢视表等 就能够计算得则晌世到……
但是 要知道 你的 各个月份的 一档、二档数据 在什么地方 怎么分配的！
你给谨粗出的资料 信息不足 谁也无法给你答案！

---

可以直接用分类汇总解决

 

VBA代码如下

Sub SubTotal()
Dim k%
k = 4
For i = 4 To [e65536].End(xlUp).Row
    If Cells(i, 6) = "小计" Then
       宏没 For j = 10 To 20
            If j Mod 3 <> 0 Then _
                Cells(i, j) = Application.Sum(Range(Cells(k, j), Cells(i - 1, j)))
        Next
    没绝逗    k = i + 1
    枯卖Next
Next
End Sub

---