如何避免VBA的EntireRow.Delete代码误删首行？

你的代码在筛选删除E列值大于2的行时，首行（一般是表头）会被无差别删除，核心原因是SpecialCells(xlCellTypeVisible)会把表头所在的行也纳入选中范围，哪怕它不符合筛选条件。加上UsedRange.Rows.Count有时会误判最后一行，进一步放大问题。

直接用下面的修改版代码就能解决：

Sub DeleteCertainRows()
    Dim lr As Long
    ' 更精准获取E列最后一行数据的行号，避免UsedRange的不确定性
    lr = ActiveSheet.Cells(Rows.Count, "E").End(xlUp).Row
    
    With Range("E1:E" & lr)
        .AutoFilter
        .AutoFilter Field:=1, Criteria1:=">2"
        
        ' 跳过首行（表头），只删除数据行里符合条件的可见行
        On Error Resume Next ' 防止没有符合条件的行时触发错误
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0 ' 恢复默认错误处理
        
        .AutoFilter ' 关闭自动筛选
    End With
End Sub

关键修改说明 #

• 替换最后一行获取方式：用Cells(Rows.Count, "E").End(xlUp).Row替代UsedRange.Rows.Count，因为UsedRange会把带格式的空行也算进去，导致筛选范围不准确。
• 跳过表头行：通过.Offset(1, 0)让选中范围从第2行开始，彻底排除首行被误删的可能。
• 错误处理：添加On Error语句，避免当E列没有值大于2的行时，代码报错终止。

如果你的表头不在第1行，只需调整Offset的参数即可——比如表头在第3行，就改成.Offset(3, 0)。

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