こちらは、対象のセル・変数などから文字を読み取り
対象の文字・数値を検索する関数となっています。

【マクロVBA】対象のセル・変数に指定した文字・数値が含まれているかInStrで確認する ► 独学エクセル塾 (dokugakuexcel.com)

しかし、こちらの関数は、頭文字からの検索であり
場合によっては、右側・後側から検索したい場面がありますよね。

そんな時に使用できるのが「InStrRev関数」となっています。

InStrRev関数を使用すれば、簡単に右側から文字を検索できるので、ぜひ参考にしてみてください。
それでは見ていきましょう。

⬛︎こんな事ができるようになる！

・指定した文字が、右側から何文字目に含まれているか確認できるようになる

⬛︎忙しい人向けのコピペ用ソースコード

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long
N = InStrRev(対象のセル・変数, "検索したい文字・数値")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

対象のセル・変数と検索したい文字・数値をカスタムして使用してください。

⬛︎構文の説明

まず、使用する関数についてですが「InStrRev関数」になります。
関数仕様としては下記の通りです。

InStrRev(検索対象,検索文字・数値,[検索開始位置],[検索の種類])

「[ ]」は省略可能となっています。

[検索開始位置]では検索を開始する位置を指定することが出来ます。
たとえば「3」を指定すると先頭から3文字目を対象として
３文字目から前に検索します。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎右側・後ろから指定した文字が何文字目にあるか検索する

・セルから文字を検索する

では、実際にセルから文字を読み取って右側から対象の文字を検索したいと思います。

下の図をご覧ください。

セル番地「B3」に文字が入力されてあります。
今回は、その文字から「C」を検索して
右側から何文字目にあるか表示したいと思います。

では、構文に当てはめていきましょう。
InStrRev(検索対象,検索文字・数値,[検索開始位置],[検索の種類])

検索対象はセルの文字列を参照するので「B3」です。
検索する文字は「“C”」なので、そのまま入力します。
ここで「”」で囲わないと変数扱いになるので注意が必要です。

当てはめるとこのようになります。
InStrRev(Range(“B3”), “C”)

では見本のソースコードをご覧ください。

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long
N = InStrRev(Range("B3"), "C")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

最後に検索した結果をメッセージボックスで表示させます。

では実行してみましょう。
結果はこのようになります。

「対象の文字は右側から検索すると6文字目にあります」と言うメッセージが表示されました。

「C」は右側から検索すると6文字目にあたるので
うまく機能していますね。

参考までに、通常のInStr関数で表示した結果を見てみましょう。

Sub 対象の文字が左側から何文字目か調査()
Dim N As Long
N = InStr(Range("B3"), "C")
MsgBox "対象の文字は左側から検索すると" & N & "文字目にあります。"
End Sub

結果はこのようになります。

先ほどとは異なり、左から検索するので「２文字目」という結果となりました。

・変数から検索する

先ほどはセルから文字を読み取り、検索を行いましたが、変数から読み取ることも可能です。

では、例を紹介したいと思います。

見本のソースコードをご覧ください。

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long, Word
Word = "あいうえおあいうえお"
N = InStrRev(Word, "う")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

内容として、変数「Word」に「あいうえおあいうえお」と言う文字列を格納しています。
こちらをInStrRev関数を使用することで右側から文字を検索しています。

今回は、見本で「う」を検索しましょう。

実行した結果はこちらです。

「あいうえおあいうえお」を右から「う」を検索すると
８文字目にあるので、狙い通り機能していることがわかります。

さらに、比較用としてInStr関数でも表示してみたいと思います。

Sub 対象の文字が左側から何文字目か調査()
Dim N As Long, Word
Word = "あいうえおあいうえお"
N = InStr(Word, "う")
MsgBox "対象の文字は左側から検索すると" & N & "文字目にあります。"
End Sub

結果はこのようになりました。

文字列「あいうえおあいうえお」に含まれる「う」は左から見ると
「8」文字目に含まれていますが、右から見ると「3」文字目に含まれていることから、「3」を出力しています。

⬛︎応用編

・右端から何文字目に対象の文字があるか検索する

では応用編です、先ほどは右側から検索し、左側から何文字目に対象の文字があるか検索していましたが
Len関数を使用することにより、右側から何文字目にあるか求めることができます。

ではメカニズムについて紹介したいと思います。
下記のソースコードをご覧ください。

Sub 対象の文字が右側から何文字目か調査()
Dim N As Long, Wordcount
Wordcount = Len(Range("B3")) '文字の数を算出
N = Wordcount - InStrRev(Range("B3"), "F") + 1 '右から何文字目か計算
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

まずLen関数でセル番地B3の文字数を算出します。
その後にInStrRev関数を使用することで、右側から対象の文字を検索しています。

そこからLen関数で求めた文字数からInStrRev関数で
求めた文字の位置を引くことによって右端から何文字目にあるか求めることができます。
ポイントとして結果に「+1」することで正確な計算結果となります。

では、見本を見ていきます。
セル番地B3には、「BCDEFCD」と言う文字列が含まれています。

こちらを「F」で検索して、右端から何文字目にあるか求めたいと思います。

それでは実行しましょう。
結果はこのようになります。

「F」は、右端から「3」文字目にあたるので
うまく機能していますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または対象となる文字が
大文字と小文字で異なる場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が右側から数えて何文字目か調査()
Dim N As Long
N = InStrRev(Range("B3"), "d")
MsgBox "対象の文字は右側から検索すると" & N & "文字目にあります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStrRev(検索対象,検索文字・数値,[検索開始位置],[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStrRev(Range("B3"), "d", , vbTextCompare)

実行した結果はこちらです。

小文字の「ｄ」で検索したにもかかわらず大文字の「Ｄ」をカウントしてくれました。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

InStrRev 関数 – Microsoft サポート

⬛︎まとめ

いかがだったでしょうか？
InStrRev関数を活用することで、右から文字を検索することができます。
さらにLen関数と合わせることによって、右端から何文字目に対象の文字があるか検索することも可能です。

ぜひ活用してみてください。

それでは次回の記事でお会いしましょう。

ただし、今回は応用編なので、基礎編については下記の記事をご覧ください。

【マクロVBA】対象のセル・変数に指定した文字・数値が含まれているかInStrで確認する ► 独学エクセル塾 (dokugakuexcel.com)

対象の文字が何文字目に含まれているか確認できる
InStr関数ですが、応用することで何個・何文字含まれているか
求めることができます。

是非参考にしてみてください。
それでは見ていきましょう。

⬛︎こんなことができるようになる！

対象の文字が何文字あるか個数を確認することができる。

⬛︎忙しい人向けのコピペ用ソースコード

Sub 対象の文字が何個含まれているか調査()
Dim Counter, N
　Counter = 0
　N = 1
Do
　N = InStr(N + Counter, 検索したいセル・変数, "確認したい文字")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

■構文の説明

まず、使用する関数についてですが「InStr関数」になります。
関数仕様としては下記の通りです。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

「[ ]」は省略可能となっています。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎対象の文字の数を求める

・例①

では、実際にInStr関数を使用して対象の文字の個数を求めたいと思います。
下記の見本をご覧ください。

今回はセル番地「B3」の文字列に「A」が何個含まれているか求めたいと思います。
では見本のソースコードをご覧ください。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "A")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

では、仕組みを紹介したいと思います。

まず、対象をセル番地B3にしています。
そこから今回は「A」が何文字含まれているか確認したいと思います。

検索の開始位置を変数「N」としており
初めは1文字目から検索を行います。

１週目の結果として「A」は１文字目にあるので
変数「N」に「1」が格納されます。

そして、文字のカウントの変数「Counter」を+1します。

そして、この処理をループ処理することにより
文字を繰り返し検索するメカニズムになっています。

続いて2週目では、
開始位置を「N+Counter」していることにより、先程の検索に引っかかった「１文字目のA」は除外するようになります。

その後は検索に文字が引っかかるたびに「Counter」を+1することで

対象の文字が何文字あるかカウントします。

そして、検索に引っかからなくなった場合,
InStr関数の結果は「0」になるわけですから、「If N = 0 Then Exit Do」でループを抜け出します。

以上が説明になります。

では、実際に走らせてみたいと思います。

実行した結果はこちらです。

「ABCADEAF」には「A」が3文字含まれているので
「対象の文字は３個あります」というメッセージボックスが結果として表示されました。

・例②

さらにB3を「BCDEFCD」にして「CD」を検索しましょう。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "CD")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになりました。

「BCDEFCD」には「CD」という文字が２つあるので

「2」を出力しています。

文字数が増えてもうまく機能していますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または対象となる文字が
大文字と小文字で異なる場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が何個含まれているか調査()
 Dim Counter, N
 Counter = 0
 N = 1
Do
　N = InStr(N + Counter, Range("B3"), "d")
　　If N = 0 Then
　　　Exit Do
　　Else
　　　Counter = Counter + 1
　　End If
Loop

MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStr(N + Counter, Range("B3"), "d", vbTextCompare)

実行した結果はこちらです。

小文字の「ｄ」で検索したにもかかわらず大文字の「Ｄ」をカウントしてくれました。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

■練習問題

練習問題も別の記事でまとめているので是非参考にしてみてください！

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください☟

InStr関数（Visual Basic for Applications） | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
InStr関数を応用することで対象の文字が何文字あるか検出することができます。

是非参考にしてみてください。

それでは次回の記事でお会いしましょう。

さらに、応用すれば何文字目に含まれているかも確認できるようになるので
とても便利な方法です。

ぜひ参考にしてみてください。
それでは見ていきましょう。

⬛︎こんなことができるようになる

・指定した文字が、何文字目に含まれているか確認できるようになる
・対象のセル・変数の文字・数値を読み取り指定した文字が含まれているか確認できるようになる。

⬛︎忙しい人向けのコピペ用ソースコード

Sub InStr見本コード()
Dim TargetName As String
Dim SearchWord As String

TargetName = Range("B3") '対象セルor変数の指定
SearchWord=○○'検索したい文字を入力
'文字列中に「SearchWord」が含まれているかどうかを判定
If InStr(1, TargetName, SearchWord, vbTextCompare) > 0 Then
'対象文字が含まれていた時の処理
Else
'対象文字が含まれていない時の処理
End If
End Sub

黄色の蛍光ペンの個所を打ち換えて使用してください。

■構文の説明

まず、使用する関数についてですが「InStr関数」になります。
関数仕様としては下記の通りです。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

「[ ]」は省略可能となっています。

[検索の種類]ではバイナリモードかテキストモードを
選択することができます。

バイナリモードの場合はvbBinaryCompare
テキストモードの場合はvbTextCompareを入力します。

ただし、省略した場合はバイナリモードになるので
バイナリモードの場合は未入力でかまいません。

各モードの検索方法は下記の通りです。

⬛︎指定した文字が含まれているか確認する

・対象の文字が何文字目にあるか割り出す

では、実際にInStr関数を使用してみたいと思います。

まずはセル番地「B3」の文字列から「D」の文字が含まれているか確認したいと思います。

見本のソースコードは下記の通りです。

Sub 何文字目にあるか調査()
Dim answer As Long
'文字列中に「D」が何文字目に含まれているかどうかを判定
answer = InStr(1, Range("B3"), "D")
MsgBox "Dは" & answer & "文字目にあります。"
End Sub

では構文と比較しましょう。

InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

今回は検索開始位置を入力していますが、省略しても構いません。
例では「1」と入力しているので１文字目から検索します。

検索対象はセル番地「B3」なので「 Range(“B3”)」としています。
「Cells(3,2)」でも構いません。

検索文字・数値は「D」なので、ダブルクォーテーション「”」で囲って入力します。
ここで「”」で囲わないと変数扱いになるので注意が必要です。

結果としてInStr関数に当てはめるとこのようになります。
answer =InStr(1, Range(“B3”), “D“)

今回は結果を「answer」という変数に格納してメッセージボックスにて
何文字目に「D」があるか表示したいと思います。

それではこちらを実行してみましょう。
結果はこのようになります。

「Dは4文字目にあります。」と表示されました。

Aから数えて４番目に位置しているのでうまく機能していますね。

・対象の文字が含まれているか確認する

InStr関数ですが、検索した結果、対象の文字がなければ
変数の値は「0」になります。

この機能を応用することで
対象の文字が含まれているかわかるようになります。

では、対象の文字が含まれているか、判別するソースコードを紹介します。

Sub 対象の文字が含まれているか調査()
'文字列中に「D」が何文字目に含まれているかどうかを判定
If InStr(1, Range("B3"), "D") > 0 Then
MsgBox "対象の文字は含まれています"
Else
MsgBox "対象の文字は含まれていません"
End If
End Sub

では説明です。
先程のInStr関数にIF関数を合わせることで
対象の文字が含まれているか判別できるようになります。

メカニズムとして
文字があった場合、何文字目か数値を算出するので結果は「0」以上になります。
そこでIF関数で結果が「0」を超えていた場合は「対象の文字は含まれています」というメッセージを表示させます。
対して検索結果が無い場合は「0」が算出されるため「対象の文字は含まれていません」と言うメッセージを表示させます。

それでは、こちらのソースコードを走らせてみましょう。

セル番地B3には「ABCDE」入力しています。
「Ｄ」で検索した結果はこちらです。

「ABCDE」の中に「D」は含まれているので「対象の文字は含まれています」という結果になりました。

今度はB3に「FGHIJ」と入力しました。
実行した結果はこちらです。

「FGHIJ」に「D」はないですから、「対処も文字は含まれていません」という結果になりました。

狙い通り動作していますね。
この方法で、対処のセル・変数に対象の文字が含まれているか確認することができます。

・変数から検索する

先ほどはセルから文字を読み取り、
検索を行いましたが、変数から読み取ることも可能です。

では、例を紹介したいと思います。

見本のソースコードをご覧ください。

Sub 対象の文字が含まれているか調査()
Dim Word As String
Word = "あいうえお"
If InStr(1, Word, "う") > 0 Then
MsgBox "対象の文字は含まれています"
Else
MsgBox "対象の文字は含まれていません"
End If
End Sub

内容として、変数「Word」に「あいうえお」と言う文字列を格納しています。
こちらをInStr関数を使用することで
対象の文字が含まれているか確認します。

今回は、見本で「う」を検索しましょう。

実行した結果はこちらです。

「あいうえお」の中に「う」は含まれているので「対象の文字は含まれています」という結果になりました。

今度は「か」を検索してみたいと思います。

If InStr(1, Word, "か") > 0 Then

結果はこのようになります。

変数でも文字を検索することが出来ていますね。

⬛︎よくあるエラーと対処法

・文字が大文字・小文字で異なる

検索の対象または検索する文字が
大文字と小文字で異なっている場合はうまく検索できません。

先ほどの見本で小文字の「ｄ」を検索してみましょう。

Sub 対象の文字が何個含まれているか調査()
Dim Counter, N
Counter = 0
N = 1
Do
N = InStr(N + Counter, Range("B3"), "d")
If N = 0 Then
Exit Do
Else
Counter = Counter + 1
End If
Loop
MsgBox "対象の文字は" & Counter & "個あります。"
End Sub

結果はこのようになります。

検索文字が小文字のために「D」を検出できていません。

では、再度構文を見てみましょう。
InStr([検索開始位置],検索対象,検索文字・数値,[検索の種類])

冒頭で検索の種類は「バイナリモード」と「テキストモード」があると説明しました。

省略していた場合は「バイナリモード」となり、大文字・小文字を区別します。

つまり、大文字と小文字を区別しないテキストモードに変更すればいいのです。

なので検索の方法に「vbTextCompare」を追加すれば大文字と小文字を区別しなくなります。

N = InStr(N + Counter, Range("B3"), "d", vbTextCompare)

実行した結果はこちらです。

小文字で検索しましたが、大文字の「D」が検索出来ていますね。

・文字が全角・半角で異なる

こちらも先程のエラーと同様です。
検索方法をテキストモードに変えることにより、全角半角
どちらでも検索できるようになります。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

InStr関数（Visual Basic for Applications） | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか？
InStr関数を使えば対象の文字・数値が含まれているか確認することができます,
さらに、何文字目に含まれているかも確認することは可能なので、機能を応用することが可能です。

ぜひ活用してみてください。

応用編としてInStr関数を使用して、対象の文字が何文字あるか
算出する方法も、別の記事でまとめていますので、ご参照下さい。

記事についてはこちらから☟

【マクロVBA】対象の文字が何個・何文字あるかInStr関数で求める！変数・セルに対応 ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

普段エクセルで、検索や置き換えの機能を使用している方も多いのでないでしょうが。
対象の文字・数値を検索して、データの場所を確認したり
置き換えで文字・数値を変更したり便利な機能です。

この、検索・置き換えの機能ですがマクロVBAのソースコードでも
同様の機能を使用することができます。

さらにブック内のプロジェクト内やモジュール内、プロシージャ内など
対象を絞って検索・置き換えができるので是非参考にしてみてください。

それではみていきましょう。

⬛︎検索をする

まず、検索からみていきましょう。

・検索メニューを表示する

検索するにあたって検索メニューを表示する必要があります。
メニューの表示方法として2通り存在します。

①メニューから表示する

まず、メニューから表示する方法です。
こちらはメニュー内の「編集」から「検索」を選択します。

②ショートカットキーを使用する

こちらの方が簡単に表示させることができます。
方法としてキーボードの「Ctrl」と「F」を同時押しすると表示させることができます。
では実際に検索してみましょう。

・検索する

まず検索したい文字・数値を「検索する文字列」に入力します。

そして「検索」を押すごとに対象の文字・数値を表示してくれます。

見本で下記のソースコードを用意しました。

Sub 置き換え見本()

Range(“A1”) = “ABC”

End Sub

方法として「検索する文字列」に検索したい文字を入力します。
今回は「ABC」を検索してみましょう。
「検索する文字列」に「ABC」を入力して「次を検索」を押してみます。

検査した結果はこのようになります。

「ABC」が選択されていますね。
ほかに「ABC」があった場合は「検索」を押すごとに「ABC」の文字列に位置を合わしてくれます。
これで対象の文字・数値があるか検索できますね。

⬛︎置き換えをする

今度は置き換えの方法をみていきましょう。

・置き換えメニューを表示する

置き換えも検索と同様にメニューを表示させる必要があります。
こちらも2パターンあるのでそれぞれ紹介したいと思います。

①検索メニューから切り替え

まずは先程の検索メニューから置き換えのメニュー画面に変更してみましょう。
検査メニュー画面の右側に「置換」というボタンがあります。

こちらを押していただくと下図のような画面になると思います。

この画面が置き換えのメニュー画面となります。

別の方法としてはメニュー内の「編集」から「置換」を選択しても
同様の画面が表示されます。

②ショートカットキーを使用する

こちらも検索と同様に簡単に表示させることができます。
方法としてキーボードの「Ctrl」と「H」を同時押しすると表示させることができます。
では実際に置き換えしてみましょう。

・置き換えをする

では実際に置き換えてみましょう。
「検索する文字列」のところに置き換え前の文字・数値を入力し、
「置換後の文字列」のところに置き換え後の文字・数値を入力して
「置換」を押すと文字・数値の置き換えができます。

では一例を紹介したいと思います。
今回は見本で「ABC」を「CBA」に変更したいと思います。

まず、「検索する文字列」に「ABC」を入力し、
「置換後の文字列」に「CBA」を入力します。

では「置換」を押してみましょう。
結果はこのようになりました。

「ABC」が「CBA」に置き換わっていますね。
こちらも検索と同様にほかに「ABC」があった場合は「置換」を押すごとに「ABC」を「CBA」に置き換えてくれます。

さらに置換の下にある「すべて置換」を押すと
文字通り、すべての検索に該当する文字列を置き換えてくれます。

⬛︎検索・置き換えの対象を選択する

これまでは通常の検索・置き換えの方法を紹介しました。
しかしソースコードは様々な場所に書き込めますよね。
例えばモジュールの中にも複数のプロシージャを作成できますしモジュール自体も複数追加できます。

そこでどの対象範囲で検索・置き換えするのか選択できるようになってます。

操作するところは検査・置き換えメニューの「対象」になります。

ここでは以下の3つが選択可能です。

・カレントプロシージャ
・カレントモジュール
・カレントプロジェクト

ではそれぞれの範囲を見ていきましょう。

・カレントプロシージャ

こちらは一つのプロシージャの検索・置き換えになります。
一つのプロシージャとは「sub プロシージャ名（）」から「End sub」にあたります。
なので一つのプログラム内の検索・置き換えを行います。

検索・置き換えを行う際は対象のプロシージャ内をクリックした後、
検索または置き換えボタンを押すと対象のプロシージャ内での処理となります。

・カレントモジュール

こちらはモジュール内の検索・置き換えを行います。
なのでモジュール内に複数のプロシージャがあるとすると
対象のモジュール内の全てのプロシージャのソースコードが対象になります。

・カレントプロジェクト

こちらは対象ファイル全てのソースコードが対象になります。
モジュールはもちろんのこと、ブック、シートに入力したソースコードが
全て検索・置き換え対象です。

⬛︎公式の説明

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください。☟

コード内のテキストを検索する (VBA) | Microsoft Learn

コード内のテキストを置き換える (VBA) | Microsoft Learn

⬛︎まとめ

いかがだったでしょうか。
検索・置き換えを活用できればプログラミングが
とっても楽になります。

特に一括で置き換えれるのは
ソースコードを変更したいときにはとても便利です。

さらに１行から複数行への置き換えの応用もまとめてますので是非参考にしてみてください。

【マクロVBA】1行のソースコードを複数行のソースコードに置き換える代用方法について ► 独学エクセル塾 (dokugakuexcel.com)

それでは次回の記事でお会いしましょう。

今回は条件に当てはまる文字を検索する方法と
その検索結果をもとに行数と列数を割り出す方法について説明していきたいと思います。

当てはまる項目へ数値や文字を入力することもできるようになりますね。

それでは見ていきましょう。

■検索方法について

検索する際に使用するのが「Find」です。
英語の意味通りですね。

仕組みについてはこのようになります。

Set 変数 =検索範囲.Find(検索ワード,検索方法)

変数

こちらはデータが存在した際にセルの位置を格納するので
Rangeのオブジェクトとなります

例として　
Dim FindCell As Range
とすると検索で当てはまれば「FindCell」にセルの位置が格納されるイメージです。

検索範囲

こちらは調査したい範囲を入力します。
例えばB2からM2の範囲で検索したい場合は
Range(“B2:M2”)
または
Range(CELLS(2,2),CELLS(2,13))
となります。

全セルで検索したい場合は「Cells」で構いません。

検索ワード

こちらには検索したい文字・数値を入れます。
実際に文字・数値を打ち込んでもいいですし
変数に格納されている文字・数値で検索しても、かまいません。

検索方法

こちらはどのように検索するか選択するオプションのようなものです。
方法については下記にまとめました。

こちらはすべて省略可能になっています。

では見本を見てみましょう

見本：

Set FindCell =Range(“B2:M2”).Find(“111”, After, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False, MatchByte:=False, SearchFormat:=False)

内訳：

B2からM2の範囲で”111″を検索対象を値で、全一致で検索して、列・逆方向に検索し、大・小文字と全角・半角は区別せず書式を含めない条件で当てはまったものを「FindCell」に格納
となります。

■文字・数値を検索する

まず、検索する方法について学んでいきましょう。
下記のように月が並んでいるデータを用意しました。例で「4月」を検索してみましょう。

では式に当てはめていきましょう。

Set 変数 =検索範囲.Find(検索ワード,検索方法)

変数名は何でもいいですが「FindCell」としましょう
検索範囲は1月から12月なので「B2:M2」となります。
検索ワードは「4月」です。
検索方法は4月で固定したいのでLookAt:=xlWholeを宣言します。

当てはめるとこうなります。

Set FindCell = Range(“B2:M2”).Find(“4月”, LookAt:=xlWhole)

こちらを使い、仮にプログラムを作成しました。

Sub 検索する()

Dim FindCell As Range

Set FindCell = Range(“B2:M2”).Find(“4月”, LookAt:=xlWhole)

End Sub

実際にプログラムを実行してみましょう。
Set FindCell = Range(“B2:M2”).Find(“4月”, LookAt:=xlWhole)を読み込む前は

「FindCell」は「Nothing」だったのですが

読み込むと…

「FindCell」に「4月」が入りました。
こちらは検索範囲にデータがあったため読み込んでいることになります。
データがなければそのまま「Nothing」のとなります。

では検索できたのでこちらの知識を応用してみます。

■検索して当てはまったデータの行数と列数を変数に格納する

では応用です。

このように月をＣ2で選択して、E2に打ち込んだ数値・文字を選択した月の1つ下のセルに打ち込んでみましょう。

検索の方は先ほどの流れと同様にこのようになります。

Set FindCell = Range(“B4:M4”).Find(Cells(2,3), LookAt:=xlWhole)

ここまででできることはFindCellに検索結果の位置が把握できることです。

そこで行数と列数を変数に記録する際は下記の仕組みを利用します。

行数　変数 = 検索した変数.Row
列数　変数 = 検索した変数.Column

今回は求めたい行数を「SarchRow」、列数を「SarchColumn」と変数宣言します

となるとプログラムはこのようになります。

Sub 検索する()

Dim FindCell As Range
Dim SarchRow As Long, SarchColumn As Long

Set FindCell = Range(“B4:M4”).Find(Cells(2, 3), LookAt:=xlWhole)

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

MsgBox Cells(2, 3) & “は” & SarchRow & “行目の” & SarchColumn & “列目です”

End Sub

実行すると・・・

行数と列数の検索結果もあってますね。
では入力してみましょう。

■検索した行数と列数を活用してみる

では選択した月から検索した行数と列数を元に数値・文字を入力してみましょう。

現在は5月を選択しており、入力する文字は「123件」です。

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

により5月の位置はわかっているので
Cells(SarchRow + 1, SarchColumn) = Cells(2, 5)
となります。

先ほどのプログラムに組み込みましょう。

Sub 検索する()

Dim FindCell As Range
Dim SarchRow As Long, SarchColumn As Long

Set FindCell = Range(“B4:M4”).Find(Cells(2, 3), LookAt:=xlWhole)

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

Cells(SarchRow + 1, SarchColumn) = Cells(2, 5)

End Sub

では実行しましょう。

ちゃんと5月の位置に「123件」と入ってますね。

■検索エラー時の対応

Findを使用する中で検索して対象がなかった場合、エラーになっています。
先ほどの検索で、検索ワードを「13月」で実行してみましょう。

13月は存在しないのでエラーが出ました。
このような検索時のエラー対応について説明します。

Findの仕組みは復習にはなりますが下記の通りです。

Set 変数 =検索範囲.Find(検索ワード,検索方法)

ここで検索して該当がなければ変数は「Nothing」になります。
この仕組みとIFを合わせることで対応ができます。

そのプログラムがこちら。

If 変数 Is Nothing Then
MsgBox “該当データはありません”
Exit Sub
End If

仕組みとして変数に該当がなかったらNothingなのでIFで
変数がNothingだったときの分岐処理を行います。

処理方法としてメッセージボックスで「該当データはありません」と表示したのち
Exit Subにてプログラムを終了する仕組みです。

では先ほどにプログラムに組み込みましょう。
エラーの分岐はSetで変数に検索結果を格納した後です。

Sub 検索する()

Dim FindCell As Range
Dim SarchRow As Long, SarchColumn As Long

Set FindCell = Range(“B4:M4”).Find(“13月”, LookAt:=xlWhole)

If FindCell Is Nothing Then
MsgBox “該当データはありません”
Exit Sub
End If

SarchRow = FindCell.Row
SarchColumn = FindCell.Column

Cells(SarchRow + 1, SarchColumn) = Cells(2, 5)

End Sub

こちらで実行すると・・・

エラーにも対応できるプログラムにできましたね。

⬛︎公式

わかりやすいように説明したため公式と使用する語句が異なりますが
マイクロソフト公式の説明については下記のリンクを参照してください☟

Range.Find メソッド (Excel) | Microsoft Learn

■まとめ

いかがでしょうか。

Findが活用できれば該当セルへの打ち込みが可能になったり
自動化でできることが増えます。

ぜひ参考にしてみてください。

それでは次回の記事でお会いしましょう。記事はこちらから☟

【VBA知識 15】行の挿入・削除/列の挿入・削除を様々なパターン・方向で行う ► 独学エクセル塾 (dokugakuexcel.com)

今回はそんな検索機能について紹介していきたいと思います。

さらに大文字小文字の区別の有無やセル内の内容の完全一致の有無、
半角全角を区別するのかなどのオプション機能も踏まえて説明していきます。

対象データが何件あるか検索する際や、対象データがどこにあるかなどの

作業をする際にも役立ちますので,ぜひ参考にしてみてください。

それでは見ていきましょう。

■文字・数値を検索する

まずは文字・数値の検索についてです。
見本として下記のファイルをもとに説明していきたいと思います。

ではまず「123」という数値データがあるか検索してみましょう。
検索画面を表示させる方法を説明します。

「ホーム」の「検索と選択」を押してみてください。

するとメニューが出るので「検索」を押してみましょう。

これで検索画面が表示されます。

では検索したい「123」を入力して「次を検索」を押してみましょう。
結果はこちら

検索結果があった場合、その検索に当てはまるセルに位置を合わせくれます。
今回だと「123」に当てはまる「Ｂ3」が選択されたことがわかります。

ちなみに他に当てはまるデータがあれば再度「次を検索」を押すと順に選択してくれます。

■範囲を選択して範囲内で文字・数値を検索する

次に選択した範囲内で検索する方法について説明したいと思います。
データが大量にある場合、該当データが多ければ検索を繰り返すのが面倒です。

その際に選択した範囲内で検索出来たらとても便利ですよね。

では先ほどのデータをもとに説明しましょう。

ではC行での「あいう」の検索、D行での「あいう」を検索してみましょう。

まずはC行に範囲を絞って検索します。
C行を選択して「あいう」を検索すると…

「Ｃ3」が当てはまるので「Ｃ3」を選択してくれています。

次にD行を選択して「あいう」を検索してみましょう。

D行には「あいう」は該当しないので「検索対象が見つかりません」と出力されました。

よくあるミスとして該当するデータはあるのに検索結果が見つからないときは

セルを複数選択している状態で検索している場合があります。

２セル以上選択しているとその範囲内での検索となってしまうので、

全範囲で検索する場合は１つのみセルを選択した状態で検索してください。

■検索結果をリストで表示する

では今度は検索結果をリストで表示しましょう。
データをさらに加えてみました。

では「23」を検索してみましょう。
検索結果をリストで表示したいときは検索画面の「すべて検索」を押します。

結果はこのようになります。

検索画面にリストが表示されました。
一番下には該当セル数が記されてありますね。

さらにブック名、シート名、名前、セル、値、数式も検索結果のリストで表示してくれます。
ちなみにリストをクリックするとそのリストのセルの位置に飛んでくれます。

■検索のオプションを活用する

これまでで基本的な検索方法を説明しました。
さらに高度な検索をするため、オプション機能を見てみましょう。

オプション画面は検索画面の「オプション」を押してみてください。

このような画面が出てきましたかね？

ではそれぞれのオプションを見ていきましょう。

・検索場所

検索場所は「シート」または「ブック」のどちらかを検索できます。
使用方法としては下記の通りです・

シート：シート内で検索する
ブック：ブックにあるすべてのシート内で検索をする。

こちらは検索をどの規模で行いたいかによって選択を変えればいいと思います。

・検索方向

検索方向は「行」と「列」を選択できます。

違いは行順に検索するか列順に検索するかの違いです。
正直あまり変えることはないですが
該当データが多く１つずつ確認していきたいときには
行と列方向それぞれ確認しやすい方を選ぶと便利ですね。

・検索対象

こちらは少し奥が深いです。
該当データがあるのに検索結果がない時はこちらの設定を変えれば解決するかもしれません。

検索対象は「数式」「値」「コメント」を選択できます。
では事例も踏まえて説明します。

下記のようなデータを見本で用意してみました。

「Ｂ3」には5、「Ｄ3」には4。
「Ｆ3」には「Ｂ3」+「Ｄ3」を計算する数式を入力しています。

では結果の「9」を計算してみましょう。

計算結果の「9」はあるはずなのに検索対象が見つかりませんでした。

こちらは検索対象を「数式」にしているからです。
では検索対象を「値」にしてみましょう。

無事検索できましたね。

つまり数式の内容で検索したいときは「数式」、数式の結果で検索したいときは「値」で検索を使い分けてください。
ちなみに「コメント」を選択するとコメントの内容も検索できます。

・大文字と小文字を区別する

こちらは文字通りです。
検索する際に大文字と小文字を分けて検索するか、一緒に検索するかが選択できます。

たとえば「ABC」と「abc」というデータがあったとします。
検索を「abc」としたとき

大文字と小文字を区別するにチェックを入れていると
「abc」しか該当データはありません

対して大文字と小文字を区別するにチェックを外すと
「ABC」と「abc」の２つの該当データとして検索できる仕組みです。

・セル内容が完全に同一であるものを検索する

こちらも例をもとに説明します。
「ABC」というデータがあったとします。

セル内容が完全に同一であるものを検索するにチェックを入れた状態で「AB」を検索しても
セルに「AB」のみのデータが無いため、検索データはありません。

対してセル内容が完全に同一であるものを検索するにチェックを外した状態で「AB」を検索すると
「ABC」の文字の一部の「AB」を読み取り「ABC」が該当データとなります。

・半角と全角を区別する

こちらは英語の大文字と小文字の区別に似ていますね。

全角で入力された「アイウ」というデータがあったとします。
その際に半角と全角を区別するにチェックを入れた状態で半角の「ｱｲｳ」を検索すると該当データはありません。

対して半角と全角を区別するにチェックを外した状態で半角の「ｱｲｳ」を検索すると全角の「アイウ」も含めて検索できるという仕組みです。

■まとめ

いかがだったでしょうか。
基本の検索方法に加え、オプション機能で
様々な場面にあった検索が可能になります。

データの有無を確認する際にはとても便利な機能なのでぜひ参考にしてみてください。

それでは次回の記事でお会いしましょう。