如何用Application.Match查找匹配值并修改Excel表格对应值

你代码运行报错的核心原因有4个：

• 错误值直接传入MsgBox触发类型不匹配：Application.Match在找不到匹配项时会返回Error类型值，这类值无法直接被MsgBox转成字符串输出，必须先通过IsError()判断结果类型后再做后续处理。
• 查找值传参错误：你当前给Match传入的第一个参数是循环行号i（16~29的数字），但从逻辑看你实际要查找的是General工作表A列对应行的单元格内容，不是行号本身。
• 查找区域传参类型错误：TargetTable.ListColumns(1)返回的是ListColumn对象，不是Match要求的单元格区域对象，需要取它的DataBodyRange属性，才是表格第一列的实际数据区域。
• 变量声明不一致：你代码里声明了名为Assignments的工作表变量，实际赋值时用的是未声明的Opdrachten，如果没开强制变量声明，VBA会自动创建空的变体型变量，容易引发隐性bug。

' 建议模块最开头添加 Option Explicit，强制所有变量先声明再使用，避免拼写错误
Dim i As Integer
Dim Opdrachten As Worksheet
Dim TargetTable As ListObject
Dim TargetRW As Variant
Dim searchVal As Variant

' 固定对象提前初始化，不用每次循环重复赋值浪费性能
Set Opdrachten = ThisWorkbook.Sheets("Jobs")
Set TargetTable = Opdrachten.ListObjects("Assignments")

For i = 16 To 29
    searchVal = ThisWorkbook.Sheets("General").Range("A" & i).Value
    ' 跳过空单元格
    If searchVal <> "" Then
        MsgBox "当前查找值：" & searchVal
        ' 传入正确的查找值和查找区域做匹配
        TargetRW = Application.Match(searchVal, TargetTable.ListColumns(1).DataBodyRange, 0)
        
        ' 先判断匹配结果再操作
        If Not IsError(TargetRW) Then
            MsgBox "匹配成功，目标在表格内的行号：" & TargetRW
            TargetTable.DataBodyRange.Cells(TargetRW, 6) = "Yes"
        Else
            MsgBox "Error, already verified."
        End If
    End If
Next i

• 把工作表、ListObject这类不会随循环变化的对象赋值移到循环外，减少重复的对象创建操作，运行效率更高。
• 把待查找的单元格值提前存入变量，避免重复读取单元格，也方便后续调试排查问题。
• 所有涉及Match、VLookup这类可能返回错误值的函数，必须先做错误校验，再执行弹框、取值、赋值操作，避免运行时中断。
• 模块开头加Option Explicit是VBA开发的最佳实践，可以从根源避免变量名拼写错误、未声明变量这类低级问题。

内容的提问来源于stack exchange，提问作者Theo de Wit