Excel VBA - 筛选器 "Select All"

Question

我有一个 Excel 工作簿，用于跟踪我的仓库订单。我有一个“打开重新订购”选项卡和一个“需要报价选项卡的项目”。在“打开重新订购”选项卡上，A 列包含商品编号，K 列包含手动输入到电子表格中的供应商报价金额。

在“需要报价的商品”选项卡上，A 列中包含以下公式，该公式会提取“打开重新订购”选项卡上存在的所有商品编号，这些商品编号当前在 K 列中没有值(引用)。然后我设置了一个宏，按项目编号过滤数据，然后“全选”，然后取消选择 0 和空白。然后，宏按供应商编号(C 列)对数据进行排序。

“需要重新订购的商品”A 列的公式为:=IF('打开重新订单'!$K:$K="",'打开重新订单'!$A2)

当我查看宏中的代码时，我发现宏不是选择全部，而是单独选择每个项目编号。我每次都需要这个来全选，即使商品编号已添加到“打开重新订购”选项卡中。

提前致谢。

子 Refresh_Quote()

Range("A1:E1").Select

Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$150").AutoFilter Field:=1, Criteria1:=Array( _
    "90000100", "90000104", "90000106", "90000109", "90000304", "90002040", "90003060", _
    "90003070", "90003075", "90003919", "90003923", "90004134", "90004211", "90004257", _
    "90004295", "90004330", "90004385", "90004415", "90004466", "90004577", "90004600", _
    "90004858", "90004859", "90004868", "90004871", "90004872", "90004901", "90004972", _
    "90004973", "90004974", "90004975", "90004976", "90005053", "90006117", "90006168", _
    "90006320", "90006322", "90006349", "90006385", "90006466", "90007751", "90009942", _
    "90092367"), Operator:=xlFilterValues
ActiveWorkbook.Worksheets("Items Needing Quote").AutoFilter.Sort.SortFields. _
    Clear
ActiveWorkbook.Worksheets("Items Needing Quote").AutoFilter.Sort.SortFields. _
    Add Key:=Range("C1:C150"), SortOn:=xlSortOnValues, Order:=xlAscending, _
    DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Items Needing Quote").AutoFilter.Sort
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Range("G43").Select

结束子

Answer 1

这比你想象的要容易。只是不要包含“标准”您有 ActiveSheet.Range("$A$1:$E$150").AutoFilter Field:=1, Criteria1:=Array( _

将其缩短为 ActiveSheet.Range("$A$1:$E$150").AutoFilter Field:=1

更短的是ActiveSheet.Range("A1").AutoFilter Field:=1