如何对过滤范围进行“循环”- VBA Excel

Sub FilterLoop()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    
    ' 获取当前活动的工作表
    Set ws = ActiveSheet
    
    ' 设置要过滤的范围（示例为A1:D10）
    Set rng = ws.Range("A1:D10")
    
    ' 打开自动筛选
    rng.AutoFilter
    
    ' 设置要过滤的列（示例为第1列）
    rng.AutoFilter Field:=1, Criteria1:="FilterValue"
    
    ' 遍历过滤后的可见单元格
    For Each cell In rng.SpecialCells(xlCellTypeVisible)
        ' 在这里执行对可见单元格的操作
        ' 例如，可以获取单元格的值并进行处理
        MsgBox cell.Value
    Next cell
    
    ' 关闭自动筛选
    ws.AutoFilterMode = False
End Sub