VBA按用户名限制自动筛选：DK0029筛选结果不符预期求修正

你的VBA代码出现两个关键问题，导致DK0029用户的筛选结果不符合预期：

1. 列索引错误：DK0029的筛选逻辑用了Field:=3和Field:=4，但你的Customer工作表只有3列——Customer_Group是第1列、Products是第2列、Total_revenue是第3列，应该对应Field:=1和Field:=2。
2. 筛选逻辑局限性：普通自动筛选的多列条件是「同时满足各列独立条件」，无法直接排除「Customer_Group=1且Products=Dress」的特定组合，需要用高级筛选或辅助列实现复杂逻辑。

以下是两种可行的修改方案：

方案一：使用高级筛选（无需辅助列） #

通过设置条件区域实现复杂的筛选逻辑，直接排除不符合要求的组合：

Sub Filtering()
    Dim UserName As String
    UserName = Environ("username")
    Dim ws As Worksheet
    Set ws = Worksheets("Customer")
    
    ' 清除之前的筛选和隐藏状态
    ws.Visible = xlSheetVisible
    If ws.FilterMode Then ws.ShowAllData
    
    If UserName = "FI1123" Then
        ' 普通自动筛选满足需求
        ws.Range("A1:C2995").AutoFilter Field:=1, Criteria1:="1", VisibleDropDown:=False
        ws.Range("A1:C2995").AutoFilter Field:=2, Criteria1:="Shirt", VisibleDropDown:=False
    ElseIf UserName = "DK0029" Then
        ' 在D、E列临时创建高级筛选条件区域
        With ws.Range("D1:E3")
            .ClearContents
            ' 条件逻辑：(Customer_Group=1 且 Products≠Dress) 或 (Customer_Group=2 且 Products为指定值)
            .Cells(1, 1) = "Customer_Group"
            .Cells(2, 1) = "1"
            .Cells(3, 1) = "2"
            .Cells(1, 2) = "Products"
            .Cells(2, 2) = "<>Dress"
            .Cells(3, 2) = "=OR(B2=""Shirt"",B2=""Sweater"",B2=""Dress"")"
        End With
        ' 应用高级筛选
        ws.Range("A1:C2995").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=ws.Range("D1:E3")
        ' 隐藏临时条件区域（可选）
        ws.Columns("D:E").Hidden = True
    Else
        ws.Visible = xlHidden
    End If
End Sub

方案二：添加辅助列（逻辑更直观） #

新增辅助列判断每行是否符合显示条件，再通过自动筛选保留符合要求的行：

Sub Filtering()
    Dim UserName As String
    UserName = Environ("username")
    Dim ws As Worksheet
    Set ws = Worksheets("Customer")
    
    ' 清除之前的筛选和隐藏状态
    ws.Visible = xlSheetVisible
    If ws.FilterMode Then ws.ShowAllData
    
    If UserName = "FI1123" Then
        ws.Range("A1:C2995").AutoFilter Field:=1, Criteria1:="1", VisibleDropDown:=False
        ws.Range("A1:C2995").AutoFilter Field:=2, Criteria1:="Shirt", VisibleDropDown:=False
        ' 隐藏辅助列（如果存在）
        ws.Columns("D").Hidden = True
    ElseIf UserName = "DK0029" Then
        ' 添加辅助列，标记是否符合显示条件
        ws.Columns("D").Hidden = False
        ws.Range("D1") = "是否显示"
        ' 公式逻辑：排除Customer_Group=1且Products=Dress的行
        ws.Range("D2:D2995").Formula = "=NOT(AND(A2=""1"",B2=""Dress""))"
        ' 转换为值，避免公式影响
        ws.Range("D2:D2995").Value = ws.Range("D2:D2995").Value
        
        ' 组合筛选：Customer_Group为1/2、Products为指定值、辅助列为TRUE
        ws.Range("A1:D2995").AutoFilter Field:=1, Criteria1:=Array("1", "2"), Operator:=xlFilterValues
        ws.Range("A1:D2995").AutoFilter Field:=2, Criteria1:=Array("Shirt", "Sweater", "Dress"), Operator:=xlFilterValues
        ws.Range("A1:D2995").AutoFilter Field:=4, Criteria1:=True
    Else
        ws.Visible = xlHidden
    End If
End Sub

注意事项 #

• 两种方案都先清除了之前的筛选状态，避免残留条件干扰结果。
• 方案一的临时条件区域和方案二的辅助列都可以隐藏，不影响原有三列的展示。
• 原代码中的Range("A1:X2995")已改为Range("A1:C2995")，仅覆盖实际数据列，提升运行效率。

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