VBAでExcel表に対してフィルターをかけて、可視行のみをループするサンプルコード

Option Explicit

Sub getTwentiesName()
    
    'シートの指定
    Dim wSheet As Worksheet
    Set wSheet = Worksheets("Sheet1")
    
    'フィルタをクリア
    If wSheet.FilterMode = True Then
        wSheet.ShowAllData
    End If
    
    'フィルタで年齢列を絞り込み(20代のみ）
    wSheet.Range("A1").AutoFilter Field:=3, Criteria1:=">=20", Operator:=xlAnd, Criteria2:="<30"
    
    '可視行のみループ
    Dim names As String
    Dim visibleRange As Range
    
    For Each visibleRange In visibleRangeArea(Range("A2"))
        names = names + visibleRange.Cells(1, 2).Value & vbCrLf
    Next
    
    MsgBox names
    
End Sub

'可視範囲の取得関数
Function visibleRangeArea(StartRange As Range) As Range
    
    With StartRange.CurrentRegion
        '指定範囲全体を1行下にずらし、行数を1行減らす（見出しを削るため）
        Set visibleRangeArea = .Offset(1, 0).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Rows
    End With

End Function