如何统计单元格颜色的数量？

草原雪鹰

请问如何统计单元格颜色的数量？

2021日历统计.7z (16.6 KB, 下载次数: 10)

2021-10-7 18:28 上传

点击文件名下载附件
2021日历统计.7z

星星堂

Sub 统计()
arr = [a2].CurrentRegion
r = [g65536].End(3).Row
For j = 8 To 17 Step 3
For m = 17 To UBound(arr) Step 1
  For n = 7 To UBound(arr, 2)
    If Cells(m, n).Interior.Color = Cells(30, j).Interior.Color Then
      js = js + 1
    End If
  Next
  Next
  Cells(30, j) = js
  js = 0
Next
End Sub

烧遍天

VBA解，供参考
一例一码，仅限附件
函数无法获取单元格填充色，无解
2021日历统计.rar (22.57 KB, 下载次数: 109)

2021-10-7 18:28 上传

点击文件名下载附件
2021日历统计.rar

白鸟是个鸡

谢谢大神啊！！