第一次用Excel的宏，挺好玩。找了点资料。
原帖在 http://club.excelhome.net/viewthread.php?tid=81978&extra=&page=3
也有代码下载，我就不提供了。
我用的版本是03
步骤:
1.打开Excel， Alt+F11 打开VBA宏编辑器，新建一个模块，并在里面定义一个VBA函数。
代码
Function Countcolor(col As Range, countrange As Range)
Dim icell As Range
Application.Volatile
For Each icell In countrange
If icell.Interior.ColorIndex = col.Interior.ColorIndex Then
Countcolor = Countcolor + 1
End If
Next icell
End Function
2.该函数有2个参数，Para1的作用是做为背景颜色来比对，而Para2是统计的区域。
3.在Excel Sheet Cell中引用
=Countcolor(B$1,$A$1:$A$65535)
注意事项：
1. 如果不能运行，请查看宏的安全设置：工具->选项->安全->将安全级别降到中。
2.在VBA宏中，有Excel对象和模块定义。该函数需要在模块中定义，否则不能运行。因为带定义的需要在模块中才能定义。
此内容由惯性聚合(RSS阅读器)自动聚合整理，仅供阅读参考。 原文来自 — 版权归原作者所有。