请求修正VBA宏以实现Excel全工作簿删除指定文本行

你的宏代码核心逻辑是对的（从下往上遍历删除行，避免因行索引偏移漏删），但存在一个关键的工作表对象引用缺失问题，导致只有第一个工作表的匹配行被删除，后续工作表的检查根本没在正确的工作表上执行。

问题根源 #

在RemoveRowsWithText过程中，你写的判断语句是：

If InStr(1, Cells(r, "B").Value, "[New Document]") = 1 Then

这里的Cells(r, "B")没有指定所属的工作表ws，默认会引用当前活动工作表（也就是第一个被遍历的A1工作表）。当循环到A2、A3工作表时，代码依然在A1的B列里查找文本，自然找不到A3里的[New Document]，也就不会删除对应的行。

修正后的完整代码 #

Option Explicit
Sub Master()
    Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        RemoveRowsWithText ws
    Next ws
End Sub
Sub RemoveRowsWithText(ws As Worksheet)
    Dim r As Long
    ' 明确引用当前传入的工作表ws的单元格
    For r = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row To 1 Step -1
        If InStr(1, ws.Cells(r, "B").Value, "[New Document]") = 1 Then
            ws.Rows(r).EntireRow.Delete
        End If
    Next r
End Sub

额外说明 #

1. 保留从下往上遍历的逻辑：这是删除行时的最佳实践，避免删除行后后续行索引偏移，导致漏删目标行。
2. InStr(1, ..., ...) = 1的判断：确保文本以[New Document]开头，不会误删包含该文本但不是开头的行。如果需要匹配任意位置包含该文本，只需去掉=1，改成InStr(...) > 0即可。

测试这个修正后的代码，就能实现跨所有工作表删除B列中以[New Document]开头的行——A1的B12、A3的B6会被删除，A2的B7会被保留。

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