Excel VBA 删除含关键词行及下属缩进行、多关键词匹配实现问题

以下是同时满足两个需求的完整可运行代码：

Dim ws As Worksheet
Dim arrSearch As Variant
Dim lRow As Long, i As Long, j As Long
Dim delRange As Range
' 此处配置多个搜索关键词，按需增删即可
arrSearch = Array("Pursuit Adjustment", "第二个关键词", "第三个关键词")

Set ws = Sheets("PFSR All (formatted)")

With ws
    lRow = .Range("A" & .Rows.Count).End(xlUp).Row
    ' 清除已有筛选
    .AutoFilterMode = False
    
    ' 遍历所有行标记待删除范围
    For i = 1 To lRow
        ' 仅判断缩进等级为2的父级标题
        If .Range("A" & i).IndentLevel = 2 Then
            ' 匹配任意关键词即可触发删除
            For j = LBound(arrSearch) To UBound(arrSearch)
                If InStr(1, .Range("A" & i).Value, arrSearch(j), vbTextCompare) > 0 Then
                    ' 标记当前父级行
                    If delRange Is Nothing Then
                        Set delRange = .Rows(i)
                    Else
                        Set delRange = Union(delRange, .Rows(i))
                    End If
                    ' 向下标记所有关联的子级行（缩进等级3）
                    Dim k As Long
                    k = i + 1
                    Do While k <= lRow And .Range("A" & k).IndentLevel = 3
                        Set delRange = Union(delRange, .Rows(k))
                        k = k + 1
                    Loop
                    Exit For
                End If
            Next j
        End If
    Next i
    
    ' 统一删除所有标记行
    If Not delRange Is Nothing Then
        delRange.Delete
    End If
End With

逻辑说明 #

• 多关键词匹配：将原单一搜索变量替换为关键词数组arrSearch，新增关键词直接在数组中添加即可，默认不区分大小写匹配，如需区分大小写可将vbTextCompare修改为vbBinaryCompare。
• 父子标题连带删除：命中父级关键词后，自动向下遍历所有紧跟的缩进等级为3的子行，全部加入待删除范围，直到遇到下一个缩进等级为2的父级标题停止，避免误删其他父级的子标题。

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