嘿，我完全懂你的困扰——手动筛选太繁琐，普通函数应付不了动态变化的匹配项数量，还要控制用户能看到的数据范围对吧？下面给你几个针对性的方案，根据你的Excel版本和具体需求选就行：

方案1：动态数组公式（Excel 365/2021及以后版本） #

这是最省心的方法，不用写代码，公式会自动适配匹配项的数量变化。

假设你的原始数据在Sheet1，表头是A1:E1（对应Name、Info1、Info2、Condition1、Condition2），数据行从A2开始。在目标工作表（比如Sheet2）的A1单元格让用户输入要筛选的条件（比如"Condition1"），然后在Sheet2的A3单元格输入以下公式：

=FILTER(Sheet1!A2:E4, INDEX(Sheet1!D2:E4, , MATCH(Sheet2!A1, Sheet1!D1:E1, 0))="X", "无匹配数据")

公式解释： #

• MATCH(Sheet2!A1, Sheet1!D1:E1, 0)：找到用户输入的条件在原始表表头中的列位置（比如Condition1对应第4列）
• INDEX(Sheet1!D2:E4, , 匹配到的列索引)：提取对应的条件列数据
• FILTER(...)：筛选出该列值为"X"的所有行，最后一个参数是没有匹配结果时显示的提示文本

这个公式会自动“溢出”所有匹配的行，不管数量是40还是10，都会自动更新，不用手动下拉填充。

方案2：VBA脚本实现自动筛选/数据提取 #

如果你用的是旧版Excel（没有动态数组功能），或者需要严格控制用户看不到未筛选的数据，可以用VBA来实现。

子方案2.1：自动筛选原始表，限制用户操作 #

这个方案会在用户指定条件后自动筛选原始表，还可以通过工作表保护防止用户手动修改筛选：

1. 按Alt+F11打开VBA编辑器
2. 找到原始数据所在的工作表（比如Sheet1），双击打开它的代码窗口
3. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 指定条件输入单元格（比如Sheet1的G1，可根据需要修改）
    Dim conditionCell As Range
    Set conditionCell = Me.Range("G1")
    
    ' 只有当条件单元格被修改时触发动作
    If Not Intersect(Target, conditionCell) Is Nothing Then
        ' 清除现有筛选状态
        Me.AutoFilterMode = False
        
        ' 查找指定条件对应的列
        Dim colIndex As Integer
        On Error Resume Next
        colIndex = Me.Rows(1).Find(What:=conditionCell.Value, LookIn:=xlValues, LookAt:=xlWhole).Column
        On Error GoTo 0
        
        ' 如果找到对应列，应用筛选
        If colIndex > 0 Then
            Me.Range("A1").AutoFilter Field:=colIndex, Criteria1:="X"
        Else
            MsgBox "未找到指定的条件列，请检查输入！"
        End If
    End If
End Sub

4. 回到Excel，在Sheet1的G1单元格输入条件（比如"Condition2"），表格会自动筛选出对应列带"X"的行
5. 若要防止用户手动取消筛选：右键Sheet1标签→保护工作表，取消勾选“使用自动筛选”，设置保护密码后，用户只能通过修改G1来切换筛选，无法手动调整筛选规则

子方案2.2：提取匹配数据到新工作表（完全隔离原始数据） #

如果不想让用户接触原始数据，可以用VBA把符合条件的行直接提取到目标工作表，旧数据会自动替换：

1. 打开VBA编辑器，找到目标工作表（比如Sheet2）的代码窗口
2. 粘贴以下代码：

Sub ExtractMatchingRows()
    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim conditionCol As Range
    Dim lastRow As Long
    Dim i As Long, targetRow As Long
    Dim conditionName As String
    
    ' 设置工作表对象（可根据实际表名修改）
    Set sourceSheet = ThisWorkbook.Sheets("Sheet1")
    Set targetSheet = ThisWorkbook.Sheets("Sheet2")
    conditionName = targetSheet.Range("A1").Value ' 目标表A1是条件输入框
    
    ' 清除目标表现有数据（保留表头）
    targetSheet.Range("A2:E" & targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row).ClearContents
    targetRow = 2 ' 从目标表第二行开始写入数据
    
    ' 查找指定条件对应的列
    On Error Resume Next
    Set conditionCol = sourceSheet.Rows(1).Find(What:=conditionName, LookIn:=xlValues, LookAt:=xlWhole)
    On Error GoTo 0
    
    If conditionCol Is Nothing Then
        targetSheet.Range("A2").Value = "未找到指定的条件列！"
        Exit Sub
    End If
    
    ' 遍历原始数据，提取符合条件的行
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    For i = 2 To lastRow
        If sourceSheet.Cells(i, conditionCol.Column).Value = "X" Then
            sourceSheet.Range(sourceSheet.Cells(i, 1), sourceSheet.Cells(i, 5)).Copy targetSheet.Cells(targetRow, 1)
            targetRow = targetRow + 1
        End If
    Next i
    
    ' 如果没有匹配项，显示提示
    If targetRow = 2 Then
        targetSheet.Range("A2").Value = "无符合条件的数据"
    End If
End Sub

' 绑定目标表的单元格变化事件，输入条件后自动提取数据
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        ExtractMatchingRows
    End If
End Sub

3. 回到Sheet2，在A1输入条件（比如"Condition1"），工作表会自动从Sheet1提取所有符合条件的行，数量变化时也会自动更新

方案3：兼容旧版Excel的数组公式（无动态数组） #

如果你用的是Excel 2019及更早版本，没有动态数组功能，可以用INDEX+SMALL+IF的组合数组公式：
在目标表的A2单元格输入以下公式，然后按Ctrl+Shift+Enter确认（数组公式的输入方式），再下拉足够多的行：

=IFERROR(INDEX(Sheet1!$A$2:$A$4, SMALL(IF(INDEX(Sheet1!$D$2:$E$4, , MATCH($A$1, Sheet1!$D$1:$E$1, 0))="X", ROW(Sheet1!$A$2:$A$4)-ROW(Sheet1!$A$2)+1), ROW(A1))), "")

然后把公式横向拖动到E2，再批量下拉。这个方法需要提前下拉足够多的行，没有动态数组方便，但能适配旧版本。

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