删除工作表中所有换行符的最有效方法

Question

我有一个遍历C列的宏，无论何时该单元格不为空，它都会打开B列中引用的文件，在此新打开的文件中搜索写在A列中的字符串，然后将该单元格的内容替换为C列中写的是什么。我的问题是，在新打开的文件中，某些列中有换行符（有时在行尾，有时应该只有空格），因此宏找不到正确的单元格。

我曾想解决这个问题，我写了另一个宏，遍历这些文件，并用空格替换每个换行符。基本上就是

For Each Cell In Worksheet.Range(Cells.Address)
    Cell.Value = Replace(Cell.Value, Chr(10), " ")
Next

这似乎可行，但是如果没有excel崩溃，我将无法运行它。有更有效的方法可以做到这一点吗？或者，也许是一起更好地解决我的问题的方法？谢谢。

Answer 1

VBA DoEvents函数暂时暂停正在运行的宏，使Excel有机会处理按键，鼠标单击和其他操作系统消息。