如何通过InputBox删除与最后一个值相关的行

Sub DeleteRowsByLastValue()
    Dim lastValue As String
    Dim filePath As String
    Dim tempFile As String
    Dim inputFile As Object
    Dim outputFile As Object
    Dim line As String
    
    ' 弹出对话框，获取用户输入的值
    lastValue = InputBox("请输入要删除的值：")
    
    ' 获取文件路径
    filePath = "C:\path\to\your\file.txt"
    
    ' 创建临时文件
    tempFile = "C:\path\to\your\tempfile.txt"
    
    ' 打开文件
    Set inputFile = CreateObject("Scripting.FileSystemObject").OpenTextFile(filePath)
    Set outputFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(tempFile, True)
    
    ' 逐行读取文件内容
    Do Until inputFile.AtEndOfStream
        line = inputFile.ReadLine
        
        ' 检查每一行是否包含用户输入的值
        If InStr(line, lastValue) = 0 Then
            ' 如果不包含，则将该行写入临时文件
            outputFile.WriteLine line
        End If
    Loop
    
    ' 关闭文件
    inputFile.Close
    outputFile.Close
    
    ' 删除原文件
    Kill filePath
    
    ' 将临时文件重命名为原文件名
    Name tempFile As filePath
    
    ' 输出操作完成的提示信息
    MsgBox "已成功删除与最后一个值相关的行。"
End Sub