VBAでセルを検索する│一致する行のセル番地を取得する方法を説明

この記事では、VBAを使って特定の文字列が入力されたセルを検索し、該当するセル番地を取得する方法を実際のVBAコードも含めて説明します。

Excelには、オートフィルターという機能が存在しているように、データテーブル（表）の中から任意の文字列等を検索する機会は多いと思います。

VBAを使ってExcel業務の自動化を行うのであれば、セルの検索方法は、必須で習得しなければならないコードのひとつです。

セルの中から任意の文字列を検索し、該当するセル番地を取得する方法について、VBAコードを紹介しますので、ご参考になれば幸いです。

VBA│セルを検索する

この章では、ExcelのA列（A1からA7）に入力されている文字列の中から VBA という文字列を検索し、該当するセルのセル番地を取得するVBAコードを紹介します。セル番地は変数「r」に取得し、正確に取得していることを確認するため最後にメッセージボックスで表示する処理も加えています。

プログラミング全体で言えることですが、セルの検索は、該当する文字列が見つからなかった場合、エラーとなってプログラムの実行が停止してしまいます。今回のVBAコードでは、見つからなかった場合、エラーを回避するコードも加えています。これは特別なことではなく、基本かつ実践的な構文です。

基本構文

Set r = object.Find(What:=)
r.Address

• Set r = 変数 r に検索文字を格納するステートメント
• object = 検索対象のセル範囲
  この例では、A:Aです
• Find(What:=) = 検索対象を指定するメソッド
  この例では、VBAです
• r.Address = 該当したセルのセル番地を取得するプロパティ

セル検索のVBAコード

Sub Sample()


・・・①
Dim r As Range
Set r = Range(“A:A”).Find(what : =”VBA”)

・・・②
If r Is Nothing Then
MsgBox “ありませんでした”

Else: MsgBox r.Address

End If


End Sub

応用編：検索結果の右隣のセルを取得する

実業務において、Excelでセルを検索する場合には、該当するセルの右隣のセルを取得する必要があるケースは多いと思います。例えば、該当セルの右隣に日付が入力されている場合や性別など、何らかのステータスが入力されている場合などです。

この章では、前章で説明したセルの検索のVBAコードを応用して、検索結果の右隣のセルの情報やセル番地を取得するVBAコードを紹介します。

右隣のセルの情報を取得するためには、Nextプロパティ を使います。

右隣のセルの情報を取得する

Elseの行でNextプロパティを使っています。（Next.Value）

Sub Sample()


Dim r As Range
Set r = Range(“A:A”).Find(what : =”VBA”)

If r Is Nothing Then
MsgBox “ありませんでした”

Else: MsgBox r.Next.Value

End If


End Sub

＜メッセージボックスの結果＞

右隣のセル番地を取得する

Elseの行でNextプロパティを使っています。 （Next.Address）

Sub Sample()


Dim r As Range
Set r = Range(“A:A”).Find(what : =”VBA”)

If r Is Nothing Then
MsgBox “ありませんでした”

Else: MsgBox r.Next.Address

End If


End Sub

＜メッセージボックスの結果＞