Excel VBA动态数据筛选删除：A列=2且AS列≥11

嘿，我来帮你搞定这个动态大数据集的筛选需求！原来的静态代码依赖固定范围，没法适配数据规模变化，而且多级筛选的写法也可以更高效，不用分步选择，直接用AutoFilter的多条件就能实现。

核心思路 #

1. 动态获取数据范围：不再写死$A$1:$JS$15900，而是自动找到数据的最后一行和最后一列，适配任何规模的数据集。
2. 多级筛选直接配置：不用先筛A列再手动选结果，直接给AutoFilter同时设置两个筛选条件，逻辑是「A列值为2 且 AS列数值≥11」，和你要的先筛A再筛AS的结果完全一致。

优化后的完整代码 #

Sub DynamicMultiFilter()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim dataRange As Range
    
    ' 定义要操作的工作表（这里用当前激活表，也可以改成Sheets("你的表名")）
    Set ws = ActiveSheet
    
    ' 先取消之前的筛选（避免冲突）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 动态获取数据的最后一行（基于A列，因为A列是筛选的关键列）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 动态获取数据的最后一列（基于第一行的表头）
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    
    ' 定义完整的数据范围（从A1到最后一行最后一列）
    Set dataRange = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
    
    ' 应用双条件筛选：
    ' Field:=1 对应A列，Criteria1:="2" 筛选值为2的行
    ' Field:=45 对应AS列（A是第1列，AS是第45列），Criteria1:=">=11" 筛选数值≥11的行
    ' Operator:=xlAnd 表示两个条件同时满足
    dataRange.AutoFilter Field:=1, Criteria1:="2"
    dataRange.AutoFilter Field:=45, Criteria1:=">=11", Operator:=xlAnd
    
    ' 如果之后要删除筛选后的可见行（除了表头），可以加这段：
    ' ws.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    ' 注意：删除前最好确认，或者先复制到其他表再删，避免误删
End Sub

关键细节说明 #

• 为什么不用Select？：VBA里的Select操作不仅慢，还容易因为工作表切换、单元格选中状态变化而出错，直接操作Range是更专业的写法。
• AS列的Field号怎么来的？：A列是第1列，依次往后数，AS列是第45列。如果不确定列号，可以用ws.Range("AS1").Column直接获取准确的列索引。
• 动态范围的可靠性：用Cells(Rows.Count, "A").End(xlUp).Row找最后一行，是因为A列是筛选的关键列，只要A列没有空行，就能准确找到数据的末尾；如果A列可能有空行，可以改用ws.UsedRange.Rows.Count，但要注意UsedRange可能包含空白行，需要额外处理。

如果之后需要删除筛选后的行，代码里已经加了注释的示例，直接取消注释就能用，记得先备份数据哦！

内容的提问来源于stack exchange，提问作者4