excel - 选择所有包含数据的行和列，然后使用多个条件进行过滤

Question

如何选择所有包含数据的行和列，然后使用多个条件进行过滤？

我录制了一个宏。

    Sheet2.Activate
    Sheet2.Range("$A$1:$L$85").AutoFilter Field:=12, Criteria1:=Array( _
    "Apples", "Pineapple", "Oranges", "Mango", "Grapes", _
    "Banana", "Papaya"), Operator:=xlFilterValues
    Columns("A:L").Select
    Selection.copy
    Sheets("Food").Select
    Range("A:L").Select
    Sheet7.Paste'

我想选择 A1 到 L1 中的所有数据。但我的代码仅适用于特定数量的行和列。如果数据从 $A$1:$L$85 更改并且超过 85 行且超过 L 列，它不会捕获所有需要过滤的数据。

Answer 1

您实际上可以使用评论中提供的链接，但您可以尝试一下。
似乎 UsedRange方法在最新的 Excel 版本(当前使用 Office 365)中有所改进。

Dim lc As Long, lr As Long
Dim r As Range

With Sheet2
  .AutoFilterMode = False
  With .UsedRange
    lr = .Rows.Count
    'lc = .Columns.Count
    lc = 12 '/* your column is bounded to L */
  End With

  Set r = .Range(.Cells(1, 1), .Cells(lr, lc))
  r.AutoFilter Field:=12, Criteria1:=Array( _
               "Apples", "Pineapple", "Oranges", "Mango", "Grapes", _
               "Banana", "Papaya"), Operator:=xlFilterValues

  r.SpecialCells(xlCellTypeVisible).Copy Sheet7.Range("A1")
End With