我来帮你搞定这个批量删除的问题！你的原代码踩了几个新手常见的坑，导致多选或选整列时出错，而且只能删第一个匹配行。下面是修正后的代码，我会一步步给你讲清楚改进点：

修正后的完整代码 #

Sub DeleteMatchingRows()
    Dim inputRng As Range ' 要检查的目标列（比如你的B列）
    Dim deleteValuesRng As Range ' 存储匹配值的范围（比如你的C列）
    Dim cell As Range
    Dim deleteRows As Range
    Dim xTitleId As String
    Dim matchValue As Variant
    
    xTitleId = "选择操作范围"
    
    ' 弹出对话框让用户选择要检查的列（默认B列）
    Set inputRng = Application.InputBox("请选择要检查的列（例如B列）:", xTitleId, Columns("B").Address, Type:=8)
    ' 弹出对话框让用户选择匹配值的范围（默认C列）
    Set deleteValuesRng = Application.InputBox("请选择要匹配的值范围（例如C列）:", xTitleId, Columns("C").Address, Type:=8)
    
    ' 把匹配值存入数组，大幅提升查找速度（数据量大时效果明显）
    Dim deleteValues As Variant
    deleteValues = deleteValuesRng.Value
    
    ' 从最后一行往前遍历！这是避免漏删的关键
    For i = inputRng.Rows.Count To 1 Step -1
        Set cell = inputRng.Cells(i, 1)
        ' 检查当前单元格的值是否在匹配值列表里
        matchValue = Application.Match(cell.Value, deleteValues, 0)
        If Not IsError(matchValue) Then
            ' 如果匹配，把该行加入待删除的集合
            If deleteRows Is Nothing Then
                Set deleteRows = cell.EntireRow
            Else
                Set deleteRows = Union(deleteRows, cell.EntireRow)
            End If
        End If
    Next i
    
    ' 一次性删除所有匹配行，比逐行删效率高太多
    If Not deleteRows Is Nothing Then
        deleteRows.Delete
        MsgBox "搞定啦！所有匹配的行都已经删除～"
    Else
        MsgBox "没找到任何匹配的行，不用删啦😉"
    End If
End Sub

关键改进点说明 #

• 修复类型不匹配错误：原代码里直接用rng.Value = DeleteStr，这是把单元格值和一个Range对象对比，肯定会报错。现在用Application.Match来检查值是否在匹配范围内，完美解决类型问题。
• 从后往前遍历行：如果从第一行开始删，删除一行后下面的行会往上挪，导致循环跳过某些行。从最后一行倒着来，就不会有这个问题啦。
• 用数组存储匹配值：把C列的所有值存入数组，比每次去Range里找值快很多，数据越多越明显。
• 批量删除而非逐行删：先把所有要删的行收集起来，最后一次性删除，既高效又不会频繁刷新Excel界面。
• 友好的提示信息：不管有没有找到匹配行，都会给你弹个消息，一目了然。

使用方法 #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器。
2. 右键点击左侧的工作簿名称，选择「插入」→「模块」。
3. 把上面的代码粘贴到模块里。
4. 回到Excel界面，按下Alt + F8，选择DeleteMatchingRows这个宏，点击执行。
5. 跟着提示选择要检查的列（比如B列）和匹配值的范围（比如C列）就可以啦！

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