過濾

Question

香港專業教育學院得到這個宏它過濾掉空白，並通過工作簿

Sub Filter() 


SearchCol = "Branch ID" 
Dim ws As Object 

For Each ws In Worksheets 
Set rng1 = ws.UsedRange.Find(SearchCol, , xlValues, xlWhole) 
With ws.Range("A2") 
    .AutoFilter field:=rng1.Column, Criteria1:="<>" 
End With 

Next ws 

End Sub 

循環做完這些我現在想搜索另一列，與應用此過濾器，並填充該列中所有單元格，其值爲< 4.因此，它需要遍歷第二個搜索名爲「量」的列並填充單元格，其中「量」爲< 4紅色併爲所有工作表執行此操作

此外，我需要顯示如何標記問題正確在這個，即時通訊可能是一個白癡

感謝

Answer 1

嘗試下一個：

Sub test() 
    Dim SearchCol As String 
    Dim rng1 As Range 
    Dim rng2 As Range 
    Dim ws As Worksheet 

    SearchCol = "ID" 

    For Each ws In Worksheets 
     Set rng1 = ws.UsedRange.Find(SearchCol, , xlValues, xlWhole) 
     Set rng2 = ws.UsedRange.Find("Amount", , xlValues, xlWhole) 
     If Not rng1 Is Nothing Then 
      With ws 
       .Range("A2").AutoFilter field:=rng1.Column, Criteria1:="<>" 
       .Range("A2").AutoFilter field:=rng2.Column, Criteria1:="<4" 
       On Error Resume Next 
       lastRow = .Cells(.Rows.Count, rng2.Column).End(xlUp).Row 
       .Range(.Cells(rng2.Row + 1, rng2.Column), .Cells(lastRow, rng2.Column)).SpecialCells(xlCellTypeVisible).Interior.Color = RGB(255, 0, 0) 
       On Error GoTo 0 
      End With 
     End If 
    Next ws 
End Sub