worksheetfunction.countifs在计算非空白单元格时在VBA代码中发生错误

我有

Dim tape, out As Worksheet Set tape = ThisWorkbook.Sheets("Agg") Set out = ThisWorkbook.Sheets("output") out.Cells(1, 2).Value = WorksheetFunction.CountIfs(tape.Range("IG1:IG10000"), "<>" & "", "<>" & " ", "<>" & " ") 

所以我一般说“如果不是空白，不是单个空间，而不是两个空格”。 我想要做的是计算非空白值，同时考虑到可能在单元格中有空格。 但是这最后一行不断给我这个错误：“无法获得工作表函数类的Countifs属性”。 我怎样才能使它工作？ 谢谢！

Answer 1

也许尝试类似的东西

 out.Cells(1, 2).Value = tape.Evaluate("=SUM(IF(TRIM(IG1:IG10000)<>"""",1,0))") 

这将忽略任何只有空格的单元格。