VBA多条件高级筛选（And/Or运算符）问题：仅返回最后一行条件结果

问题核心原因 #

你的代码中定义的条件区域AFCRange = Sheet1.Range("F3:I" & Num)缺少了条件区域的表头行。Excel高级筛选的CriteriaRange必须包含与数据源字段对应的表头，否则Excel无法正确匹配条件和数据源列，进而导致筛选逻辑失效，只识别最后一行条件。

修复步骤 #

• 调整条件区域范围：确保条件区域包含表头行（假设F2:I2是条件的表头，需与数据源的表头完全一致），修改代码中的条件区域定义：

  Set AFCRange = Sheet1.Range("F2:I" & Num) ' 包含表头行F2:I2
  

• 验证条件格式正确性：
  • 同一行的多列条件表示And逻辑（需同时满足）
  • 不同行的条件表示Or逻辑（满足任意一行即可）
  • 确保条件区域的每一列对应数据源的正确字段，表头完全匹配
• 额外检查项：
  • 确认Sheet13.Range("I1:A" & lastRow).CurrentRegion能正确定位到数据源的完整区域（包含数据源表头）
  • 确认CopyToRange:=Sheet3.Range("K2:C2")的范围包含正确的目标表头，且顺序与数据源对应
  • 检查原代码中的End With是否有对应的With语句，避免语法错误

修正后的完整代码片段 #

If Sheet11.Range("P2,Q2,R2").Value <> Empty Then
    Set AFCRange = Sheet1.Range("F2:I" & Num) ' 包含表头的条件区域
    Sheet13.Range("I1:A" & lastRow).CurrentRegion.AdvancedFilter _
        Action:=xlFilterCopy, _
        CriteriaRange:=AFCRange, _
        CopyToRange:=Sheet3.Range("K2:C2"), _
        Unique:=False
End If

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