在VBA中计算包含Chr（160）字符的单元格

我使用下面的代码来删除所有的Chr（160）字符，即手动粘贴（取决于复制源）后偶尔出现的非中断空格。

到目前为止，这工作正常：

Worksheets(2).Range("A:A").Replace Chr(160), "", xlPart 

在删除它之前，如何计算包含这个字符的单元格的数量？ 我尝试了下面的代码，但不幸的是这不工作：

 varBlankCount = Application.WorksheetFunction.CountIf(Range("A:A"), "*" & Chr(160) & "*") 

Answer 1

总是指定要使用的工作表：

 varBlankCount = Application.WorksheetFunction.CountIf(Sheets("Sheet1").Range("A:A"), "*" & Chr(160) & "*")