Excel VBA中Application.Match匹配后选否无法删除目标行问题

行删除功能完全失效由2个直接逻辑错误导致，另有3处不规范写法会引发后续异常：

• 第一处核心错误：MsgBox返回值未接收，删除判断逻辑永远不触发
  代码弹出确认框后，没有将用户的选择结果赋值给判断用的变量，Result属于未初始化的变体型变量，默认值为空，永远不会等于常量vbNo（值为7），因此删除行的代码从始至终没有被执行过，这是功能失效的根本原因。
• 第二处核心错误：跨Excel实例调用函数，对象归属混淆
  代码通过Dim App As New Excel.Application新建了独立的后台Excel进程打开数据库文件，但所有Application.Match调用都没有指定归属到新建的App实例，默认会调用当前运行宏的宿主Excel进程的Match方法，跨进程读取隐藏工作簿数据时会出现取值异常，哪怕修复弹窗问题，也可能出现匹配行号错误、删错行的问题。
• 冗余无效代码：m = Application.Match(id, 5, 0)不符合Match函数的参数规则（第二个参数必须是查找的单元格区域，此处传入数字5），属于测试残留的无效代码，无实际作用但会干扰排查。
• 重复赋值：With wBook.Sheets("database")块内重复执行Set ws = wBook.Sheets("database")，属于无意义的重复操作。
• 潜在运行时错误：代码在判断CurrentRow是否为错误值之前，就执行了CurrentCell = ws.Cells(CurrentRow, 1)的读取操作，一旦匹配不到重复数据，这行直接抛出运行时错误，只是测试时刚好命中重复值场景才没有触发报错。

Sub Submit_Data()
    Application.ScreenUpdating = False
 
    Dim App As New Excel.Application
    Dim wBook As Excel.Workbook
    Dim ws As Worksheet, id
    Dim FileName As String
 
    Dim CurrentJob As String
    Dim CurrentRow As Variant
    Dim CurrentCell As Variant
    Dim iRow As Long
    Dim msgResult As VbMsgBoxResult ' 显式声明弹窗结果变量
 
    FileName = ThisWorkbook.Path & "\database.xlsm"
 
    ' 校验数据库文件是否存在
    If Dir(FileName) = "" Then
        MsgBox "数据库文件丢失，无法继续操作", vbOKOnly + vbCritical, "错误"
        GoTo SafeExit
    End If
 
    Set wBook = App.Workbooks.Open(FileName)
    App.Visible = False
 
    If wBook.ReadOnly = True Then
        TryWriteMode book:=wBook _
                   , numberOfTries:=4 _
                   , secondsWaitAfterFailedTry:=10
    End If
    If wBook.ReadOnly Then
        MsgBox "数据库正被占用，请稍后再试", vbOKOnly + vbInformation, "文件只读"
        GoTo SafeExit
    End If
 
    ' 数据写入/去重逻辑
    id = TextBox2.Value
    Set ws = wBook.Sheets("database")
    With ws
        CurrentJob = TextBox2.Value
        ' 明确调用后台App实例的Match方法，避免跨进程调用异常
        CurrentRow = App.Match(CurrentJob, .Range("B:B"), 0)
 
        If IsError(CurrentRow) Then
            ' 无重复值，新增行写入数据
            iRow = .Range("A" & App.Rows.Count).End(xlUp).Row + 1
            .Range("A" & iRow).Value = TextBox1.Value ' 所属单元格
            .Range("B" & iRow).Value = TextBox2.Value ' 工单号
            .Range("C" & iRow).Value = TextBox3.Value ' 产品编号
            .Range("D" & iRow).Value = TextBox4.Value ' 工单数量
        Else
            ' 匹配到重复值，先读取对应信息再弹框
            CurrentCell = .Cells(CurrentRow, 1).Value
            ' 接收用户弹窗选择结果（原代码缺失的核心步骤）
            msgResult = MsgBox("工单已分配给 " & CurrentCell & vbNewLine & "是否保留原有记录？", vbYesNo + vbQuestion)
            If msgResult = vbNo Then
                ' 用户选择不保留，删除匹配到的重复行
                .Rows(CurrentRow).EntireRow.Delete
            End If
        End If
    End With
         
    wBook.Close Savechanges:=True

SafeExit:
    ' 统一释放资源，避免后台残留隐藏Excel进程占用文件
    If Not wBook Is Nothing Then
        If Not wBook.Saved Then wBook.Close Savechanges:=False
        Set wBook = Nothing
    End If
    If Not App Is Nothing Then
        App.Quit
        Set App = Nothing
    End If
         
    ' 重置表单
    Call resetForm
    Application.ScreenUpdating = True
       
End Sub

• 新增显式声明的msgResult变量接收MsgBox的用户选择结果，确保删除逻辑的判断条件可以正常触发
• 所有涉及后台App实例的Excel方法（Match、Rows.Count）都增加App.前缀，避免和当前宿主Excel的全局对象混淆
• 将读取CurrentCell的逻辑移动到匹配成功的分支内，避免匹配不到数据时触发运行时错误
• 删除无效的测试残留代码，移除重复的工作表赋值操作
• 增加统一的资源退出入口，避免代码中途退出时后台残留隐藏Excel进程，导致数据库文件被持续占用
• 修正原代码中弹窗文本、MsgBox参数的书写错误

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