如何还原Excel加载CSV文件时乱码的Unicode字符？

我有一批含特殊字符的CSV文件，在文本编辑器中显示正常，但用Excel打开后，特殊字符被识别为Windows ANSI编码，变成了2-3个乱码字符。各类Unicode字符的转换结果有对应表格展示（代码点标注在左侧列和顶部行）。

想请教怎么把这些乱码还原成原始字符，能用公式或VBA实现。另外我知道在CSV开头加ZWNBSP字符能解决，但文件来自外部，手动加太麻烦，有没有别的办法？

我试过用StrConv函数但没用，代码如下：

Sub MyTest()
    Dim s0 As String
    Dim s1 As String
    Dim s2 As String

    s0 = ChrW(192)                  ' Correct character: À
    '                               ' This would appear normally when opening
    '                               ' the file in a text editor
    Debug.Print s0

    s1 = ChrW(195) & ChrW(8364)     ' ANSI representation of s0: À
    '                               ' This is what would appear when opening
    '                               ' the file in Excel
    Debug.Print s1

    s2 = StrConv(s1, vbFromUnicode) ' Returns ?
    Debug.Print s2

    s2 = StrConv(s1, vbUnicode)     ' Returns à ¬
    Debug.Print s2
End Sub

解决方案1：VBA函数还原乱码 #

问题本质是CSV为UTF-8编码，但Excel默认用Windows ANSI（如CP1252）打开，导致UTF-8多字节字符被拆分为多个ANSI字符。下面的函数可以反向还原：

单个单元格还原函数 #

Function FixUTF8Mistake(ByVal str As String) As String
    Dim bytes() As Byte
    ' 将错误显示的Unicode字符串转换为ANSI字节数组（对应Excel错误识别的编码）
    bytes = StrConv(str, vbFromUnicode)
    ' 将字节数组按UTF-8编码解码为正确的Unicode字符串
    FixUTF8Mistake = StrConv(bytes, vbUnicode, 65001)
End Function

使用方式：在Excel单元格中输入=FixUTF8Mistake(A1)，即可还原A1单元格内的乱码。

批量处理整列/范围 #

Sub BatchFixUTF8()
    Dim targetRange As Range
    Dim cell As Range
    ' 替换为你需要处理的单元格范围
    Set targetRange = ThisWorkbook.Sheets("Sheet1").Range("A1:A100")
    
    For Each cell In targetRange
        If cell.Value <> "" Then
            cell.Value = FixUTF8Mistake(cell.Value)
        End If
    Next cell
End Sub

解决方案2：让Excel正确导入UTF-8 CSV（从根源避免乱码） #

如果不想事后还原，可直接通过Excel的数据导入工具正确识别UTF-8编码：

• 打开Excel，切换到「数据」选项卡 → 点击「自文本/CSV」
• 选中目标CSV文件，在导入预览界面点击「转换数据」
• 在「文件源」下拉菜单中选择「65001: Unicode (UTF-8)」
• 完成导入后，特殊字符即可正常显示

原代码无效的原因 #

你之前的StrConv用法逻辑错误：s1是Excel错误解析后的Unicode字符串，直接用vbFromUnicode或vbUnicode转换无法还原。正确逻辑是先把错误字符串转成Excel错误识别时用的ANSI字节（对应原始UTF-8字节），再用UTF-8编码解码回正确字符。

内容的提问来源于stack exchange，提问作者Xi-entaj