Excel VBA跨工作簿匹配列表时大小写识别失效的解决方法

原有代码存在的核心问题 #

• 默认字符串比对规则受大小写影响，遇到如“New York”和“NEW YORK”的同名称不同格式场景时，无法触发匹配
• 存在变量命名笔误（原代码中已声明my_File，实际调用时写为myFile）、匹配逻辑方向倒置、变量类型声明不严谨的问题，容易触发运行报错

大小写适配的嵌入逻辑 #

你提到的UCase(对比项1)=UCase(对比项2)逻辑，不需要依赖Range.Find的复杂参数配置，直接在每次比对文本前，将两侧待匹配的城市名统一转换为大写格式，即可彻底消除大小写差异对匹配结果的干扰。

适配修正后的可直接运行代码 #

Sub 城市人口匹配回填()
    Application.ScreenUpdating = False
    
    Dim my_Filename As Variant
    Dim ext_Wb As Workbook, cur_Wb As Workbook
    Dim cur_Ws As Worksheet, ext_Ws As Worksheet
    Dim i As Long
    Dim matchDict As Object
    
    ' 绑定当前打开的内置城市列表工作簿，避免硬编码文件名导致的路径错误
    Set cur_Wb = ThisWorkbook
    Set cur_Ws = cur_Wb.Sheets("Sheet1")
    
    ' 弹出文件选择框，供用户选取外部最新人口统计文件
    my_Filename = Application.GetOpenFilename(FileFilter:="Excel 文件, *xl*;*.xm*")
    If my_Filename = False Then
        Application.ScreenUpdating = True
        Exit Sub
    End If
    
    Set ext_Wb = Workbooks.Open(my_Filename)
    Set ext_Ws = ext_Wb.Sheets("list")
    Set matchDict = CreateObject("Scripting.Dictionary")
    
    ' 第一步：加载当前工作簿的城市列表，统一做无大小写处理后存入映射字典
    For i = 15 To cur_Ws.Range("A" & cur_Ws.Rows.Count).End(xlUp).Row
        ' 以转大写后的城市名为字典键，存储对应行号，自动消除大小写、首尾空格的影响
        matchDict(UCase(Trim(cur_Ws.Range("A" & i).Value))) = i
    Next i
    
    ' 第二步：遍历外部人口文件的条目，匹配成功后回填数值到B列空单元格
    For i = 2 To ext_Ws.Range("A" & ext_Ws.Rows.Count).End(xlUp).Row
        Dim extCity As String
        extCity = UCase(Trim(ext_Ws.Range("A" & i).Value))
        If matchDict.Exists(extCity) Then
            ' 将外部C列存储的人口数值，写入当前工作簿对应城市的B列空单元格
            cur_Ws.Range("B" & matchDict(extCity)).Value = ext_Ws.Range("C" & i).Value
        End If
    Next i
    
    ' 关闭外部文件，不保存临时改动
    ext_Wb.Close SaveChanges:=False
    
    Set matchDict = Nothing
    Application.ScreenUpdating = True
    MsgBox "数据匹配回填完成"
End Sub

使用说明 #

• 代码完全覆盖你提到的大小写匹配需求，只要两侧城市名拼写完全一致，不管大小写格式差异、首尾多余空格，都能正常识别匹配
• 相比原代码的逐行查找逻辑，用字典做映射的匹配方式运行速度更快，不会受Excel默认查找规则的影响
• 实际落地时，如果你的外部文件中城市名、人口值所在的列号和示例不同，只需要修改代码中对应的单元格引用位置即可

注意：不要硬编码当前工作簿的文件名，用ThisWorkbook对象绑定的方式，不管文件存放在什么路径、叫什么名字，只要是运行这段代码的工作簿，都能正常识别A列城市列表

内容的提问来源于stack exchange，提问作者dee.a