VBA 文字検索

Question

ボールドテキスト#実現したいこと
文字の検索を行いたいです。

##文字列検索
スタート位置：操作対象になっているセルの１つ左隣のセル
検索の方向：スタート位置から左に進む
検索の結果、文字列があった場合：検索した文字の右隣の文字を数値型の変数に取得する
文字列がなかった場合：左に進む
すべてのセルになかった場合：数値型変数に０を入力する

これってInstrか、Findを使用すればいいですか？

Comments

[coco_bauer]

何で実現しようとしているのですか？　VBAの関数（マクロで使う）であるInStrと、ワークシート関数(ワークシートのセルで使う)であるFindが併記されているのですが。

[Yoshikun_0945]

マクロで実装したいです

[coco_bauer]

数値型に変換するのは検索した文字列の右側にある１文字ですか、それとも複数の文字ですか？　"ABC"を"abcdABC234"から探した場合、取得したいのは２なのか２３４なのか？

Answer 1

まず、それぞれの関数の意味について。
FINDは、セル範囲の中から対象の文字列を含むセルを見つける関数で、戻り値は見つけたセルです。
INSTRは、文字列の中から対象の文字列を見つける関数で、戻り値は見つけた桁位置です。

ちなみにFINDには後ろから検索する機能があります。
InStrには後ろから検索する機能はありませんが、別にInStrRevという後ろから検索する命令があります。

---

文脈から察するに、「操作対象になっているセル」の１行に対して右から順に特定の文字列を含むセルを検索していきたいのだと思います。
つまりFINDではないかと思います。

例えばA2:F2の範囲で'ABC'を右から検索したい場合は

    Dim rng As Range
    Set rng = Range("A2:F2").Find( _
            What:="ABC", _
            SearchDirection:=xlPrevious)

のような指定をするとできます。

'ABC'を含むセルが見つかればそのセル、なければNothingがrng変数にセットされます。

---

＞「文字列があった場合：検索した文字の右隣の文字を数値型の変数に取得する 」
この部分が受け取り方次第になるのですが、
・「見つけたセルの右隣のセルの値を数値型の変数に取得」したい
この場合、FIND結果のセルからColumnを取得し、右隣のセルの値を取得すればいいです。

・「見つけたセルの値の中で、特定の文字列の右隣の文字を数値型の変数に取得」したい
この場合、FIND結果のセルに対してINSTRを行い右隣の文字を取り出すことになります。

以上、参考になれば幸いです。

Answer 2

検索の結果、文字列があった場合：検索した文字の右隣の文字を数値型の変数に取得する

という処理をするならばInStrを使います

Findでも部分一致検索はできますが、

Dim Rng As Range
Set Rng = Cells.Find(What:="hoge", LookIn:=xlValues, LookAt:=xlPart)

「検索した文字の右隣の文字」を取り出すためには位置情報が必要なので、結局InStrを使うことになるでしょう