AutoFilter三个条件筛选失败

tanglf188

zhinanliu 发表于 2024-2-2 10:15
可以帮忙举个代码的例子吗，谢谢了

        B2:D列数据如下
        性别        年龄        身高
        男        21        160
        男        22        161
        男        23        162
        男        24        163
        女        25        164
        女        26        165
        男        27        166
        女        28        167
        女        29        168
        女        30        169
        女        31        170
        男        32        171
        女        33        172
        G2:I3条件如下
        性别        年龄        身高
        男        >21        <167
        执行代码如下
        Sub test()
            r = Cells(Rows.Count, 2).End(xlUp).Row
            Range("B2:D" & r).AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range("G2:I3"), CopyToRange:=Range("K2:M2")
        End Sub
        K2:M2结果如下(注意：K2:M2下方所有行都会被结果覆盖，原数据行多的话变空行，即便中间有足够的空行同样变空)
        性别        年龄        身高
        男        22        161
        男        23        162
        男        24        163
        男        27        166

cidanji

2个以上条件不支持表达式写法，用4楼，或遍历获得精准数组内容 再一次性筛选

ykcbf1100

高级筛选好是好，但有个缺点，就是必须有一个条件区，但很多时候，工作表没有可写条件的地方。

ykcbf1100

同列多条件筛选，把条件写入一个一维数组是可行的，问题是，条件中不能有通配符。

zhinanliu

tanglf188 发表于 2024-2-2 10:21
B2:D列数据如下
        性别        年龄        身高
        男        21        160

大哥见附件，帮我看看我按照你这样弄的为啥实现不了，感谢

ykcbf1100

zhinanliu 发表于 2024-2-5 10:41
大哥见附件，帮我看看我按照你这样弄的为啥实现不了，感谢

你是表1 和表2搞混了。sheet1应该是sheet2，相应的，sheet2应该是sheet1