VBA用Match/VLookup报Object Required错误 加WorksheetFunction仍无效求助

• 工作表引用语法不匹配：代码中直接写Subcon!C1是Excel单元格公式的Range写法，并非VBA代码的合法引用格式。VBA不会自动将代码中的Subcon识别为当前工作簿下的同名工作表，由于没有提前通过Set语句完成工作表对象绑定，VBA在当前作用域找不到名为Subcon的实体对象，直接触发“Object Required”错误。
• 冗余对象创建：代码中Set ThisApp = CreateObject("Excel.Application")逻辑完全多余——当前VBA代码本身就运行在现有Excel进程中，不需要单独新建独立的Excel应用实例，这段代码既没有后续调用逻辑，还会在后台生成无关联的隐藏Excel进程，徒增内存占用和报错可能。
• 函数调用逻辑错配：通过Application.WorksheetFunction.Match调用匹配函数时，只要匹配不到目标值，VBA会直接抛出运行时错误1004，根本不会返回错误值供IsError()判断，和你写的分支判断逻辑完全不兼容。

修正覆盖所有报错点：删除冗余的新建Excel实例代码、显式绑定工作表对象、调整函数调用方式适配错误判断逻辑、移除无意义的单元格选中操作、优化循环稳定性。

Sub SkipIfNoUpdate()
    Dim updateneeded As Boolean
    'updateneeded = True
    
    Dim sht As Worksheet
    Set sht = Worksheets("Capacity_Offer_Trial")
    
    ' 显式绑定Subcon工作表对象，替代原有的错误裸引用
    Dim subconSht As Worksheet
    Set subconSht = Worksheets("Subcon")
    
    Dim LastRowCap As Long
    LastRowCap = sht.Cells(sht.Rows.Count, "D").End(xlUp).Row
    
    ' 用Long类型替代Integer，避免工作表行数超过32767时出现溢出错误
    Dim i As Long
    i = 4
    
    Do While i < LastRowCap + 1
        ' 用Application.Match替代Application.WorksheetFunction.Match，无匹配时返回错误值而非直接抛错
        If IsError(Application.Match(sht.Cells(i, "D").Value, subconSht.Range("C:C"), 0)) = True Then
            MsgBox "APPLY FORMULA TO THIS ROW"
        Else
            MsgBox "Do nothing for this row"
        End If
        i = i + 1
    Loop
End Sub

• 所有单元格引用尽量明确标注父对象（比如写sht.Cells(i,"D")而非裸写Cells(i,4)），避免当前激活工作表和目标操作表不一致时出现引用错位。
• 循环遍历过程中不要使用.Select/.Activate操作，这类UI层交互不是数据操作的必需步骤，会大幅拖慢循环运行效率。
• 如果工作表名称包含空格、特殊字符，直接将完整表名写在Worksheets()的引号内完成绑定即可，不需要套用公式场景下的感叹号引用格式。

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