对VBA中包含Chr（160）字符的单元格进行计数

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

到目前为止，这种方法效果良好：

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

在删除此字符之前，如何计算包含此字符的单元格数？我为此尝试了以下代码，但不幸的是，该代码不起作用：

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

---

始终指定要使用的图纸：

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

---

你的最后一个括号太早了

varBlankCount=Application.WorksheetFunction.CountIf（范围（“A:A”），“*”&Chr（160）和“*”）

@R3uK:谢谢。这只是一个输入错误，而不是代码中的问题。现在更正它。：）好的，那么你有没有任何结果或者想要发生什么？因为这条线看起来不错，只是你没有指定你想要依靠的工作表@哇，事实上这就是问题所在。非常感谢，对于这个初学者的错误，我深表歉意。：）很高兴我能帮忙！；）我添加了一个答案，这样你就可以结束这个话题了！；）