如何使用 VBA 存储和检索从自动筛选操作返回的行号?例如,我使用此问题中的@brettdj 代码(请参见下面的代码)删除 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