Excel VBA索引/选择工作表时，能否忽略名称中的重音字符？

升级系统和Office后遇到工作表名称重音字符变来变去的问题？太懂这种糟心了！别担心，VBA里有几个靠谱的办法能帮你绕过这个坑，不管名称里的重音有没有变，都能精准找到目标工作表：

方案1：自定义去重音函数，统一匹配规则 #

核心思路是把工作表名称和你要查找的目标字符串都转换成无重音的标准化形式，再做匹配。我给你写了个现成的函数，直接用就行：

Function RemoveAccents(strText As String) As String
    Dim strNormalized As String
    ' 把字符串转成Unicode分解模式，拆分重音和基础字符
    strNormalized = WorksheetFunction.Normalize(strText, 2) ' 2对应NFD标准化模式
    ' 移除常见的重音标记（可根据需要添加更多）
    strNormalized = Replace(strNormalized, ChrW(&H300), "") '  grave accent (`)
    strNormalized = Replace(strNormalized, ChrW(&H301), "") '  acute accent (´)
    strNormalized = Replace(strNormalized, ChrW(&H30B), "") '  double acute accent (˝)
    RemoveAccents = strNormalized
End Function

' 调用示例：查找带重音的目标工作表
Sub LocateWorksheetIgnoreAccents()
    Dim targetName As String
    targetName = "Sheet1 (Összeszámolás)" ' 你要找的原始名称
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ' 两边都去重音后再比较
        If RemoveAccents(ws.Name) = RemoveAccents(targetName) Then
            ws.Select ' 找到后选中工作表，也可以改成其他操作
            Exit Sub
        End If
    Next ws
    
    MsgBox "没找到对应的工作表哦！"
End Sub

这个函数通过Unicode标准化把重音字符拆成「基础字符+重音标记」，再删掉标记，比如Ö就变成O，Ő也变成O，这样不管名称里的重音有没有被替换，都能匹配上。

方案2：用工作表的CodeName直接引用（最稳妥） #

如果你不想折腾字符串匹配，直接用VBA编辑器里的工作表CodeName是最靠谱的——这个名称不会因为工作表显示名称的变化而改变，除非你手动在VBA编辑器里修改它。

比如你的工作表在VBA编辑器里显示的是Sheet1（左边工程窗口里的名称，不是括号里的显示名），那直接写：

' 不管显示名称是什么，直接选中这个工作表
Sheet1.Select

这个方法完全规避了名称变化的问题，适合那些不需要动态匹配、工作表固定的场景。

方案3：利用字符串比较参数尝试忽略重音 #

这个方法依赖系统的区域设置，效果可能因环境而异，但可以试试：用StrComp函数，指定vbTextCompare参数，让系统按文本规则比较（部分系统会自动忽略重音）：

Sub FindWorksheetWithTextCompare()
    Dim targetName As String
    targetName = "Sheet1 (Összeszámolás)"
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        ' 用文本比较模式，尝试忽略重音差异
        If StrComp(ws.Name, targetName, vbTextCompare) = 0 Then
            ws.Select
            Exit Sub
        End If
    Next ws
    
    MsgBox "未找到目标工作表"
End Sub

注意：如果你的系统区域设置没有开启「忽略重音」的比较规则，这个方法可能没用，所以优先级不如前两个。

内容的提问来源于stack exchange，提问作者Laczkó Máté