Home » Excel VBA Rangeオブジェクト » セル検索 » Find・FindNextで全ての行番号・列番号を取得する

Find・FindNextで全ての行番号・列番号を取得する

対象：Excel2007, Excel2010, Excel2013, Windows版Excel2016

「vba find 行番号取得全て取得」
「excel vba find 条件に合う行番号を全て取得」
といった検索で、このサイト・インストラクターのネタ帳へのアクセスが時折あります。

「vba find 列番号全て取得」
という同じような検索キーワードも見かけます。

Excel VBA（Visual Basic for Applications）の、Range.Findメソッドで検索を行って、見つかったすべての行番号や列番号を取得するには、どのようなプロシージャを書けばいいのかを探している方による検索です。

［スポンサードリンク］

検索を行い全ての行番号を取得するサンプルマクロ

Range.Findは、検索を行って見つかった1個のセルを表すRangeオブジェクトを返すだけのメソッドですから、全部を検索するには、Range.FindNextメソッドと組み合わせてループ処理を行いましょう。

Sub 北海道という文字列を検索して全ての行番号を取得する()
　Dim rng As Range
　Dim adr As String　' 最初に見つかったセルのAddress

　Set rng = Cells.Find("北海道")
　If rng Is Nothing Then
　　MsgBox "見つかりませんでした。"
　　Exit Sub
　Else
　　adr = rng.Address
　　Debug.Print rng.Row
　End If

　Do
　　Set rng = Cells.FindNext(After:=rng)
　　If rng.Address = adr Then
　　　Exit Do
　　Else
　　　Debug.Print rng.Row
　　End If
　Loop
End Sub

上記のマクロを実行すると、アクティブなワークシート上で「北海道」という文字列の入力されているセルが検索され、その行番号がイミディエイトウィンドウにすべて出力されます。

違うのは、見つかったセルの個数を数えるために変数をインクリメントしていた部分が、
　　Debug.Print rng.Row
になっていることだけです。

行番号ではなく、すべての列番号を取得したい場合、2か所の、
　　Debug.Print rng.Row
というコードを、
　　Debug.Print rng.Column
にするだけです。

RangeオブジェクトのRowプロパティを使えば行番号が取得でき、

Find・FindNextで全ての行番号・列番号を取得するExcelマクロ

Columnプロパティなら列番号を取得できます。

Find・FindNextで全ての行番号・列番号を取得するExcelマクロ

［スポンサードリンク］

Home » Excel VBA Rangeオブジェクト » セル検索 » Find・FindNextで全ての行番号・列番号を取得する

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を出しました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本です↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「セル検索」の記事一覧