1、方法一：使用条件格式

2、统计每种颜色的数据个数，可以使用计数函数COUNTIF，例如：=COUNTIF(A:A,CELL("color",A1)=1)

3、按下快捷键“Alt+F8”打开宏窗口，双击“CountColorCells”宏运行；

4、注意：此VBA代码仅适用于单元格填充颜色，不适用于字体颜色或其他格式。

5、要统计Excel文件中每行不同颜色单元格个数，可以使用Excel中的条件格式来实现。具体步骤如下：

6、Nextj

7、最后，将每种颜色的单元格数量除以总单元格数量，即可得到颜色的占比。通过这种方法，可以快速准确地统计颜色的占比，并进行数据分析和可视化。

8、在“开始”选项卡中，点击“条件格式”。

9、Forj=1Tom

10、接着，单击【格式】选项，选择【从单元格选择格式】项下的【背景格式】选项，选取我们需要的任一颜色单元格；本次案例选取黄色背景的单元格演示，所以我们选取任一黄色单元格；

11、Fori=1Ton

12、Excel会自动筛选出符合条件的数据，此时可以查看状态栏中的数量，即为该颜色的数据个数。

13、Nextkey

14、然后，我们按“Ctrl+F”组合键，调出查找页面，单击右侧的【选项】按钮；

15、在【新建格式规则】窗口中，选择【使用公式确定要设置格式的单元格】选项，并输入要使用的条件。例如，如果您希望统计红色单元格的数量，则可以使用“=$A1=红色”。

16、n=rng.Rows.Count

17、Setrng=Selection

18、Setdict=CreateObject("Scripting.Dictionary")

19、dict(arr(i,j))=dict(arr(i,j))+1

20、在VBA编辑器窗口中，插入一个新的模块，将下面的VBA代码复制到模块中：

21、=CELL("color",A1)=CELL("color",A2)

22、在【新建格式规则】窗口中，选择【设置格式】选项，并选择要使用的颜色。

23、DimdictAsObject

24、在【开始】选项卡中，选择【条件格式】下拉菜单，点击【新建规则】按钮。

25、紧接着，我们选择【查找全部】，按“Ctrl+A”选择所有黄色单元格的数据；

26、=CELL("color",A1)=6（黄色）

27、Else

28、执行完毕后，每行的最后列会显示不同颜色单元格的个数。

29、选择“使用公式来确定要设置格式的单元格”，输入以下公式并设置颜色：

30、在Excel中，可以使用条件格式和筛选功能来统计不同颜色的数据。

31、您好，可以通过VBA代码实现统计每行不同颜色单元格个数。

32、rng.Cells(i,m+key).Value=dict(key)

33、EndIf

34、其中，A1是需要统计的第一个单元格，A2是需要统计的第二个单元格。

35、依次点击「开始」选项卡中的「条件格式」、「新建规则」、「使用公式确定要设置的单元格格式」。

36、点击“确定”，完成条件格式的设置。

37、OptionExplicit

38、=CELL("color",A1)=4（绿色）

39、选中要统计的行或列。

40、=CELL("color",A1)=1（红色）

41、具体步骤如下：

42、arr(i,j)=cell.Interior.ColorIndex

43、打开Excel，按下快捷键“Alt+F11”打开VBA编辑器；

44、在Excel中统计颜色的占比，可以使用条件格式和计数函数来实现。首先，使用条件格式对具有不同颜色的单元格进行标记。

45、保存并关闭VBA编辑器窗口，回到Excel表格中，选中要统计的颜色单元格所在的区域；

46、ForEachkeyIndict.Keys

47、Setcell=rng.Cells(i,j)

48、选择“颜色”，选择需要统计的颜色。

49、=CELL("color",A1)=2（黑色）

50、然后，使用COUNTIF函数计算每种颜色的单元格数量。

51、Nexti

52、=CELL("color",A1)=3（蓝色）

53、IfNotdict.Exists(arr(i,j))Then

54、在弹出的编辑规则窗口中，输入以下公式：

55、步骤如下：

56、首先，选中我们需要的单元格范围；

57、方法二：使用筛选功能

58、在“数据”选项卡中，点击“筛选”。

59、dict.Addarr(i,j),1

60、选中需要统计的行，例如选中第1行到第10行。

61、=CELL("color",A1)=5（粉色）

62、Dimarr()AsVariant

63、Ifarr(i,j)>0Then

64、m=rng.Columns.Count

65、DimrngAsRange,cellAsRange

66、EndSub

67、DimiAsInteger,jAsInteger,nAsInteger,mAsInteger

68、SubCountColorCells()

69、选中需要统计颜色的数据范围。

70、ReDimarr(1Ton,1Tom)

71、注意：以上方法仅适用于单元格填充色，如果需要统计字体颜色或边框颜色，需要使用VBA编程。