Excel中我一个工作簿中有20个sheet,如何用VBA统计所有sheet中A出现的总次数？

Question

如题所述

Answer 1

sub test()
dim sh as worksheet,Num
Num=0
for each sh in worksheets
    Num=Num+application.countif(sh.cells,"a")
next
msgbox Num
end sub

追问

谢谢，这个可以区分大小写吗？

还有如果我的是问卷调查的，我的选项换成按钮√，这样如何修改呢？

追答

countif函数不区分大小写。

sub test()
dim sh as worksheet,Num
Num=0
for each sh in worksheets
Num=Num+application.countif(sh.cells,"√")
next
msgbox Num
end sub