excel 如何统计一列共有几种不同颜色?

发布网友发布时间：2022-04-19 22:07

共2个回答

热心网友时间：2023-09-02 20:36

你好！这个可以使用VBA程序代码实现，示例如下：

（一）VBA程序代码如下：

Sub Color_Count()
Dim i1, i2, i3, MyArray(10000)
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表Sheet1
i3 = 0

For i1 = 1 To 10000  '从第一行到10000行
i2 = mysheet1.Cells(i1, 1).Interior.Color  '获取单元格的颜色值
If UBound(Filter(MyArray, i2)) <> 0 Then   '如果颜色值不重复，则
  MyArray(i3) = i2   '把颜色值赋给数组里面
  i3 = i3 + 1        '颜色种类递增1
End If
Next

MsgBox "不同颜色的个数为：" & i3  '弹窗提示不同颜色的单元格数

End Sub

（二）程序的运行结果如下截图。（写代码不易，望笑纳）

【注】空白单元格也算是一种颜色，如果不算它，则减1即可。

热心网友时间：2023-09-02 20:36

写代码可以实现