受限环境下Excel多列多条件AND/OR过滤方案咨询

完全可以实现你的需求，以下两种方法适配你的电脑权限限制，适合4000+行的数据量：

方法一：高级筛选（无需编程） #

步骤1：构造条件区域 #

针对「（列3/6/9…36任意列含value1）且（列4/7/10…37任意列含value2）」的需求，需按规则构建条件区域：

• 在表格空白区域（比如A4002开始），第一行填入目标列的表头（比如列3表头为「首次技师1」、列6为「首次技师2」、列4为「二次技师1」、列7为「二次技师2」等）
• 后续每行对应一组“value1+value2”的组合：
  • 第一行条件：列3填value1，列4填value2，其他目标列留空
  • 第二行条件：列3填value1，列7填value2，其他目标列留空
  • 第三行条件：列6填value1，列4填value2，其他目标列留空
  • 以此类推，覆盖所有3的倍数列和3n+1列的组合

步骤2：执行高级筛选 #

• 选中整个数据区域（包含表头）
• 点击「数据」选项卡→「高级」，选择「将筛选结果复制到其他位置」
• 分别设置「列表区域」（你的数据范围）、「条件区域」（刚才构造的条件范围）、「复制到」（指定空白区域存放结果）
• 点击确定，即可得到符合条件的所有行

方法二：VBA脚本（高效批量处理） #

适合频繁处理的场景，运行后直接显示符合条件的行：

1. 打开Excel，按Alt+F11打开VBA编辑器
2. 右键左侧工程窗口→「插入」→「模块」
3. 粘贴以下代码，修改参数后按F5执行：

Sub FilterMultiColumns()
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long, j As Integer
    Dim targetVal1 As String, targetVal2 As String
    Dim matchVal1 As Boolean, matchVal2 As Boolean
    
    ' 自定义参数
    Set ws = ThisWorkbook.Sheets("Sheet1") ' 替换为你的工作表名称
    targetVal1 = "Bob" ' 替换为需要匹配的value1
    targetVal2 = "Tim" ' 替换为需要匹配的value2
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' 假设A列为客户数据列，自动获取最后一行
    
    ' 取消现有筛选
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 遍历每一行数据
    For i = 2 To lastRow ' 第1行是表头，从第2行开始遍历
        matchVal1 = False
        matchVal2 = False
        
        ' 检查3、6、9...36列
        For j = 3 To 36 Step 3
            If ws.Cells(i, j).Value = targetVal1 Then
                matchVal1 = True
                Exit For ' 找到匹配值后跳出循环，提升效率
            End If
        Next j
        
        ' 检查4、7、10...37列
        For j = 4 To 37 Step 3
            If ws.Cells(i, j).Value = targetVal2 Then
                matchVal2 = True
                Exit For ' 找到匹配值后跳出循环
            End If
        Next j
        
        ' 隐藏不满足条件的行，满足条件的行保留显示
        ws.Rows(i).Hidden = Not (matchVal1 And matchVal2)
    Next i
End Sub

• 如果需要将结果复制到新工作表，可修改代码添加复制逻辑，避免隐藏行的操作限制。

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