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

Question

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

到目前为止一切正常：

<div id="EnvironmentSelect">
  <p class="Text">Lorem Ipsum:</p>
  <div>
    <p class="schoolEnvLabel EnvLabel">
      <img src="~/Content/Images/1.png" /> 1
    </p>
    <p class="homeEnvLabel EnvLabel">
      <img src="~/Content/Images/2.png" /> 2
    </p>
  </div>
</div>

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

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

Answer 1

始终指定您要使用的工作表：

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