Excel VBA宏失效排查：跨工作表数据匹配脚本无响应

问题描述 #

原宏功能为：从"Push"工作表B列读取值，匹配"Official"工作表A列的编号，匹配成功后将"Official"对应行C列的内容写入"Push"对应行D列。此前运行正常，一月后突然失效——点击运行无任何反应，也无报错提示。已确认宏已启用，重启表格后问题依旧，怀疑代码被改动。

原代码如下：

Sub AcceptedConditions()
    Dim Cl As Range
    Dim Dic As Object
    
    Set Dic = CreateObject("scripting.dictionary")
    With Sheets("OFFICIAL")
        For Each Cl In .Range("A2", .Range("A" & Rows.Count).End(xlUp))
            Dic(Cl.Value) = Cl.Offset(, 2).Value
        Next Cl
    End With
    With Sheets("Push")
        For Each Cl In .Range("B2", .Range("B" & Rows.Count).End(xlUp))
            If Dic.exists(Cl.Value) Then Cl.Offset(, 2).Value = Dic(Cl.Value)
        Next Cl
    End With
End Sub

可能的失效原因 #

• 工作表名称大小写不匹配：代码中写的是Sheets("OFFICIAL")，但实际工作表名称是"Official"（大小写不同），部分Excel环境中Sheets集合区分大小写，导致找不到工作表，代码静默终止。
• 数据类型不一致："Push"表B列和"Official"表A列的数据类型不同（比如一个是文本型编号，一个是数值型），字典无法匹配到对应键，看起来像没执行操作。
• 数据范围为空："Official"表A2以下无数据，或"Push"表B2以下无数据，循环根本没执行。
• 重复键覆盖："Official"表A列存在重复编号，后面的行覆盖了前面的字典值，导致部分匹配失效（但不会完全没反应）。

排查与修复步骤 #

基础排查项 #

1. 核对工作表名称：确认两个工作表的名称和代码中的完全一致（包括大小写）。
2. 检查数据格式：用=TYPE()函数验证两列数据类型，比如在空白单元格输入=TYPE(Push!B2)和=TYPE(Official!A2)，返回1是数值，2是文本——不一致的话统一格式（比如都设置为文本）。
3. 确认数据存在：手动查看"Official"表A2及以下、"Push"表B2及以下是否有数据。

修复后的代码（解决常见问题） #

修改后的代码增加了错误提示、数据类型统一、大小写兼容，还能反馈执行状态：

Sub AcceptedConditions()
    Dim Cl As Range
    Dim Dic As Object
    Dim wsOfficial As Worksheet
    Dim wsPush As Worksheet
    
    ' 捕获找不到工作表的错误
    On Error Resume Next
    Set wsOfficial = ThisWorkbook.Sheets("Official")
    Set wsPush = ThisWorkbook.Sheets("Push")
    On Error GoTo 0
    
    ' 检查工作表是否存在
    If wsOfficial Is Nothing Or wsPush Is Nothing Then
        MsgBox "找不到指定工作表，请检查名称是否正确（注意大小写）", vbExclamation
        Exit Sub
    End If
    
    Set Dic = CreateObject("scripting.dictionary")
    Dic.CompareMode = vbTextCompare ' 开启大小写不敏感匹配（可选）
    
    With wsOfficial
        ' 确认起始行有数据再执行循环
        If .Range("A2").Value <> "" Then
            For Each Cl In .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
                ' 统一转换为文本存储，避免数据类型不匹配
                Dic(CStr(Cl.Value)) = Cl.Offset(, 2).Value
            Next Cl
        End If
    End With
    
    With wsPush
        If .Range("B2").Value <> "" Then
            For Each Cl In .Range("B2", .Range("B" & .Rows.Count).End(xlUp))
                ' 转换为文本后匹配
                If Dic.exists(CStr(Cl.Value)) Then
                    Cl.Offset(, 2).Value = Dic(CStr(Cl.Value))
                End If
            Next Cl
        End If
    End With
    
    MsgBox "匹配写入完成！", vbInformation
End Sub

调试技巧 #

按F8键逐行运行代码，观察每一步的变量值（比如wsOfficial是否成功赋值、字典里有没有数据），能快速定位问题点。

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