VBA中CountIf函数调用失效问题排查与修复求助

你的代码报错的核心原因是VBA中无法直接调用工作表函数CountIf，必须通过WorksheetFunction或Application对象来引用，另外条件表达式里的空格可以优化。

修复后的代码如下：

Sub countcells()
    Dim rng As Range
    Set rng = Range("A1:E2")
    ' 使用WorksheetFunction调用CountIf，同时去掉条件里的空格
    Range("G1") = WorksheetFunction.CountIf(rng, ">6")
End Sub

补充说明 #

• 如果不确定统计区域是否会出现错误（比如包含非数值单元格），可以改用Application.CountIf，它遇到错误会返回错误值而不是直接抛出运行时错误：

  Range("G1") = Application.CountIf(rng, ">6")
  

• 条件表达式">6"里不要加多余空格，虽然部分情况下空格不影响，但规范写法能避免不必要的问题。

内容的提问来源于stack exchange，提问作者A Pofta Tapofta