求一个按行统计带颜色单元格的数量的公式

飞越一切

按行统计

统计每一行带颜色单元格的数量.rar (8.2 KB, 下载次数: 11)

2024-4-19 17:01 上传

点击文件名下载附件

swl4561255

1. Sub test()
   
2. ar = [A1].End(4).Row
   
3. Dim arr(1 To 100, 1 To 1)
   
4. For i = 2 To ar
   
5.     n = 0
   
6.     For j = 2 To 10
   
7.         If Cells(i, j).Interior.ColorIndex = 6 Then
   
8.             n = n + 1
   
9.         End If
   
10.     Next
    
11.     arr(i - 1, 1) = n
    
12. Next
    
13. [K2].Resize(ar - 1, 1) = arr
    
14. End Sub
    

复制代码

quqiyuan

写个自定义函数

无关岁月

飞越一切

swl4561255 发表于 2024-4-19 17:24

大神，能不能加一个区区域，统计区域内的行，例如：H:AR 区域内的每一行

飞越一切

quqiyuan 发表于 2024-4-19 17:29
写个自定义函数

大神，能不能加一个区区域，统计区域内的行，例如：H:AR 区域内的每一行

飞越一切

无关岁月 发表于 2024-4-19 17:38

大神，能不能加一个区区域，统计区域内的行，例如：H:AR 区域内的每一行

无关岁月

飞越一切 发表于 2024-4-19 17:48
大神，能不能加一个区区域，统计区域内的行，例如：H:AR 区域内的每一行

这个是自定义函数，=cntcolor(h2:ar2,颜色),一参就是区域，二参是要统计的颜色，随便选个有颜色的单元格锁定就行了

quqiyuan

飞越一切 发表于 2024-4-19 17:47
大神，能不能加一个区区域，统计区域内的行，例如：H:AR 区域内的每一行

把单元格区域选择到里面即可

飞越一切

quqiyuan 发表于 2024-4-19 18:03
把单元格区域选择到里面即可

谢谢，非常感谢