从 VBA 中的自动过滤器中删除多行的性能

Question

我想知道是否有比我使用的代码更快的方法。我使用 xlUp 从记录器中获取了代码。

 rCnt = Cells(Rows.Count, "B").End(xlUp).Row
 ActiveSheet.Range("$B$1:$J" & rCnt).AutoFilter Field:=5, _
      Criteria1:=Application.Transpose(arrCodes), Operator:=xlFilterValues
 Rows("2:" & rCnt).Delete Shift:=xlUp

实际上，如果有某种方法可以翻转过滤器，我根本不需要删除，因为这是我从中复制的临时表。然而，我所有的研究都未能找到解决办法

Criteria1:=Application.Transpose(<>arrCodes)

并且 arrCodes 有太多元素无法在过滤器中列出。不在 arrCodes 中的东西太多了，无法从中创建一个数组。谢谢。

Answer 1

如果您只想使用 Excel UI 而不是公式或 VBA，您可以执行以下简单步骤来获取“反向”过滤器。如果需要，可以将其移植到 VBA：

• 在相反的条件下应用过滤器
• 为一列中的单元格着色（字体或背景）
• 清除过滤器
• 再次过滤，但这次是按该列中没有颜色的单元格
• 将这些结果复制到您想要的位置

如果列已经有一些背景颜色，这将无法正常工作。如果是这种情况，您可以添加一个新列并为其着色。如果这是在 VBA 中，您可以自动执行这些步骤。有限制，但如果适用的话，这将是快速和简单的。

Answer 2

我过去在构建然后删除范围方面取得了成功。您可以将范围与Union() 结合使用。我附上了一些示例代码，它并不精彩，但它显示了基本概念。此示例删除第 2 行到第 11 行的 A 列中的奇数行。

Public Sub DeleteRows()
  Dim deleteThis As Range

  For i = 2 To 11
    If Sheet1.Cells(i, 1).Value Mod 2 = 1 Then
      If deleteThis Is Nothing Then
        Set deleteThis = Sheet1.Rows(i)
      Else
        Set deleteThis = Union(deleteThis, Sheet1.Rows(i))
      End If
    End If
  Next i

  deleteThis.Delete xlShiftUp
End Sub