VBA instr関数で文字列を途中からカウント

質問

ABCDEFGの文字列を最初から検索すると、以下の記述ではDなので４が帰ってきます。

InStr(1, "ABCDEFG", "D")

次に上記文字列を途中からカウントしたいのですが、

InStr(2, "ABCDEFG", "D")

と記載しても、４しか帰ってきません。本来３になると思うのですが、なぜでしょうか？

回答No.1

keithin · ベストアンサー

いいえ，そうではありません。

VBAのヘルプより抜粋----------
ある文字列 (string1) の中から指定した文字列 (string2) を検索し、最初に見つかった文字位置 (先頭からその位置までの文字数) を返す文字列処理関数です。
-------------------

sub sample1()
debug.print instr(5, "ABCDABCDABCD","D")
end sub

５文字目から探し始めて最初に見つけたDの文字は文字列の先頭から数えて８文字目にあります，という結果を得ます。

＞本来３になると思うのですが

３の結果が欲しければ
debug.print instr(mid("ABCDEFG",2,99),"D")
とでもして，２文字目からの文字列からDの字を探してみます。

お礼

大変ありがとうございました。非常に助かりました。

回答No.2

imogasi

もう詳しい回等が出ていますが、こういう疑問はInstr関数の解説を読むべきだ。
探すのはスタート（第１引数から探すが、返すのは、当初の先頭からの位置と覚えれば仕舞い。
だから探す位置からの位置は
（１）文字列を切り出して、その文字列でINSTR
（２）前回の結果を覚えておいて（ｓで使った数でも良い）計算する
ーーー
私は下記のようなのを時々使うが
Sub test01()
s = 1
For i = 1 To 10
p = InStr(s, "ABCDEFDGFGDE", "D")
If p = 0 Then Exit For
MsgBox p
s = p + 1
Next i
End Sub
４、７、１１と返る。
４、３、４などではない。

お礼

大変ありがとうございました。非常に助かりました。今後はしっかり解説を読むようにします。