求助！！怎样快速汇总

ybs7588

如果用技巧上个动画

blackcafe

这个表的结构好象不对啊  

zjcat35

1. Sub a()
   
2.     Dim i As Integer, j As Integer, k As Integer
   
3.         For j = 1 To 9
   
4.             For i = 1 To [a65536].End(3).Row
   
5.                 If Cells(i, j).Interior.ColorIndex = 15 Then
   
6.                    k = k + Cells(i, j)
   
7.                 End If
   
8.             Next i
   
9.             Cells(2, j) = k
   
10.             k = 0
    
11.         Next j
    
12. End Sub

复制代码

运行这个代码，我把你灰色部分的合计数放第二行了！不知是不是你所要的结果

雄鹰

111.zip (38.44 KB, 下载次数: 2)

2012-2-16 21:28 上传

点击文件名下载附件

雄鹰

先在EXCEL窗口中按ALT+F11组合键，调出VBA窗口，插入一个模块，把下面代码复制进去。
Function hz(a As Range, b As Range)
For Each c In a
If c.Interior.ColorIndex = b.Interior.ColorIndex Then s = s + c
Next
hz = s
End Function

这个自定义函数的用法是：hz(a,b)
它用了两个参数a与b，其中a是所有数据的区域，b是指定根据哪一个单元格的颜色为条件进行汇总计算，两个参数之间用逗号隔开。

laoda1228

技巧上的哪个动画啊，有地址吗？

jiessieliu

可以用分类汇总的啊，