这个世界繁花似锦|excel中按颜色求和四种方法介绍( 三 ) 这个世界繁花似锦

然后在左侧的工程窗口中，右键点击插入一个模块，会生成【模块1】。

文章图片
?把代码复制到右边的代码窗口中，就可以了。

文章图片
?在工作表中，输入公式：=颜色求和C2:C9,E1
结果就出来了。

文章图片
以下是代码，供大家复制使用！Function颜色求和rng1AsRange,rng2AsRangeDimrAsRange,sAsDouble'请选择你要求和的单元格区域！Setrng1=Intersect(ActiveSheet.UsedRange,rng1)ForEachrInrng1'如果目标单元格与第二参数单元格的填充色相同，就进行累加。 Ifr.Interior.Color=rng2.Interior.ColorThens=s+r.ValueEndIfNext颜色求和=sEndFunction
我们这里用的是VBA中的自定义函数，也可以编写个Sub子过程，然后把这个子过程附到一个按钮上面也可以的。
这种方法，如果大家有精力、有兴趣的话，可以学习点录制宏，自己再进行一些简单的修改，就可以完成一些自动化的工作了，省时省力。
以上就是按颜色求和的4种主要方法。

文章图片
总结一下
除了以上4种主要的方法之外，实际工作中还可能有以下几种情况，比如：
?是否是隔行（或者隔列）加了颜色，然后对隔行（隔列）进行求和？
?是否是对于高于或者低于某一些数值的数据加了颜色，然后用Sumif或者Sumifs等函数设置下单条件或者多条件求和？
?是否是针对某个部门或者某些人、某个时间段等加了颜色，然后用相应的函数求和？
……
工作中，可以根据实际情况，找出其中的规律，加以分析判断，并做出选择。