文章图片



文章图片



工作中你可能会遇到这样一个问题 。

对相同颜色的单元格内容进行求和或者计数 。
本篇分享两种方法给大家 ， 一种函数法 ， 一种VBA法 。
第一种：函数法
利用GET.CELL函数获取单元格格式内容 ， 然后使用sumifs ， countifs函数计算出需要的结果 。 这种方式需要增加辅助列 ， 且需要先点击C2单元格后设置 。 （因为我要在C2显示结果）


GET.CELL为早期版本函数 ， 目前使用的版本都较高 ， 所以需要通过名称管理器自定义 。
GET.CELL(Type_numReference)中Type_num 1-66代表不同的含义 ， 63代表单元格的填充(背景)颜色 。
第二种：VBA法
通过编辑自定义函数 ， 可以不加辅助的快速计算出所需结果 。

通过循环For Each rg In countrange ， 不断判断单元格颜色是否与当前颜色一致来加以求和或者计数 。
需要注意 ， 自定义函数只能放置在模块内才可以有效 。
Function Count颜色(countrange As Range col As Range)其中countrangeAs Range为需计算区域 ， col As Range为目标颜色单元格 。
具体代码如下：

Function Count颜色(countrange As Range col As Range) As Integer
Dim rg As Range
Application.Volatile
【interior|Excel按单元格颜色进行求和或计数】For Each rg In countrange
If rg.Interior.ColorIndex = col.Interior.ColorIndex Then
Count颜色 = Count颜色 + 1
End If
Next
End Function


Function Sum颜色(sumrange As Range col As Range) As Integer
Dim rg As Range
Application.Volatile
For Each rg In sumrange
If rg.Interior.ColorIndex = col.Interior.ColorIndex Then
Sum颜色 = Application.Sum(rg) + Sum颜色
End If
Next
End Function

欢迎点击关注 ， 后续会有更多精彩内容！

稿源：(Talk数据)

【傻大方】网址：http://www.shadafang.com/c/111395US2021.html

标题：interior|Excel按单元格颜色进行求和或计数