vba - 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 />.

score 1 · Accepted Answer

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

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

1 回答 1