Excel VBA按条件删除指定行代码无效排查求助（含代码）

原代码核心问题分析 #

1. InStr函数误用通配符：InStr不支持*作为通配符，你写的*8951MFS3*和*----------*会把*当作普通字符匹配，导致根本找不到目标关键词或分隔符，这是代码无效果的首要原因。
2. 逻辑流程缺失：找到关键词时直接尝试删除行，但此时endRow可能还未被赋值（未找到当前案例的下方分隔符），导致删除条件endRow > startRow无法满足。
3. 变量初始化与重置逻辑不完善：未正确处理案例边界，处理完一个案例后未及时重置变量，可能影响后续案例判断。

修正后的代码 #

Sub DeleteDuplicateCases()
    Dim lastRow As Long
    Dim caseEndRow As Long
    Dim foundKeyword As Boolean
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Sheets("Revision")
    lastRow = GetLastRow(ws.Cells)
    
    ' 从下往上遍历，避免删除行导致的索引混乱
    caseEndRow = lastRow + 1 ' 初始化案例结束行（第一个案例的下方边界）
    foundKeyword = False
    
    For i = lastRow To 1 Step -1
        ' 匹配分隔符（直接匹配"--------"，无需通配符）
        If Trim(ws.Cells(i, 1).Value) = "--------" Then
            ' 如果当前案例中找到过关键词，删除整个案例（分隔符之间的行）
            If foundKeyword Then
                ws.Range(ws.Cells(i + 1, 1), ws.Cells(caseEndRow - 1, 1)).EntireRow.Delete
            End If
            ' 更新案例边界，重置关键词标记
            caseEndRow = i
            foundKeyword = False
        ' 匹配关键词（检查单元格是否包含"8951MFS3"）
        ElseIf InStr(1, ws.Cells(i, 1).Value, "8951MFS3", vbTextCompare) > 0 Then
            foundKeyword = True
        End If
    Next i
End Sub

修正说明 #

• 移除通配符：直接用Trim(ws.Cells(i,1).Value) = "--------"匹配分隔符，用InStr直接查找关键词子串，确保正确识别目标内容。
• 调整逻辑流程：先标记当前案例是否包含关键词，遇到分隔符时再判断是否删除该案例所有行，确保案例上下边界被正确捕获。
• 优化变量管理：初始化案例结束行，每次遇到分隔符时重置边界和关键词标记，避免逻辑混乱。
• 可读性优化：重命名变量为语义化名称，便于后续维护。

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