VBA如何存储InputBox输入值并在其他Excel工作簿中搜索对应数据

• 你通过InputBox获取的用户输入存储到了未声明的变量sReturn中，但后续搜索调用的是你提前声明好的变量stext，二者没有赋值关联，导致搜索值为空，无法匹配到对应内容
• 剪贴板相关的代码完全多余，不需要通过剪贴板存储输入值，直接把InputBox的返回值赋值给stext变量即可
• 原代码存在大量无意义的Activate、Select操作，稳定性差，且未做异常处理，出现用户取消输入、未找到匹配项等场景时会直接报错
• 错误跳转逻辑错误，原代码中On Error GoTo 0的作用是清除错误处理规则，并非跳转到代码末尾的0:标记

Sub 删除匹配行()
    Dim WB As Workbook
    Dim URL As String
    Dim WB1 As Workbook
    Dim stext As String
    Dim findRng As Range
    
    Set WB = ThisWorkbook
    ' 目标工作簿访问链接，保留原配置即可
    URL = "https://Training%20Materials/Admin%20recurring%20request%20Handbooks/Test/Updated%20Quality%20Tracker.xlsx?d=w68cd37bd0505426fb4d6fe38c21e23a8"
    Set WB1 = Workbooks.Open(URL)
    WB1.LockServerFile
    
    ' 获取用户输入的搜索编号，直接赋值给stext变量存储
    stext = InputBox("请输入要搜索的编号：")
    ' 处理用户点击取消、未输入内容的场景
    If stext = "" Then
        MsgBox "未输入搜索编号，程序已退出", vbExclamation
        WB1.Close SaveChanges:=False
        Exit Sub
    End If
    
    ' 在目标工作簿的第一个工作表中搜索匹配项，如需指定工作表可把Sheets(1)改成Sheets("表名")
    Set findRng = WB1.Sheets(1).Cells.Find(What:=stext, LookIn:=xlFormulas2, _
            LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
            MatchCase:=False, SearchFormat:=False)
    
    ' 判断是否找到匹配项
    If Not findRng Is Nothing Then
        ' 删除匹配项所在行
        findRng.EntireRow.Delete
        MsgBox "对应编号的相关信息已删除", vbOKOnly
        MsgBox "请继续更新新条目后提交"
        ' 保存修改后关闭目标工作簿，无需保存可改为SaveChanges:=False
        WB1.Close SaveChanges:=True
    Else
        MsgBox "未找到对应编号的匹配内容", vbExclamation
        WB1.Close SaveChanges:=False
    End If
End Sub

• 直接将InputBox返回值赋值给已声明的stext变量，实现输入值的存储与后续搜索调用，完全移除无用的剪贴板操作
• 增加了异常处理逻辑，覆盖用户取消输入、无匹配搜索结果的场景，避免程序直接崩溃
• 移除了所有无意义的激活、选中操作，直接通过工作簿、工作表对象操作内容，运行稳定性大幅提升
• 你如果需要精准匹配搜索内容，可以把LookAt:=xlPart改成LookAt:=xlWhole，避免部分字符匹配导致误删

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