如何使用VBA删除excel中的过滤数据？

Question

我想使用VBA代码删除过滤后的数据，其中工作表具有标题（不应删除）且结尾未知。

我试过如下

ActiveSheet.UsedRange.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete

但它也删除了标题。请帮忙。谢谢。

Answer 1

有一个DBExtract工作表，其中包含标题和筛选值。删除过滤的值数据。请查看以下示例。这将保留您的标题，并将仅删除过滤的记录。

选择范围时请注意

如果您不了解范围，请选择最大范围。这就是为什么我把它保存为BF99999（BF是包含数据的最后一列和99999 ..你可以选择最大值。

  Sub DeleteFilteredData()

             Dim DbExtract As Worksheet
             Set DbExtract = ThisWorkbook.Sheets("Export Worksheet")
             DbExtract.Range("A2:BF9999").SpecialCell(xlCellTypeVisible).EntireRow.Delete

    End Sub