3

我正在尝试通过将所有实例“<br />”替换为单个空格（“”）来清理非常大的 Excel 电子表格中包含的一些文本。我尝试了两种方法：使用 Excel 中的普通查找/替换所有选项，以及使用这个非常简单的 VBA 宏：

Sub CleanUp()
    Application.Cells.Replace What:="<br />", Replacement:=Chr(32), LookAt:=xlPart
End Sub

在这两种情况下，我都会收到一条错误消息，指出：“您键入的公式包含错误。有关修复常见公式问题的信息，请单击帮助。要获得输入函数的帮助，请单击函数向导（公式选项卡，函数库组)。如果您不尝试输入公式，请避免使用等号 (=) 或减号 (-)，或在其前面加上单引号 (')。"

当然，我不是要输入公式。但是，按照 Excel 的建议，在“<br />”前面加上单引号并不能解决问题。

即使我的搜索字符串不包含任何通配符（据我所知），我也尝试在宏中使用文字字符，看看是否有帮助。它不能解决问题，但无论如何这里是代码：

Sub CleanUp()
  Dim SearchFor As String
  SearchFor = Chr$(60) & "br" & Chr$(32) & Chr$(47) & Chr$(62)
    Application.Cells.Replace What:=SearchFor, Replacement:=Chr$(32), LookAt:=xlPart
End Sub

有用的事实：

  • 我可以使用普通的查找/替换方法和 VBA 宏轻松地查找和替换此电子表格中的其他字符串。
  • 我有其他类似的电子表格，可以在其中查找和替换“<br />”。
  • 在我朋友的计算机上，可以使用这两种方法查找和替换“<br />”的所有实例。

有谁知道为什么会这样？它与我的 Excel 设置有关吗？

4

1 回答 1

0

你有没有尝试过：

Cells.Replace What:="<br/>", Replacement:=" ", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
于 2012-08-22T11:06:18.643 回答