VBA：带有韩语/法语的Excel（.xlxs）文件的换行符和回车符

Question

我在Excel文件（2010美国版和.xlxs扩展名）中替换换行符和回车符时遇到了一些麻烦。

以前，我已经编写了一个宏，可以在包含以下代码的英语常规Excel文件中成功完成此操作。

newStr = Replace(originalStr, newline/carriage return/both, replacementStr)

Newline/carriage return/both分别是vbNewLine（Chr（10）），vbCr（Chr（13））或vbCrLf。

我现在有一个包含韩语和法语的Excel文件，换行符和CR字符似乎是别的。我如何根据Chr()）或某些VBA常数查找实际内容，并替换这些字符？我需要删除所有换行符并替换为<br />。

Answer 1

您可以选择相关的单元格并检查包含的字符，如下所示：

s = Sheets("Sheet3").[e2]

For i = 1 To Len(s)
    If Asc(Mid(s, i, 1)) < 32 Then
        Debug.Print Asc(Mid(s, i, 1)); " -- "; i
    End If
Next