vba - excel vba - 删除除标题和小计之外的所有行

Question

我正在使用以下代码，我在过滤列表中设置了一个范围，并且我想删除可见单元格。由于标题行，我已经偏移了 1，但我在代码的最底部也有一排，最后一行是我的总数，如何删除除最后一行之外的所有可见行以保留我的总数？

With rng
    .AutoFilter Field:=5, Criteria1:="<>*" & owner & "*"
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

谢谢

Answer 1

尝试这个

.AutoFilter Field:=5, Criteria1:="<>*" & owner & "*"
ActiveSheet.Rows(250).Hidden = True
.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

编辑:在聊天中发布讨论。

自动过滤时，行地址永远不会改变。因此，只需在自动过滤器之后隐藏该行，您就完成了 :)