VBAのオートフィルタのタイトル行

質問

3行目をタイトル行として、3行目以降（で13列にABCという文字列が入っている行）をセレクトすることは可能でしょうか？
以下のようなコードを書くと、1行目にオートフィルタがかかり、1行目もセレクトされてしまいます（13列にABCという文字列が入っている行は正しく選択されています）。
なお、A列はブランク、B１、B２には検索とは無関係の文字列が入っております。
どうぞ宜しくお願いいたします。

Sub 絞り込み()

With Worksheets("マスタ0701").Range("B3")
.AutoFilter Field:=13, Criteria1:="ABC"
.CurrentRegion.Select
'.AutoFilter
End With

End Sub

回答No.1

kkkkkm · ベストアンサー

多分1行目と2行目にデータがあるのだと思いますが、その場合、範囲を指定しないとRange("B3")のCurrentRegionみたいな処理になって意図しない行がフィルターの項目行になると思います。

データ範囲がわかりませんが、たとえばB3からN列の最終行までの範囲をフィルターの範囲とした場合の例です。
.CurrentRegion.Selectはコメントにしました
SpecialCells(xlVisible)がないと非表示の部分も選択されたりします。

Sub 絞り込み()
Worksheets("マスタ0701").AutoFilterMode = False
With Worksheets("マスタ0701").Range(Cells(3, "B"), Cells(Rows.Count, "N").End(xlUp))
.AutoFilter Field:=13, Criteria1:="ABC"
'.CurrentRegion.Select
Range(Cells(3, "B"), Cells(Rows.Count, "N").End(xlUp)).SpecialCells(xlVisible).Select
'.AutoFilter
End With
End Sub

お礼

ご教示頂いたコードで試したところ、イメージどおりに動きました（3行目にオートフィルタがかかるようになりました）！
ほんとうに有難うございます！！