Excelでオートフィルタ後に表示セルを選択する

オートフィルタをかけた後に表示された表の最終行を選択します。

フィルタ結果から特定のデータを使用したいときに便利です。

フィルタ結果が1件以上あるかを判別するときにも便利です。

Sub オートフィルタ後に表示セルを選択()
    '
    Dim filterRow As Long

    Dim keyWord As String

    '

    keyWord = "山田"

    '

    '「Sheet1」シートの1行目（Rows(1)）のA列（Field:=1）を「山田」でフィルタリングする

    Worksheets("Sheet1").Rows(1).AutoFilter Field:=1, Criteria1:=keyWord

    'フィルタリングされた表の最終表示行を取得

    filterRow = Cells(Rows.Count, 1).End(xlUp).row

    '

    '0件の場合は「該当なし」とメッセージを表示させる

    If filterRow = 1 Then MsgBox "該当なし"

    '

    'フィルタリングされた表の最終行を選択する

    Range("A" & filterRow).Select

'

End Sub

以上です。