如何通过VBA基于列值保留特定行并删除其余行

你的原代码是删除A列值为"ITT1"的行，现在要反转逻辑，保留A列值为"ITT1"的行、删除其他行，下面是几种更合理的实现方式：

方案1：修改原循环的判断逻辑（最小改动） #

直接把原代码的判断条件反转，同时优化最后一行的获取方式（动态获取实际数据的最后一行，比固定10000更灵活）：

With ActiveSheet
    Dim FirstRow As Long, LastRow As Long, Row As Long
    FirstRow = 4
    ' 动态获取A列最后一个有数据的行
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For Row = LastRow To FirstRow Step -1
        ' 不等于"ITT1"的行就删除
        If .Range("A" & Row).Value <> "ITT1" Then
            .Range("A" & Row).EntireRow.Delete
        End If
    Next Row
End With

方案2：批量收集后删除（提升效率） #

逐行删除会频繁操作工作表，数据量大时速度很慢。可以先把要删除的行收集起来，一次性删除：

With ActiveSheet
    Dim FirstRow As Long, LastRow As Long, Row As Long
    Dim deleteRows As Range
    FirstRow = 4
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For Row = FirstRow To LastRow
        If .Range("A" & Row).Value <> "ITT1" Then
            If deleteRows Is Nothing Then
                Set deleteRows = .Range("A" & Row)
            Else
                Set deleteRows = Union(deleteRows, .Range("A" & Row))
            End If
        End If
    Next Row

    ' 存在要删除的行时，一次性删除
    If Not deleteRows Is Nothing Then
        deleteRows.EntireRow.Delete
    End If
End With

方案3：用AutoFilter筛选删除（最高效） #

利用Excel内置的筛选功能，直接筛选出不需要的行再删除，是大数据量场景下最快的方式：

With ActiveSheet
    Dim FirstRow As Long, LastRow As Long
    FirstRow = 4
    LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row

    ' 先取消已有的筛选状态
    If .AutoFilterMode Then .AutoFilterMode = False

    ' 筛选A列中不等于"ITT1"的行（假设第3行是表头）
    .Range("A" & FirstRow - 1 & ":A" & LastRow).AutoFilter Field:=1, Criteria1:="<>ITT1"

    ' 删除筛选出的可见行，加错误处理避免无符合条件行时报错
    On Error Resume Next
    .Range("A" & FirstRow & ":A" & LastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0

    ' 取消筛选
    .AutoFilterMode = False
End With

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