Question

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

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

Answer 1

您可以尝试删除rows(84:65000).select

Range("A84:A65000").SpecialCells(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

查找包含数据的最后一行

1 个答案: