VBA中Autofilter筛选范围调用.Offset函数不生效，如何避免误删表头？

问题根因 #

代码误删表头的核心原因是：仅对单个单元格A1做Offset(1,0)偏移，调用SpecialCells(xlCellTypeVisible)时会自动扩展识别整个筛选区域的可见单元格，当筛选后没有符合条件的业务行时，代码会错误匹配到始终可见的表头行执行删除。同时原有代码没有做“是否存在匹配可见行”的校验，也会触发逻辑异常。

修复后的代码 #

i = 0 'Variável de apoio (contador)
selecao = Array("GRUPO CARREFOUR - VAR", "GRUPO SONAE - VAR", "GRUPO WAL MART - VAR") 'Lista com os Clientes a serem filtrados
Dim ws As Worksheet
Dim lastRow As Long
Dim dataRng As Range

Set ws = Worksheets(pasta2)
' 先获取当前工作表的有效数据行数，避免操作空区域
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
' 定义完整的数据区域，包含表头
Set dataRng = ws.Range("A1:E" & lastRow) ' 此处E对应你筛选的第5列，可根据实际列数调整
    
Do While i < 3
    ' 先清空之前的筛选，避免残留条件影响
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 对完整数据区域做筛选
    dataRng.AutoFilter Field:=5, Criteria1:=selecao(i)
    
    ' 关键：判断除了表头外是否有可见的匹配行，避免删表头或者报错
    On Error Resume Next
    Dim deleteRng As Range
    ' 取数据区域偏移1行（排除表头）的可见行
    Set deleteRng = dataRng.Offset(1, 0).Resize(dataRng.Rows.Count - 1).SpecialCells(xlCellTypeVisible)
    On Error GoTo 0
    
    ' 只有存在待删除行的时候才执行删除
    If Not deleteRng Is Nothing Then
        deleteRng.EntireRow.Delete
        Set deleteRng = Nothing
        ' 删除后更新数据行数，避免后续循环操作空行
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        Set dataRng = ws.Range("A1:E" & lastRow)
    End If
    
    i = i + 1
Loop
' 最后清空筛选
ws.AutoFilterMode = False

核心修改点 #

• 提前定义完整的有效数据区域，避免单单元格偏移带来的范围识别错误
• 增加错误捕获逻辑，只有存在除表头外的匹配可见行时才执行删除操作
• 每次删除后更新数据区域范围，避免后续循环操作已清空的无效区域
• 把筛选关闭逻辑调整到循环开头，避免残留筛选影响后续判断

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