エクセルマクロ オートフィルタの可視セルに行番号を表示：2選

Sub オートフィルタ抽出後にセルに行番号入力()

Dim i As Long
Dim LastRow As Long

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    'フィルターでデータ抽出
    Range("A1").CurrentRegion.AutoFilter _
        field:=3, _
        Criteria1:="埼玉県"

    Application.ScreenUpdating = False

        '2～最終行までループ
        For i = 2 To LastRow

            '行が非表示じゃなければD列に行番号を入力
            If Rows(i).Hidden = False Then
                Cells(i, 4) = i
            End If
        Next i

    Application.ScreenUpdating = True

End Sub

Sub オートフィルタ可視セル行番号()

Dim i As Long
Dim LastRow As Long
Dim Msg1 As String

    '最終行を取得
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

    'フィルターでデータ抽出
    Range("A1").CurrentRegion.AutoFilter _
        field:=3, _
        Criteria1:="埼玉県"

    Application.ScreenUpdating = False

        '2～最終行までループ
        For i = 2 To LastRow

            '行が非表示じゃなければ行番号取得
            If Rows(i).Hidden = False Then
                Msg1 = Msg1 & i & vbCrLf
            End If
        Next i

    Application.ScreenUpdating = True

    MsgBox Msg1

End Sub