如何在Excel VBA中按位置而非名称动态设置AutoFilter筛选条件？

没问题，我完全懂你的需求——不想硬写死"April"这种具体文本，而是想用1、2这种索引来指定要筛选的选项，还能塞进for循环里批量处理对吧？这其实不难，核心思路是先把筛选列里的唯一值提取出来存成数组，然后用索引去调用数组里对应的元素作为筛选条件就行。

下面给你两种可行的实现方案，分别适配不同版本的Excel：

方案1：适用于Excel 365/2021及以上版本（用内置Unique函数） #

这个版本代码更简洁，因为Excel内置了去重函数：

Sub DynamicFilterWithIndex()
    Dim ws As Worksheet
    Dim filterRange As Range
    Dim uniqueValues As Variant
    Dim i As Integer
    
    ' 先指定目标工作表和要筛选的范围
    Set ws = ActiveSheet
    Set filterRange = ws.Range("$C$2:$E$6")
    
    ' 清除工作表已有的筛选（避免干扰新筛选）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 提取筛选列（Field:=1对应C列）的所有唯一值，存入数组
    uniqueValues = WorksheetFunction.Unique(ws.Range("$C$2:$C$6"))
    
    ' 循环遍历每个唯一值的索引（从1开始计数）
    For i = 1 To UBound(uniqueValues)
        ' 用索引对应的数组元素作为筛选条件
        filterRange.AutoFilter Field:=1, Criteria1:=uniqueValues(i, 1)
        
        ' 👉 这里可以添加你需要执行的操作，比如复制筛选结果、计算数据等
        MsgBox "正在筛选第" & i & "个条件：" & uniqueValues(i, 1)
    Next i
    
    ' 循环结束后清除筛选，恢复原始视图
    ws.AutoFilterMode = False
End Sub

代码关键点说明： #

• WorksheetFunction.Unique会自动提取C列的不重复值，返回的是一个二维数组（所以用uniqueValues(i, 1)取值）
• 循环里的i就是你想要的"1、2、3..."索引，直接对应数组里的第N个唯一值
• 每次循环都会自动切换筛选条件，完美适配批量处理场景

方案2：适用于Excel 2019及更早版本（用Dictionary去重） #

如果你的Excel版本没有内置Unique函数，就用Scripting.Dictionary来手动去重：

Sub DynamicFilterWithIndex_OldExcel()
    Dim ws As Worksheet
    Dim filterRange As Range
    Dim cell As Range
    Dim uniqueDict As Object
    Dim uniqueValues As Variant
    Dim i As Integer
    
    Set ws = ActiveSheet
    Set filterRange = ws.Range("$C$2:$E$6")
    ' 创建Dictionary对象用于去重
    Set uniqueDict = CreateObject("Scripting.Dictionary")
    
    ' 清除现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 遍历筛选列，把不重复的值存入Dictionary
    For Each cell In ws.Range("$C$2:$C$6")
        ' 跳过空单元格，避免无效值
        If cell.Value <> "" And Not uniqueDict.Exists(cell.Value) Then
            uniqueDict.Add cell.Value, cell.Value
        End If
    Next cell
    
    ' 把Dictionary里的键转换成数组（注意这个数组是从0开始索引的）
    uniqueValues = uniqueDict.Keys
    
    ' 循环筛选：索引从0开始，所以要+1显示成1、2、3...
    For i = 0 To UBound(uniqueValues)
        filterRange.AutoFilter Field:=1, Criteria1:=uniqueValues(i)
        
        ' 👉 添加你的业务操作代码
        MsgBox "正在筛选第" & (i + 1) & "个条件：" & uniqueValues(i)
    Next i
    
    ' 清除筛选
    ws.AutoFilterMode = False
End Sub

代码关键点说明： #

• Dictionary会自动帮我们去重，确保数组里每个值都是唯一的
• 这里的数组是从0开始索引的，所以循环里的i是0、1、2...，如果要显示成1开始的序号就加1就行

这样不管你用哪个版本，都能实现用索引动态指定筛选条件，而且完全可以在循环里批量执行筛选操作啦！

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