VBA Удалена отфильтрованная строка с сохранением заголовка

Question

Мне удалось получить строку фильтра, используя следующую команду:

Sub FilterRows()
ActiveSheet.Range("A1").AutoFilter field:=7, Criteria1:=" = "
ActiveSheet.Range("A1").AutoFilter field:=11, Criteria1:="<>"
End Sub

Но когда я попытался использовать это для удаления отфильтрованной строки, в результате все мои данные, кроме заголовка, были удалены.

Public Sub test()

ActiveSheet.Range("A1").AutoFilter field:=1, Criteria1:="A"
Application.DisplayAlerts = False
ActiveSheet.UsedRange.Offset(1, 0).Resize(ActiveSheet.UsedRange.Rows.Count - 1).Rows.Delete
Application.DisplayAlerts = True
End Sub

Как я могу просто удалить отфильтрованную строку, сохранив мои данные и заголовок?

Answer 1

Измените диапазон в скобках, чтобы он соответствовал вашему диапазону, и попробуйте:

ActiveSheet.Range("$A$1:$A$" & Lastrow).Offset(1, 0).SpecialCells _
(xlCellTypeVisible).EntireRow.Delete