Excel Advanced Filter仅返回表头无数据，请求技术排查

我来帮你排查这个问题——看起来核心问题出在条件区域的公式逻辑，再加上VBA代码里的一些细节需要调整。咱们一步步来：

1. 先揪出条件公式的坑 #

你用的=IF(Filter!C4="Any","",Filter!C4)有个关键问题：当选择"Any"时，公式返回的是空字符串""，但Excel高级筛选会把这个空字符串当成**“匹配该列单元格为空的记录”**，而不是“忽略这个筛选条件”。这就是为什么之前部分条件有效，现在完全没结果的原因——如果你的数据源里对应列没有空值，自然就筛选不到任何记录。

修正方案： #

要让“Any”真正表示忽略该条件，得让条件单元格真正空白，而不是返回空字符串。你有两个选择：

• 把公式改成=IF(Filter!C4="Any",,Filter!C4)（去掉第三个参数，条件为真时返回空白）
• 更可靠的方式是用VBA动态设置条件（推荐），避免公式带来的歧义，在GetData开头添加这段代码（以W列条件为例，其他列同理）：

  ' 动态更新条件区域
  With Sheets("RawData")
      ' 针对W列的条件（对应Filter!C4）
      If Sheets("Filter").Range("C4").Value = "Any" Then
          .Range("W2").ClearContents ' 清空条件，忽略该列筛选
      Else
          .Range("W2").Value = Sheets("Filter").Range("C4").Value
      End If
      ' 如果还有其他条件列（X2、Y2等），重复上述逻辑
  End With
  

2. 优化VBA代码，避免不稳定的Select操作 #

你的代码里用了大量Select/Activate，这很容易因为工作表切换、单元格选中状态变化导致出错。改成直接引用工作表和单元格的方式更稳定：

Option Explicit
Sub GetData()
    Dim wsFilter As Worksheet, wsRaw As Worksheet
    Set wsFilter = ThisWorkbook.Sheets("Filter")
    Set wsRaw = ThisWorkbook.Sheets("RawData")
    
    ' 清空筛选结果（保留标题，只清数据行）
    With wsFilter.Range("B10")
        If .Offset(1, 0).Value <> "" Then
            .CurrentRegion.Offset(1).ClearContents
        End If
    End With
    
    ' --- 动态更新条件区域 ---
    ' 示例：处理W列对应Filter!C4的条件
    With wsRaw.Range("W2")
        If wsFilter.Range("C4").Value = "Any" Then
            .ClearContents
        Else
            .Value = wsFilter.Range("C4").Value
        End If
    End With
    ' 其他条件列（X2对应哪个下拉框，就照上面的逻辑加）
    
    ' 执行高级筛选
    wsRaw.Range("JobRegister[#All]").AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=wsRaw.Range("W1:AA2"), _
        CopyToRange:=wsFilter.Range("B10:T10"), _
        Unique:=True
End Sub

3. 最后做几个验证检查 #

• 确认条件区域的标题匹配：RawData!W1:AA1的标题必须和JobRegister表的对应列标题完全一致（包括大小写、空格），高级筛选对标题匹配要求很严格。
• 手动测试高级筛选：先不用VBA，手动打开“数据”选项卡的“高级”筛选，设置相同的数据源、条件区域和复制目标，看是否能得到结果。如果手动也不行，那问题肯定在条件区域或数据源的设置上。
• 检查数据源的隐藏行：高级筛选默认会忽略隐藏行，确保JobRegister表没有隐藏的有效数据行。

按照上面的步骤调整后，应该就能正常筛选出结果了。

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