Excel对特定区域按颜色求和 、计数

对一些特殊的数据标注了颜色,想要快速求出这些区域的和,有两种方法:

Function SumByColor(Ref_color As Range,Sum_range As Range)

Application.Volatile

Dim iCol As Integer

Dim rCell As Range

iCol = Ref_color.Interior.ColorIndex

For Each rCell In Sum_range

If iCol = rCell.Interior.ColorIndex Then

SumByColor = SumByColor + rCell.Value

End If

Next rCell

End Function

Function CountByColor(Ref_color As Range, CountRange As Range)

Application.Volatile

Dim iCol As Integer

Dim rCell As Range

iCol = Ref_color.Interior.ColorIndex

For Each rCell In CountRange

If iCol = rCell.Interior.ColorIndex Then

CountByColor = CountByColor + 1

End If

Next rCell

End Function

图片发自简书App
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容

  • 背景 一年多以前我在知乎上答了有关LeetCode的问题, 分享了一些自己做题目的经验。 张土汪:刷leetcod...
    土汪阅读 12,779评论 0 33
  • 南京栖霞寺赏枫 甲午年冬月廿九于栖霞 朝从栈道上碧云,南寺回望灯火阑。 玄瓦黄墙寂无客,忽闻钟声荡谷远。 红枫浸得...
    以文代言阅读 502评论 0 1
  • 最近遇到一些琐碎的事情,内心就会比较焦躁,总是抱着解决麻烦的想法去处理事情和问题,想尽快解决,心态不好。 这几...
    牧羊少年_奇阅读 416评论 0 0
  • 智慧和福德,这二者是佛的完美特征。除了这个之外,第一印象,最引人注目的当然是身相了。这也是弟子们、学人们的直观感受...
    洪州禅心阅读 282评论 0 3