Vba 查找包含数据的最后一行

我将原始数据导入Excel。我想创建一个宏来过滤数据并删除已过滤掉的数据。原始数据报告的长度会发生变化，因此包含数据的行数也会发生变化。如何确保过滤所有数据

Sub SF_FirstFilter()
'
' SF_FirstFilter Macro
' Step 6 (Step 41) - First Filter of RAW  Data
'
    Cells.Select
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$G$65000" & LastRow).AutoFilter Field:=7, Criteria1:=Array( _
        "@E100A", "@T641A,@T766A", "@T766A"), Operator:=xlFilterValues
    Rows("84:65000").Select
     Selection.Delete Shift:=xlUp
    Selection.AutoFilter
End Sub

---

用于删除

行（84:65000）。选择
可以尝试

Range（“A84:A65000”）。特殊单元格（xlCellTypeVisible）。EntireRow.Delete

Sub SF_FirstFilter()
'
' SF_FirstFilter Macro
' Step 6 (Step 41) - First Filter of RAW  Data
'
    Cells.Select
    Selection.AutoFilter
        ActiveSheet.Range("$A$1:$G$65000" & LastRow).AutoFilter Field:=7, Criteria1:=Array( _
        "@E100A", "@T641A,@T766A", "@T766A"), Operator:=xlFilterValues
    Range("A84:A65000").SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Selection.AutoFilter
End Sub

您的问题是获取所有要自动筛选的数据，还是在应用筛选后选择所有数据？问题是获取所有要自动筛选的数据。您建议的更改在一端起作用，但会破坏工作表的格式。它倾向于删除我的同事。我需要更多的咖啡。感谢您的帮助。问题是如何自动筛选所有数据。您建议的更改在一端起作用，但会破坏工作表的格式。它倾向于删除我的列标题。请再次检查我的解决方案，发生的情况是当您选择要删除的行，然后选择“自动筛选”时，它没有要筛选的数据。如果将其更改为该选项，则
单元格.select
将始终保持为
selection
。如果删除了标题，请将删除范围更改为不包括标题