Excel中如何批量删除同一引用编号下L列全为X的所有行？

核心思路 #

• 先统计每个8位引用编号（N列）对应的L列是否存在Y：用字典记录每个编号的"含Y状态"，只要有一行是Y，就标记为保留；全是X则标记为删除。
• 反向遍历行删除：从最后一行往前删，避免删除行导致后续行索引错位，保证遍历准确。

VBA代码实现 #

Sub DeletePureXRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim r As Long
    Dim refDict As Object
    Dim refNum As String
    Dim hasY As Boolean
    
    ' 指定目标工作表，这里用Sheet3，可自行修改
    Set ws = ThisWorkbook.Sheets("Sheet3")
    ' 获取N列最后一行的行号（避免遍历空行）
    lastRow = ws.Cells(ws.Rows.Count, "N").End(xlUp).Row
    ' 创建字典用来存每个引用编号的含Y状态
    Set refDict = CreateObject("Scripting.Dictionary")
    
    ' 第一遍遍历：统计每个编号是否有Y
    For r = 1 To lastRow
        refNum = ws.Cells(r, "N").Value
        ' 跳过空的引用编号
        If refNum <> "" Then
            hasY = (ws.Cells(r, "L").Value = "Y")
            ' 字典里已有该编号的话，只要之前没标记过Y，就更新状态
            If refDict.Exists(refNum) Then
                refDict(refNum) = refDict(refNum) Or hasY
            Else
                refDict(refNum) = hasY
            End If
        End If
    Next r
    
    ' 第二遍遍历：从后往前删全X的编号行
    For r = lastRow To 1 Step -1
        refNum = ws.Cells(r, "N").Value
        If refNum <> "" Then
            ' 如果该编号没有Y（全X），删除整行
            If Not refDict(refNum) Then
                ws.Rows(r).EntireRow.Delete
            End If
        End If
    Next r
    
    ' 释放内存
    Set refDict = Nothing
    Set ws = Nothing
    
    MsgBox "处理完成！"
End Sub

代码说明 #

• 字典统计：一次遍历就能完成所有编号的状态记录，效率极高，适合5万行的大数据量。
• 反向删除：从最后一行开始遍历，删除行后不会影响前面未遍历的行的索引，避免漏删或错删。
• 空值处理：跳过N列空的行，避免无效统计。

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