如何用普通字母在Excel中搜索含重音的名字（VBA实现）

要实现用普通字母搜索带重音的名字，核心思路是搜索时临时将用户输入和表格内容都转为无重音版本进行匹配，这样既保留原数据的重音符号，又能实现模糊匹配。

1. 通用无重音转换函数 #

替换你现有的手动ASCII判断代码，用StrConv函数可以更高效、全面地移除所有重音符号：

Function RemoveAccents(inputStr As String) As String
    ' 将字符串转换为无重音的版本
    RemoveAccents = StrConv(StrConv(inputStr, vbNarrow), vbDiacritics)
End Function

这个函数利用VBA内置的字符转换功能，自动处理所有带重音的字符（包括你代码里的Ç、É、Ñ等，以及其他更多重音形式），无需手动枚举ASCII码。

2. 整合到用户窗体搜索逻辑 #

假设你的用户窗体文本框名为txtSearch，数据在工作表Sheet1的A列（姓名列），可以在搜索按钮的点击事件里写如下代码：

Private Sub btnSearch_Click()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim searchKey As String
    Dim cellValue As String
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    searchKey = LCase(RemoveAccents(txtSearch.Text)) ' 转为小写无重音
    
    ' 先取消之前的筛选
    ws.AutoFilterMode = False
    
    ' 遍历数据行进行匹配
    For i = 2 To lastRow ' 假设第1行是表头
        cellValue = LCase(RemoveAccents(ws.Cells(i, "A").Value))
        ' 判断无重音后的内容是否包含搜索关键词
        If InStr(1, cellValue, searchKey, vbTextCompare) > 0 Then
            ws.Rows(i).Hidden = False
        Else
            ws.Rows(i).Hidden = True
        End If
    Next i
End Sub

3. 大数据量优化版本 #

针对13700行的数据集，用数组批量处理能提升搜索效率：

Private Sub btnSearch_Click()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim searchKey As String
    Dim i As Long
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    dataArr = ws.Range("A2:A" & lastRow).Value ' 将数据读入数组
    searchKey = LCase(RemoveAccents(txtSearch.Text))
    
    ws.AutoFilterMode = False
    ws.Rows("2:" & lastRow).Hidden = True ' 先隐藏所有行
    
    For i = 1 To UBound(dataArr)
        If InStr(1, LCase(RemoveAccents(dataArr(i, 1))), searchKey) > 0 Then
            ws.Rows(i + 1).Hidden = False ' 显示匹配行
        End If
    Next i
End Sub

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