将跨工作表INDEX/MATCH公式转换为VBA代码求助

我想实现跨工作表的可变INDEX/MATCH查找，试了好几种方法都没成功，具体情况如下：

• 涉及两个工作表：Job 1 和 Jobs
• Job 1 单元格分工：E3是作业类型（对应Jobs里的表格名称），H3是要查找的Title，L3用来输出匹配到的Job #
• Jobs 工作表里有15个动态表格：每个表格宽4列、行数不固定，表头在第2行，数据从第3行开始；第一个表格FRM5从AP列开始，所有表格的表头统一为 Title、Job #、WO # Tier
• 已有可用的嵌套IF+INDEX/MATCH公式，但需要转成VBA代码，而且必须引用表格的动态列范围（不能用固定行范围，否则数据超过200行会遗漏），最终要实现根据Title提取对应Job #的功能

我当前写的VBA代码如下（用的是MS 365），请帮忙修正：

Dim Jobs As Worksheet
Set Jobs = Worksheets("Jobs")
Dim Job1 As Worksheet
Set Job1 = Worksheets("Job 1")

If Job1.Range("E3").Value = "FRM 5" Then

Job1.Range("L3").Value = worksheetfuncion.Index(Jobs.Range("AQ3:AQ200"), WorksheetFunction.Match(Job1.Range("E3").Value, _
Jobs.Range("Ap3:Ap200"), 0))

End If

原代码存在几个问题：

1. worksheetfuncion 拼写错误，应为 WorksheetFunction
2. Match查找值误用了E3（作业类型），实际应该用H3（要查找的Title）
3. 固定行范围（AQ3:AQ200）无法适配动态表格的行数变化

下面是适配动态表格的修正代码，通过ListObject（Excel表格对象）引用动态范围，自动适配行数变化：

Sub GetJobNumber()
    Dim wsJobs As Worksheet
    Dim wsJob1 As Worksheet
    Dim targetTable As ListObject
    Dim titleCol As ListColumn
    Dim jobNumCol As ListColumn
    Dim matchRow As Variant
    
    ' 初始化工作表对象
    Set wsJobs = ThisWorkbook.Worksheets("Jobs")
    Set wsJob1 = ThisWorkbook.Worksheets("Job 1")
    
    ' 获取目标表格名称（注意：如果Jobs里的表格名称是"FRM5"而非"FRM 5"，需要调整E3的输入或此处的处理）
    Dim tableName As String
    tableName = wsJob1.Range("E3").Value
    
    ' 尝试找到对应表格
    On Error Resume Next
    Set targetTable = wsJobs.ListObjects(tableName)
    On Error GoTo 0
    
    ' 如果表格存在，执行查找
    If Not targetTable Is Nothing Then
        ' 获取Title列和Job #列对象
        Set titleCol = targetTable.ListColumns("Title")
        Set jobNumCol = targetTable.ListColumns("Job #")
        
        ' 查找匹配的行号
        matchRow = Application.Match(wsJob1.Range("H3").Value, titleCol.DataBodyRange, 0)
        
        ' 如果找到匹配项，输出结果
        If Not IsError(matchRow) Then
            wsJob1.Range("L3").Value = jobNumCol.DataBodyRange.Cells(matchRow, 1).Value
        Else
            wsJob1.Range("L3").Value = "未找到匹配项"
        End If
    Else
        wsJob1.Range("L3").Value = "无效的表格名称"
    End If
End Sub

代码说明 #

• 用ListObject直接引用Jobs里的动态表格，自动识别表格的完整数据范围，无需固定行号
• 通过ListColumns精准定位Title和Job #列，避免列位置变化导致的错误
• 增加了错误处理：如果表格名称无效或找不到匹配的Title，会给出明确提示
• 使用Application.Match而非WorksheetFunction.Match，找不到匹配时返回错误值而非直接抛出运行时错误，便于后续处理

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