search列filter空白和循环工作簿

即时通讯一点点的初学者，但即时通讯试图编写一个macros，search一列，然后一旦它发现它过滤出空白，然后循环它的工作簿中的所有工作表

我开始这个find列

SearchCol = "ID" Dim rng1 As Range Set rng1 = activesheet.UsedRange.Find(SearchCol, , xlValues, xlWhole) With Range("A1").Select Selection.AutoFilter Selection.AutoFilter field:=rng1.Column, Criteria1:="<>" End With 

那么即时通讯尝试与此结合，以循环通过工作表

 Dim ws As Object For Each ws In Worksheets With ws.Range("A2") .AutoFilter field:=1, Criteria1:="<>" .AutoFilter field:=1, Criteria1:="<>" End With Next ws 

任何帮助，将不胜感激

Answer 1

尝试这个：

 Sub test() Dim SearchCol As String Dim rng1 As Range Dim ws As Worksheet SearchCol = "ID" For Each ws In Worksheets Set rng1 = ws.UsedRange.Find(SearchCol, , xlValues, xlWhole) If Not rng1 Is Nothing Then With ws.Range("A2") .AutoFilter field:=rng1.Column, Criteria1:="<>" End With End If Next ws End Sub