作业帮excel for循环函数求和,求VBA计算代码!
来源：学生作业帮 编辑：拍题作业网作业帮 分类：综合作业 时间：2024/05/06 00:54:01
excel for循环函数求和,求VBA计算代码!
以部门相同为条件,分别求出1月份、2月份、3月份各部门“一档”、“二档”的小计之和,并填充在相对应的红色区域处!
以部门相同为条件,分别求出1月份、2月份、3月份各部门“一档”、“二档”的小计之和,并填充在相对应的红色区域处!
可以直接用分类汇总解决
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 Su
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 Su