在VBA中读取ä和ö字符时出现错误的原因及解决方法

问题原因 #

你遇到的情况大概率是这两个项目名称里的ä/ö不是预合成Unicode字符（比如ä对应U+00E4，ö对应U+00F6），而是由基础字符+组合变音符号组成的（比如ä是a(U+0061)+分音符(U+0308)）。VBA会把这种组合字符当成两个独立字符处理，所以看起来被拆分了。其他正常的项目用的是预合成字符，因此没有问题。

验证方法 #

运行这段小代码确认字符类型：

Sub CheckSpecialChars()
    Dim cell As Range
    Set cell = Selection '选中有问题的单元格
    Dim i As Integer
    For i = 1 To Len(cell.Value)
        Debug.Print "位置" & i & ": 字符=" & Mid(cell.Value, i, 1) & ", Unicode码=" & AscW(Mid(cell.Value, i, 1))
    Next i
End Sub

打开VBA编辑器的即时窗口（Ctrl+G），如果输出里出现U+0308（分音符），就说明是组合字符导致的问题。

解决办法 #

方法1：用VBA统一规范化字符

调用Windows API的Unicode规范化函数，把组合字符转成预合成字符，实现正常读取：

' 声明API（64位Excel保留PtrSafe，32位可去掉）
Private Declare PtrSafe Function NormalizeString Lib "kernel32.dll" (ByVal NormForm As Integer, ByVal lpSrcStr As LongPtr, ByVal cwSrcLength As Integer, ByVal lpDstStr As LongPtr, ByVal cwDstLength As Integer) As Integer

Const NormalizationFormC = 2 ' 预合成规范形式，将组合字符合并为单个字符

Function NormalizeUnicode(str As String) As String
    Dim dstLen As Integer
    ' 先获取规范化后的字符串长度
    dstLen = NormalizeString(NormalizationFormC, StrPtr(str), Len(str), 0, 0)
    If dstLen > 0 Then
        Dim dstStr As String
        dstStr = String(dstLen, vbNullChar)
        ' 执行规范化转换
        NormalizeString NormalizationFormC, StrPtr(str), Len(str), StrPtr(dstStr), dstLen
        NormalizeUnicode = dstStr
    Else
        ' 转换失败时返回原字符串
        NormalizeUnicode = str
    End If
End Function

在原有代码中，读取项目名称后调用该函数处理：

' 原读取逻辑示例
Dim projName As String
projName = Sheet1.Cells(row, col).Value

' 修改为规范化后读取
projName = NormalizeUnicode(Sheet1.Cells(row, col).Value)

方法2：手动修复Excel单元格

如果仅这两个单元格有问题，直接复制其他正常单元格里的ä/ö，替换掉这两个单元格中的异常字符即可。

额外提示 #

如果项目编号比对逻辑也涉及特殊字符，建议对输入的项目编号也做同样的规范化处理，避免因字符格式不一致导致匹配失败。

内容的提问来源于stack exchange，提问作者Moxxxot