Excel VBA中CountIF函数无法统计数据区域值的问题

核心问题分析 #

你的代码里有两个关键问题导致CountIF失效：

1. tablerange作为Range对象，赋值时没加Set关键字，导致它被存成了单元格值的数组，而WorksheetFunction.CountIF的第一个参数需要的是Range对象，不是数组。
2. 即使S2是文本格式，VBA读取时可能自动把纯数字内容转成数值类型，和Name列的文本类型不匹配，导致统计不到。

修正后的代码 #

Dim tablerange As Range
Dim nametofind As String

' 用Set赋值Range对象
Set tablerange = Worksheets("tablesheet").ListObjects("table").ListColumns("Name").DataBodyRange
' 强制转成字符串，确保和Name列的文本格式匹配
nametofind = CStr(Range("S2").Value)

' 执行CountIF统计
Range("T2").Value = WorksheetFunction.CountIf(tablerange, nametofind)

额外验证方案 #

如果还是有问题，可以尝试用通配符强制匹配文本（针对纯数字转文本的特殊场景）：

Range("T2").Value = WorksheetFunction.CountIf(tablerange, "*" & nametofind & "*")

不过这个只适用于没有重复前缀/后缀的场景，优先使用前面的标准修正方案。

内容的提问来源于stack exchange，提问作者Samantha McEnery