VBA自定义函数来统计指定颜色的单元格的个数

原因很简单，初学者常出的低级错误，就是变量名函数名等书写错误，详见下面截图。所以养成良好的代码书写习惯很重要，hbpaoxiao2的建议很好，我也习惯将变量的前一个字母定义为大写字母，我样代码写后如果字母不变成大写，就说明写错了，检查程序就方便多了。

保存为早期版本的.xls格式的文件没有任何无问题，所有提示一律单击是如果是.xlsx格式不行，要另存为二进制格式.xlsb,这种格式还有一个最大的好处就是比原文件占用内存少，启动也快。

你太粗心大意了？
第2个函数：
函数名是 countcolor1，在循环里
countcolor1 = countclor1 + 1
你等号左边是函数名 countcolor1 而等号 右边的是 countclor1，少了个o拼写错了吧？
第3个函数错误相类似。

vb的话，变量里最好加大写字母，容易判断变量是否书写正确，你这里的话，变量写错了，函数名以大写开头的话，肯定是可以避免的

countcolor1 = countcolor2 + 1

countcolor2 = countcolor2 + 1 

countcolor1 = countclor1 + 1  后面的countclor1 拼写错误啊，亲

countcolor2 = countclor2 + 1 后面的countclor2 拼写错误啊，亲