如何用CountIf在多工作表指定单元格（A1）检测TextBox1值存在性？

直接用CountIf没法实现跨多个工作表的A1单元格统计，因为CountIf的参数只能是单个连续单元格区域，无法同时指定所有工作表的A1。但可以用VBA结合SUMPRODUCT函数来实现无循环的批量检查，速度远快于循环遍历数百个工作表。

替换后的代码示例： #

Dim matchCount As Long
' 用SUMPRODUCT统计所有工作表A1与TextBox1值匹配的数量
matchCount = Evaluate("SUMPRODUCT(--('*'!A1=""" & TextBox1.Value & """))")

If matchCount = 0 Then
    GoTo 10
Else
    ' 这里写匹配到后的逻辑
End If

代码说明： #

• '*'!A1：通配符*会匹配当前工作簿里的所有工作表，代表所有工作表的A1单元格
• --('*'!A1=""" & TextBox1.Value & """)：将每个工作表A1的值与TextBox1的内容对比，返回True/False，通过--把布尔值转换成1（匹配）或0（不匹配）
• SUMPRODUCT：把所有转换后的数值相加，最终得到匹配的工作表数量

注意事项： #

如果你的工作表名称包含空格、&、#这类特殊字符，'*'!A1的写法会触发错误。这种情况下可以先获取所有工作表名称的列表，再拼接成合法的引用字符串，不过对于常规命名的工作表，上面的代码足够好用。

内容的提问来源于stack exchange，提问作者Jelovac Maglaj