VBA筛选代码异常：行上移并误删首行问题求助

问题根源 #

1. 你设置的筛选范围是A2:I10000，Excel会把A2当作筛选表头，导致真正的表头（A1）被排除在筛选逻辑外，后续删除操作会错误识别数据行位置，甚至误删表头。
2. RemoveDuplicates使用Header:=xlYes但范围从A2开始，Excel无法正确识别表头，导致重复值判断逻辑出错。
3. 直接操作A2:I10000的可见区域删除，当数据行上移后，会选中已移位的无效区域，引发行错位问题。

修复后的代码 #

Sub Filter()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 绑定目标工作表
    Set ws = ThisWorkbook.Worksheets("result")
    
    ' 清除现有筛选状态
    On Error Resume Next
        ws.ShowAllData
    On Error GoTo 0
    
    ' 动态获取数据最后一行（替代固定10000行的冗余设置）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 1. 删除A列空值的行（保留表头）
    ws.Range("A1:I" & lastRow).AutoFilter Field:=1, Criteria1:=""
    On Error Resume Next
        ' 仅删除筛选后的数据行（A2及以下）
        ws.Range("A2:I" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    ws.ShowAllData ' 清除当前筛选
    
    ' 2. 删除A列重复值的行（保留表头和唯一值的首次出现行）
    ws.Range("A1:I" & lastRow).RemoveDuplicates Columns:=Array(1), Header:=xlYes
    ' 更新最后一行（因删除操作后数据行数变化）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 3. 删除E列包含指定值的行
    ws.Range("A1:I" & lastRow).AutoFilter Field:=5, Operator:=xlFilterValues, _
        Criteria1:=Array("BE", "BG", "DK", "DE", "EE", "FI", "FR", "GR", "IE", "IT", _
                        "HR", "LV", "LT", "LU", "MT", "NL", "AT", "PL", "PT", "RO", _
                        "SE", "SK", "SI", "ES", "CZ", "HU", "CY")
    On Error Resume Next
        ws.Range("A2:I" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    ws.ShowAllData ' 清除最终筛选
End Sub

关键修复点 #

• 筛选范围从A1开始，让Excel正确识别第一行为表头，彻底避免误删表头。
• 使用lastRow动态获取数据边界，避免处理大量空行，提升效率。
• 删除时调用EntireRow.Delete，确保整行删除，避免单元格移位导致的行错位问题。
• 每步操作后清除筛选，避免后续逻辑受之前筛选状态影响。
• 加入错误捕获，处理"无符合条件行"的场景（比如没有空值时SpecialCells会报错）。

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