VBA宏遇Runtime Error 1004及匹配不准确问题求助

核心问题拆解 #

1. 匹配结果不准确的原因 #

• 未指定数据来源工作表：原代码中[Ticker]/[Account]/[Amount]未明确指向WS2，默认引用当前激活工作表（WS1），导致匹配范围完全错误。
• 双条件匹配逻辑错误：直接将两个Match的行号相加，不符合双条件匹配的逻辑（双条件需要同时满足两个条件的行，而非行号叠加）。
• 错误处理失效：使用WorksheetFunction.Match会在无匹配时直接抛出运行时错误，无法进入IsError判断分支，导致结果异常。

2. Runtime Error 1004的原因 #

• 无匹配时直接报错：WorksheetFunction.Match找不到匹配值时会触发1004错误，未被捕获。
• 范围引用不明确：未指定工作表的命名区域可能指向错误范围，引发越界。

修正后的代码 #

Sub UpdateReport()
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim valcol As Range
    Dim therow As Long
    Dim targetAccount As String
    Dim matchRow As Variant
    Dim tickerVal As String
    Dim lastRowWS2 As Long ' 优化：限制WS2的数据范围，提升效率

    ' 绑定工作表对象，避免默认引用错误
    Set ws1 = ThisWorkbook.Worksheets("WS1")
    Set ws2 = ThisWorkbook.Worksheets("WS2")
    
    ' 获取锁定的Account值（WS1的M3）
    targetAccount = ws1.Cells(3, 13).Value
    ' 定义目标写入范围（WS1的M8至M300）
    Set valcol = ws1.Range("M8:M300")
    
    ' 获取WS2的实际数据最后一行（按Ticker列B列判断）
    lastRowWS2 = ws2.Cells(ws2.Rows.Count, "B").End(xlUp).Row

    Application.ScreenUpdating = False

    ' 遍历目标写入范围的每一行
    For therow = valcol.Row To valcol.Row + valcol.Rows.Count - 1
        tickerVal = ws1.Cells(therow, 2).Value ' 当前行的Ticker值（WS1的B列）
        
        ' 双条件匹配：同时匹配WS2的Ticker(B列)和Account(C列)
        matchRow = Application.Match(1, _
            (ws2.Range("B2:B" & lastRowWS2) = tickerVal) * _
            (ws2.Range("C2:C" & lastRowWS2) = targetAccount), _
            0)

        If Not IsError(matchRow) Then
            ' 提取对应E列的Amount值（+1是因为匹配范围从第2行开始，跳过表头）
            ws1.Cells(therow, 13).Value = ws2.Cells(matchRow + 1, 5).Value
        Else
            ws1.Cells(therow, 13).Value = 0
        End If
    Next therow

    Application.ScreenUpdating = True
End Sub

关键优化点 #

• 明确工作表引用：通过Set ws1/Set ws2绑定目标工作表，彻底避免跨表引用错误。
• 正确的双条件匹配：使用Application.Match结合数组条件(条件1)*(条件2)，只有当两个条件同时满足时乘积为1，精准定位目标行。
• 限制数据范围：通过lastRowWS2获取WS2的实际数据行数，避免遍历整列，大幅提升运行效率。
• 可靠的错误处理：Application.Match在无匹配时返回错误值，可通过IsError捕获并设置默认值0，避免运行时错误。

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