跨两个工作簿同名工作表循环执行VLOOKUP匹配的VBA实现问题

原有代码问题 #

• 原有代码中w变量是按工作表的位置索引调用，不是按照工作表名称匹配，完全不符合“同名数字工作表执行匹配”的需求
• 预设w的最大值为41，超过41的数字名称工作表不会被处理，适配性极差
• 未判断Workbook B中是否存在对应名称的工作表，缺少容错逻辑
• 嵌套循环放在行遍历内部，运行效率极低
• 滥用On Error Resume Next会掩盖实际运行错误
• 不必要的sh.Activate操作容易因为活动工作表切换导致引用错乱

实现逻辑说明 #

不需要单独对字符串做递增计数，直接按以下逻辑执行即可：

• 遍历Workbook A（当前运行宏的工作簿）的所有工作表，先判断工作表名称是否为纯数字
• 每次先检查Workbook B中是否存在同名的数字工作表，不存在则直接跳过
• 匹配逻辑放在行循环外层，避免重复遍历工作表
• 改用Application.VLookup替代WorksheetFunction.VLookup，自带容错不需要额外捕获错误

Sub 同名表VLOOKUP匹配()
    Dim shA As Worksheet, shB As Worksheet
    Dim LR As Long, i As Long
    Dim wbB As Workbook
    
    ' 绑定已打开的Workbook B
    On Error Resume Next
    Set wbB = Workbooks("WorkbookB.xlsx")
    On Error GoTo 0
    If wbB Is Nothing Then
        MsgBox "请先打开WorkbookB.xlsx文件再运行宏", vbCritical
        Exit Sub
    End If
    
    ' 遍历Workbook A所有工作表
    For Each shA In ThisWorkbook.Sheets
        ' 仅处理名称为纯数字的工作表
        If IsNumeric(shA.Name) Then
            ' 检查Workbook B中是否存在同名工作表
            On Error Resume Next
            Set shB = wbB.Worksheets(shA.Name)
            On Error GoTo 0
            
            If Not shB Is Nothing Then
                ' 获取当前表A列的最大行号
                LR = shA.Range("A" & shA.Rows.Count).End(xlUp).Row
                ' 遍历指定行执行匹配
                For i = 31 To LR
                    shA.Cells(i, "E").Value = Application.VLookup(shA.Cells(i, "A").Value, shB.Range("A31:E1000"), 5, False)
                Next i
                ' 重置工作表变量
                Set shB = Nothing
            End If
        End If
    Next shA
    MsgBox "匹配操作完成", vbInformation
End Sub

代码优势 #

• 提前绑定Workbook B对象，避免重复调用系统资源查找文件
• 增加了文件打开判断、工作表存在判断，不会因为缺少对象报错
• 所有单元格引用都明确绑定所属工作表，不会出现活动工作表切换导致的引用错误
• 匹配失败时E列会自动留空，符合不存在对应值的预期
• 只处理名称为纯数字的工作表，其他名称的工作表会自动跳过，符合需求
• 没有预设数字名称的最大值，哪怕工作表名是100+也可以正常处理

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