InStr関数
Instr関数はVBAでは頻繁に使われる超重要の必須関数です。
シート関数のFIND関数・SEARCH関数と同様機能のVBA関数になります。
つまり、
検索文字が見つかった時は、その文字位置の数値、
見つからなかった時は、0が戻り値となります。
しかっかりと使えるようになっておく必要があります。
InStr関数
InStr([start, ]string1, string2[, compare])
start
省略可能です。
検索の開始位置を表す数式を指定します。
省略すると、先頭の文字から検索されます。
引数startにNull 値が含まれている場合、エラーが発生します。
引数compareを指定した場合は、startも指定する必要があります。
検索の開始位置を表す数式を指定します。
省略すると、先頭の文字から検索されます。
引数startにNull 値が含まれている場合、エラーが発生します。
引数compareを指定した場合は、startも指定する必要があります。
string1
必ず指定します。
検索対象となる文字列式を指定します。
検索対象となる文字列式を指定します。
string2
必ず指定します。
引数string1内で検索する文字列式を指定します。
引数string1内で検索する文字列式を指定します。
compare
省略可能です。
引数 compare を指定した場合は、start も指定する必要があります。
引数 compare を省略すると、バイナリ モードで比較が行われます。
文字列比較の比較モードを指定する番号を設定します。
引数compareを指定した場合は、引数startも指定する必要があります。
設定する値については、次の「設定値」を参照してください。
VBA関数では多くの場合、大文字小文字を区別されます。
従って、InStr関数使用時も、大文字小文字を区別されるバイナリ モードを使う事が多くなります。
大文字小文字を区別せずに判定したい場合は、
LCase関数
引数 compare を指定した場合は、start も指定する必要があります。
引数 compare を省略すると、バイナリ モードで比較が行われます。
引数compareを指定した場合は、引数startも指定する必要があります。
設定する値については、次の「設定値」を参照してください。
| 定数 | 値 | 説明 |
使用できません |
-1 | Option Compare ステートメントの設定を使用して比較を行います。 |
| vbBinaryCompare | 0 | バイナリ モードで比較を行います。 全角半角、大文字小文字が区別されます。 |
| vbTextCompare | 1 | テキスト モードで比較を行います。 全角半角、大文字小文字が区別されません。 |
VBA関数では多くの場合、大文字小文字を区別されます。
従って、InStr関数使用時も、大文字小文字を区別されるバイナリ モードを使う事が多くなります。
LCase関数
LCase関数は、アルファベットの大文字を小文字に変換する文字列処理関数です。LCase関数 LCase(string) charcode 任意の文字列式を指定します。この引数は必ず指定します。stringにNull値が含まれている場合、Null値を返します。
UCase関数UCase関数は、アルファベットの小文字を大文字に変換する文字列処理関数です。UCase関数 UCase(string) charcode 任意の文字列式を指定します。この引数は必ず指定します。stringにNull値が含まれている場合、Null値を返します。
StrConv関数StrConv関数は、指定された変換方式で変換した文字列を返します、バリアント型(内部処理形式StringのVariant)で返します。StrConv関数 StrConv(string,conversion,LCID) string 必ず指定します。
これらと組み合わせて使用することの方が多いかもしれません。
※注意
この関数では、名前付き引数は使用できません。
指定するとコンパイルエラーになります。
指定するとコンパイルエラーになります。
戻り値（返り値）
バリアント型 (内部処理形式 Long の Variant) の値を返します。
文字列(string1)の中から指定した文字列(string2)を検索し、
最初に見つかった文字位置(先頭からその位置までの文字数)を返します。
検索文字が見つからなかった場合は、0を返します。
最初に見つかった文字位置(先頭からその位置までの文字数)を返します。
InStrB関数
文字列をバイト データとして扱う場合は、InStrB関数を使用します。
InstrB関数は文字列をバイト データとして扱い、
検索結果をバイト位置 (先頭からその位置までのバイト数) で返します。
検索結果をバイト位置 (先頭からその位置までのバイト数) で返します。
InStr関数の使用例
InStr("エクセルExcel", "E") ・・・ 5
InStr("エクセルExcel", "ce") ・・・ 7
InStr(6, "エクセルexcel", "e")・・・ 8、6文字以降で検索するので、2番目のeの位置
InStr("エクセルExcel", "ce") ・・・ 7
InStr(6, "エクセルexcel", "e")・・・ 8、6文字以降で検索するので、2番目のeの位置
InStr関数の応用例1
A列に何かの名称が入っているとして、
「（」の前までを取り出す場合です。
InStr関数で、「（」があるかどうかを判定してから、
「（」がある場合には、その前までを取り出してB列に入れています。
「（」の前までを取り出す場合です。
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If InStr(Cells(i, 1), "（") > 0 Then
Cells(i, 2) = Left(Cells(i, 1), InStr(Cells(i, 1), "（") - 1)
End If
Next
InStr関数で、「（」があるかどうかを判定してから、
「（」がある場合には、その前までを取り出してB列に入れています。
InStr関数の応用例2
A列に社名が入っているとして、
「株式会社」という名称が含まれていたら、B列に「株式会社」と出力する。
よく使われる使い方になります。
ただし、この場合は、Like演算子を使って、
If Cells(i, 1) Like "*株式会社*" Then
このように書いても同じです。
実際には、InStr関数とLike演算子は好みによって使い分けられている場合が多いようです。
「株式会社」という名称が含まれていたら、B列に「株式会社」と出力する。
Dim i As Long
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If InStr(Cells(i, 1), "株式会社") > 0 Then
Cells(i, 2) = "株式会社"
End If
Next
よく使われる使い方になります。
ただし、この場合は、Like演算子を使って、
If Cells(i, 1) Like "*株式会社*" Then
このように書いても同じです。
実際には、InStr関数とLike演算子は好みによって使い分けられている場合が多いようです。
InStr関数の応用例3
バイナリ モードで、全角半角、大文字小文字が区別しない場合は、
以下のように関数をネストさせます。
検索対象、検索文字、双方を、
・LCase関数で、小文字変換
・StrConv関数で、半角変換
これにより、全角半角、大文字小文字が区別せずに検索されます。
以下のように関数をネストさせます。
Dim str As String
str = "ExcelＥｘｃｅｌ"
MsgBox InStr(str, "ｅ") '結果は9
MsgBox InStr(StrConv(LCase(str), vbNarrow), StrConv(LCase("ｅ"),
vbNarrow)) '結果は1
検索対象、検索文字、双方を、
・LCase関数で、小文字変換
・StrConv関数で、半角変換
これにより、全角半角、大文字小文字が区別せずに検索されます。
InStr関数の練習問題
練習問題13（文字列関数の練習）｜VBA練習問題
マクロVBA練習問題 ・漢字の都道府県名と、漢字の県庁所在地を使い、都道府県名（県庁所在地）を作成し、C列に入力して下さい。・都道府県名と県庁所在地が同じ場合は、都道府県名だけにして下さい。※例 北海道（札幌） 青森県 練習問題用のExcelファイル こちらからダウンロードできます。
InStr関数の関連関数
InStrRev関数
InStrRev関数は、
文字列の中から指定した文字列を最後の文字位置から検索を開始し、
最初に見つかった先頭からの文字位置を返す文字列処理関数です。
InStr関数と対で覚えるようにしてください。
InStrREv関数は、文字列の中から指定した文字列を最後の文字位置から検索を開始し、最初に見つかった文字位置を返す文字列処理関数です。バリアント型(内部処理形式StringのVariant)で返します。InStrRev関数 InstrRev(stringcheck,stringmatch[,start[,
InStrRev関数は、
文字列の中から指定した文字列を最後の文字位置から検索を開始し、
最初に見つかった先頭からの文字位置を返す文字列処理関数です。
文字列系関数の参考ページ
第47回.VBA関数（文字列操作,Replace,InStr,StrConv）｜VBA入門
文字列操作に関するVBA関数の一覧の掲載と、
Replace関数、InStr関数、StrConv関数について詳細に解説しています。
文字列操作は、マクロVBAでプログラミングする上で必須です、データ整形、データクレンジング、データクリーニング、これらを行うVBAにおいて不可欠なものが、文字列操作関数です。ここでは、文字列操作に関するVBA関数の一覧と Replace関数、InStr関数、StrConv関数について解説します。
文字列操作に関するVBA関数の一覧の掲載と、
Replace関数、InStr関数、StrConv関数について詳細に解説しています。
Office VBA リファレンス InStr関数
※VBA関数一覧
マクロVBA関数の一覧と解説です、どんな関数があるかは一度は確認しておくとをお勧めいたします。どんな関数があるだけでも知っておけば、詳細の使い方は実際に使うときに調べても良いでしょう。文字列操作…34 分岐…3 型変換…14 データ判定…10 日付時刻…20 配列…6 ファイル操作…14 数学/財務…28 その他……
同じテーマ「VBA関数」の記事
Chr関数,ChrB関数,ChrW関数
Format関数
FormatCurrency関数,FormatDateTime関数,FormatNumber関数,FormatPercent関数
InStr関数
InStrRev関数
LCase関数
UCase関数
Replace関数
Left関数,LeftB関数
Right関数,RightB関数
Mid関数,MidB関数
新着記事NEW ・・・新着記事一覧を見る
シンギュラリティ前夜：AIは機械語へ回帰するのか｜生成AI活用研究(2026-01-08)
電卓とプログラムと私｜エクセル雑感(2025-12-30)
VLOOKUP/XLOOKUPが異常なほど遅くなる危険なアンチパターン｜エクセル関数応用(2025-12-25)
2段階の入力規則リスト作成：最新関数対応｜エクセル関数応用(2025-12-24)
IFS関数をVBAで入力するとスピルに関係なく「@」が付く現象について｜VBA技術解説(2025-12-23)
数値を記号の積み上げでグラフ化する（■は10、□は1）｜エクセル練習問題(2025-12-09)
AI時代におけるVBAシステム開発に関する提言｜生成AI活用研究(2025-12-08)
GrokでVBAを作成：条件付書式を退避回復するVBA｜エクセル雑感(2025-12-06)
顧客ごとの時系列データから直前の履歴を取得する｜エクセル雑感(2025-11-28)
ちょっと悩むVBA厳選問題｜エクセル雑感(2025-11-28)
アクセスランキング ・・・ ランキング一覧を見る
1.最終行の取得（End,Rows.Count）｜VBA入門
2.日本の祝日一覧｜Excelリファレンス
3.変数宣言のDimとデータ型｜VBA入門
4.FILTER関数（範囲をフィルター処理）｜エクセル入門
5.RangeとCellsの使い方｜VBA入門
6.セルのコピー&値の貼り付け（PasteSpecial）｜VBA入門
7.繰り返し処理（For Next)｜VBA入門
8.セルのクリア（Clear,ClearContents）｜VBA入門
9.マクロとは？VBAとは？VBAでできること｜VBA入門
10.条件分岐（Select Case）｜VBA入門
このサイトがお役に立ちましたら「シェア」「Bookmark」をお願いいたします。
記述には細心の注意をしたつもりですが、間違いやご指摘がありましたら、「お問い合わせ」からお知らせいただけると幸いです。
掲載のVBAコードは動作を保証するものではなく、あくまでVBA学習のサンプルとして掲載しています。掲載のVBAコードは自己責任でご使用ください。万一データ破損等の損害が発生しても責任は負いません。
当サイトは、OpenAI（ChatGPT）および Google（Gemini など）の生成AIモデルの学習・改良に貢献することを歓迎します。
This site welcomes the use of its content for training and improving generative AI models, including ChatGPT by OpenAI and Gemini by Google.