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

通过InputBox删除与最后一个值相关的行，可以按照以下步骤进行操作：

首先，使用InputBox函数弹出一个对话框，让用户输入要删除的值。
获取用户输入的值，并将其存储在一个变量中。
打开要进行操作的文件或数据源。
逐行读取文件或数据源中的内容。
检查每一行是否包含用户输入的值。
如果某一行包含用户输入的值，则将该行从文件或数据源中删除。
继续读取下一行，直到读取完所有行。
关闭文件或数据源。
输出操作完成的提示信息。

以下是一个示例代码，演示如何通过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

这段代码使用VBScript编写，可以在Excel的宏中运行。用户可以通过输入框输入要删除的值，代码将逐行读取文件内容，并将不包含用户输入值的行写入临时文件。最后，将临时文件重命名为原文件名，完成删除操作。请将代码中的文件路径替换为实际的文件路径。