Excel（エクセル）のVLOOKUP関数についてお伺いしたいことがあります。

vlookupでは出来ないですね。

例のBを含む　のは1つだけでしょうか？Bを含むものすべてを検索したいのでしょうか？

http://q.hatena.ne.jp/1210229090

　関数では１件しか検出できないので無理ですね。

　オートフィルのオプションを使えば質問文に近いことが可能です。

http://www.eurus.dti.ne.jp/yoneyama/Excel/filter3.htm

検索窓を作るような仕組みを考えてみました。（実際にコード入力する欄は別にすることを想定）

A2を検索窓とします。（コードの一部でも入れる）

マスタとなるデータをH1:J11に作り

F2: 1 or 2 (1:始まる､2:含む)の検索方法を指定

G2=IF(ISERROR(FIND($A$2,H2,1)),9999,IF($F$1=1,IF(FIND($A$2,H2,1)=1,ROW(),9999),ROW()))

をG11までコピー

B2=SMALL($G$2:$G$11,ROW()-1)

をB11までコピー

C2=IF($B2<>9999,INDEX($H$1:$J$11,$B2,COLUMN()-2),"")

をE2の横へコピー、C:E列を下に11行目までコピー

これで、A2の検索窓で a とか aa と入力しエンターでC,D,E列に検索結果が表示されると思います。

B,G列は計算列なので、非表示にしても良いかもしれません。

http://www.geocities.jp/chiquilin_site/data/060322_extraction.ht...

あたりの情報が参考になるかも知れません。

ワークシート関数は戻り値が一つなので後者は不可能ですが、

前者、最初に条件に一致した値を返す含むや始まるのようにワイルドカードを使えるVLookUp関数を

ユーザー定義で作ってみました。

VBEで標準モジュールに以下のコードをコピーしてください。

参考、標準モジュールの追加方法

Function myLookUp(st As String, r As Range, retu As Long) As String
    Dim gyou As Long
    gyou = Range(Cells(r.Row, r.Column), Cells(r.Row + r.Rows.Count - 1, r.Column)) _
        .Find(st, Cells(r.Row + r.Rows.Count - 1, r.Column), xlValues, xlWhole, _
        xlByColumns, xlNext, True, True, False).Row
    myLookUp = Cells(gyou, r.Column + retu - 1).Value
End Function

ここで作ったユーザー定義関数は

=myLookUp(検索値、範囲、列番号）

と、VLookUpとほとんど同じですが、検索値に＊や？のワイルドカードを使うことができます。

（*は任意の文字列、?は任意の一文字）

例えばBから始まるは B*、ABCを含むは *ABC* で表せます。

「含む」の場合は、ＦＩＮＤ関数で、

「で始まる」の場合は、ＬＥＮ関数とＭＩＤ関数を組み合わせて判定します。

例）セルＡ１が、「ＡＡＡ」を含むかどうか

　＝ＦＩＮＤ（”ＡＡＡ”，Ａ１）

例）セルＡ１が、「ＡＡＡ」（セルＣ１の値として入っている場合）で始まるかどうか

　＝ＭＩＤ（Ａ１，１，ＬＥＮ（Ｃ１））＝Ｃ１

で判定できるかと思います。

http://dummy