VBA中包含CHR(160)特征的计数细胞

Question

i使用以下代码删除所有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) & "*")