vba - 使用 VBA 存储自动筛选行号

Question

如何存储和检索 行号 从使用 VBA 的自动筛选操作返回？例如，我使用了@brettdj 代码 from this question (见下面的代码)删除B列下所有带有“X”的行。现在我需要用X(B4，B6，B9 - 见下面的屏幕截图)存储行号，因为我需要删除其他工作表上的相同行在同一个工作簿中。

Sub QuickCull()
    Dim ws As Worksheet
    Dim rng1 As Range
    Set ws = Sheets("Sheet1")
    Set rng1 = ws.Range(ws.[b2], ws.Cells(Rows.Count, "B").End(xlUp))
    Application.ScreenUpdating = False
    With ActiveSheet
            .AutoFilterMode = False
            rng1.AutoFilter Field:=1, Criteria1:="X"
            rng1.Offset(1, 0).EntireRow.Delete
            .AutoFilterMode = False
        End With
    Application.ScreenUpdating = True
End Sub

Answer 1

使用 Is it possible to fill an array with row numbers which match a certain criteria without looping? 中的代码您可以在没有 AutoFilter 的情况下快速返回这些行

例如，此代码将返回在 B2:B50000 中找到 X 的行范围。

Sub GetEm()
Dim StrRng As String
StrRng = Join(Filter(Application.Transpose(Application.Evaluate("=IF(B2:B50000=""X"",""B""&ROW(B2:B50000),""X"")")), "X", False), ",")
If Len(StrRng) > 0 Then MsgBox Range(StrRng).EntireRow.Address & " could be deleted elsewhere"
End Sub