Excel VBA-过滤器“；选择全部"；

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

在“需要报价的项目”选项卡上，我在A列中使用了下面的公式，该公式提取了存在于“未结订单”选项卡上的所有项目编号，这些编号当前在K列（报价）中没有值。然后，我设置了一个宏，它按项目编号过滤数据，“选择全部”，然后取消选择0和空白。然后，宏按供应商编号（C列）对数据进行排序

“需要重新订购的项目”A栏中的公式为： =如果（'Open Re Orders'！$K:$K=“”，'Open Re Orders'！$A2）

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

提前谢谢

子引用（）

---

这比你想象的要容易。只是不包括“标准” 您有

ActiveSheet.Range（$A$1:$E$150”）。自动筛选字段：=1，标准1:=Array（

将其缩短为

ActiveSheet.Range（“$A$1:$E$150”）。自动筛选字段：=1

---

更短的是

ActiveSheet.Range（“A1”）。自动筛选字段：=1

我花了几个小时试图找出如何使用旧版本的Microsoft.Interop.Excel应用筛选。我只想让筛选可用，并选择“全选”选项。

Worksheet.Range[“A1”]。自动筛选（1）

非常好。非常感谢。

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