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