搜索欄過濾器的空白和循環工作簿

Question

即時通訊一點的初學者，但即時通訊嘗試編寫一個宏，搜索一列，然後一旦它發現它過濾掉空白，然後循環它的所有工作表工作簿

我開始使用此找到列

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