手动应用Advanced Filter正常，VBA调用返回空表该如何解决

问题核心原因与解决方案 #

你遇到的VBA调用高级筛选返回空的问题，多是以下几个典型错误导致的，按优先级排查即可：

1. 条件值写入格式错误
   你当前给筛选条件单元格赋值的语法多套了一层冗余的等号和双引号，相当于把比较条件变成了文本格式的公式片段，高级筛选无法正确识别数值比较规则。

• 错误写法：

filter_ws.Cells(2, col) = "=""<=" & CDec(Me.diameter.value) & """"
filter_ws.Cells(2, 2) = "=""<=" & CDec(Me.diameter.value -1) & """"

• 正确写法（和手动输入条件的格式完全一致即可）：

filter_ws.Cells(2, col) = "<=" & CDec(Me.diameter.value)
filter_ws.Cells(2, 2) = ">=" & CDec(Me.diameter.value - 1)

2. 表头不完全匹配
   高级筛选要求条件区域的表头必须和数据源对应表头完全一致，包括大小写、前后隐形空格、换行符等，只要有一个字符差异就会导致条件失效。
   你可以用EXACT函数校验一致性：在空白单元格输入=EXACT(主表!DIAMETER表头单元格, filter表!DIAMETER表头单元格)，返回TRUE才是匹配成功。

3. 筛选模式要求数据源表处于激活状态
   使用xlFilterInPlace参数时，必须确保数据源所在工作表是当前激活的工作表，否则筛选逻辑会指向错误的工作表。你可以在执行筛选前加一行激活代码：

With ws
    .Activate ' 新增这行
    On Error Resume Next
    .ShowAllData
    ' 后续筛选代码不变
End With

4. 条件区域存在多余非空值
   检查你指定的条件区域（filter表B1到对应最后一列的条件行）内，除了两个DIAMETER列的条件外，其他所有单元格是否完全为空，哪怕存在一个空格也会被识别为额外的AND条件，导致筛选不到结果。

5. 错误捕获吞了报错信息
   你代码里的On Error Resume Next会屏蔽所有运行时报错，建议先注释掉这行，运行代码看是否有明确的报错提示（比如区域引用非法、表头缺失等），可以更快定位问题。

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