自动过滤具有不同约束的多个列。 [英] Autofiltering multiple columns with different constraints at the same time.

问题描述

Hi,

我正在尝试使用< 3.0和AB-> AE来过滤J - > AA，其中< 9.3。

I'm trying to filter columns J-->AA with <3.0 and AB->AE with<9.3.

但是使用下面的代码，一旦第二列过滤...然后没有显示结果

But with the code below, once a second column filters... then there are no results shown

因为值<3或9.3仅每行出现一次。有没有更好的方法来查找和过滤

because values <3 or 9.3 only occur once per row. Is there a better way to find and filter

这些？当我完成录制

过滤后的值时，是否可以编写代码来消除过滤器？感谢您的帮助！

the filtered values? Thanks for your help!

工作表（"Shingle Samples"）。范围（"J15：AA1000"）。列'自动筛选标准
ActiveSheet.Range （"$ J $ 13：$ AA $ 1000"）。AutoFilter字段：= 1，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 2，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 3，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 4，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 5，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 6，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 7，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 8，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 9，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 10，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 11，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 12，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 13，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 14，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 15，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 16，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter Field：= 17，Criteria1：="< 3"
ActiveSheet.Range（" $ J $ 13：$ AA $ 1000"）。AutoFilter字段：= 18，Criteria1：="< 3"

Worksheet("Shingle Samples").Range("J15:AA1000").Column ' Autofilter the criteria ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=1, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=2, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=3, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=4, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=5, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=6, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=7, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=8, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=9, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=10, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=11, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=12, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=13, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=14, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=15, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=16, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=17, Criteria1:="<3" ActiveSheet.Range("$J$13:$AA$1000").AutoFilter Field:=18, Criteria1:="<3"

推荐答案

1）代码将仅显示1到18之间的所有列都设置为值"< 3"的行;。你想要吗？

1)The code will show only the row where all column from 1 to 18 is set to value "<3".Do you want that ?

或者如果任何列设置为高于上限值你想要显示行。

Or you want to show the rows if any column is set to above value.

2）下面将清除所有从活动工作表中过滤。

2)Below will clear all filter from active sheet.

Activesheet.AutoFIlter.Showalldata

Activesheet.AutoFIlter.Showalldata

这篇关于自动过滤具有不同约束的多个列。的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！