如何使用VBA对多列进行可选筛选？解决筛选错位问题

你代码里的核心问题是每次单独对单列调用AutoFilter，并且把Field设为1。Excel的AutoFilter是作用于整个数据列表的，不是单列。当你第一次对D列（Range("D1:D" & lastRow)）调用AutoFilter Field:=1，Excel会把这个列当作整个筛选列表的第一列；后续对E列、G列等调用时，同样用Field:=1，就会覆盖之前的筛选，把所有条件都应用到第一个被筛选的列上。

正确的做法是：对整个数据区域设置AutoFilter，然后用实际的列序号作为Field参数（比如第4列对应Field:=4，第5列对应Field:=5），这样多个筛选条件会叠加生效。同时要先清除原有筛选，避免残留。

修改后的代码如下：

Sub ApplyFiltersFromTextBoxes()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataRange As Range
    
    ' 设置工作表和最后一行
    Set ws = ThisWorkbook.Worksheets("PDF sheet")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    ' 定义整个数据区域（19列，从A到S列）
    Set dataRange = ws.Range("A1:S" & lastRow)
    
    ' 先清除所有现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 处理TextBox3（对应第4列，D列）
    Dim filterString As String
    Dim filterValues() As String
    filterString = Trim(TestVersionUpdate.MultiPage1.Pages("Page2").TextBox3.Value)
    If Len(filterString) > 0 Then
        filterValues = Split(filterString, ",")
        ' 去除每个值的空格
        For i = LBound(filterValues) To UBound(filterValues)
            filterValues(i) = Trim(filterValues(i))
        Next i
        ' 对整个数据区域的第4列应用筛选
        dataRange.AutoFilter Field:=4, Criteria1:=filterValues, Operator:=xlFilterValues
    End If
    
    ' 处理TextBox4（对应第5列，E列）
    filterString = Trim(TestVersionUpdate.MultiPage1.Pages("Page2").TextBox4.Value)
    If Len(filterString) > 0 Then
        filterValues = Split(filterString, ",")
        For i = LBound(filterValues) To UBound(filterValues)
            filterValues(i) = Trim(filterValues(i))
        Next i
        dataRange.AutoFilter Field:=5, Criteria1:=filterValues, Operator:=xlFilterValues
    End If
    
    ' 处理TextBox5（对应第7列，G列）
    filterString = Trim(TestVersionUpdate.MultiPage1.Pages("Page2").TextBox5.Value)
    If Len(filterString) > 0 Then
        filterValues = Split(filterString, ",")
        For i = LBound(filterValues) To UBound(filterValues)
            filterValues(i) = Trim(filterValues(i))
        Next i
        dataRange.AutoFilter Field:=7, Criteria1:=filterValues, Operator:=xlFilterValues
    End If
    
    ' 处理TextBox6（对应第8列，H列）
    filterString = Trim(TestVersionUpdate.MultiPage1.Pages("Page2").TextBox6.Value)
    If Len(filterString) > 0 Then
        filterValues = Split(filterString, ",")
        For i = LBound(filterValues) To UBound(filterValues)
            filterValues(i) = Trim(filterValues(i))
        Next i
        dataRange.AutoFilter Field:=8, Criteria1:=filterValues, Operator:=xlFilterValues
    End If
    
    ' 处理TextBox7（对应第12列，L列）
    filterString = Trim(TestVersionUpdate.MultiPage1.Pages("Page2").TextBox7.Value)
    If Len(filterString) > 0 Then
        filterValues = Split(filterString, ",")
        For i = LBound(filterValues) To UBound(filterValues)
            filterValues(i) = Trim(filterValues(i))
        Next i
        dataRange.AutoFilter Field:=12, Criteria1:=filterValues, Operator:=xlFilterValues
    End If
End Sub

• 代码开头先清除了原有筛选，确保每次应用的都是新的筛选组合
• 所有筛选都作用于整个数据区域，用Field参数指定具体要筛选的列号，这样多个条件会同时生效
• 如果某个TextBox为空，对应的列不会设置筛选，保留全部数据，符合你“可选组合筛选”的需求

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