Sub 统计() Dim n As Integer n = WorksheetFunction.CountIf(Range(A:A), 李强) MsgBox A列中李强的个数为： & nEnd Sub

以上为一个简单的版本。 下面是一个不依赖工作表函数的版本，即可统计李强也可统计张三，并且会去掉首尾空格再比较的版本。这连个把按本都可以修改为Function。

Sub 统计2() Dim i As Integer Dim r As Integer, n As Integer Dim str, rng str = Application.InputBox(prompt:=请输入要在A列中统计的姓名:, Default:=李强, Type:=2) str = Trim(str) r = Cells(Rows.Count, 1).End(xlUp).Row rng = Range(A1:A & r) For i = 1 To r If Trim(rng(i, 1)) = str Then n = n + 1 Next i MsgBox A列中 & str & 的个数为： & nEnd Sub