EXCEL中用宏统计一列中某一字符出现的次数

显示全部楼层 · 2011-5-21 10:27:06

A　　B　　C
1　男
2　男
3　女
4　男
5　男
6　女
用宏统计男出现的次数：A1至A6中男出现的次数；
这里是出现了四次，然后用对话框显示4。
请高手把这个宏修改下：
Sub Sample3_103_1()

Total = Application.WorksheetFunction. _

Sum(Worksheets("Sheet1").Range("A1:A10"))

MsgBox Total
End Sub
这个宏的作用是计算：工作表Sheet1中A1:A10的和，
那么我想利用这个宏修改成：计算Sheet1中A1:A10中某一个字符出现的次数。
想得到的结果就是，以这个宏显示的方式，有显示框，只是修改下，统计的字符出现的次数。

千问 · 2011-5-21 10:27:06

Sub Sample3_103_1()
Total = Application.WorksheetFunction.countif(range("a1:a6"),"男")
MsgBox Totalend sub