続・2つのセル同士内の文字列比較

エクセルで以下のような構成になっています。

A1:郷田たけしはのび太の友達
B1:たけし,しずか
C1:たけし
A2:隣野しずかはのび太の将来のお嫁さん
B2:しずか,のび太
C2:しずか,のび太
A3:のび太とドラえもんはとても仲良し
B3:のび太,ドラえもん,仲良し
C3:のび太,ドラえもん,仲良し

B列のカンマで区切られた文字列を元にA列内を検索し、
C列内に結果を表示したいのですが、エクセルか
アクセスでの結果取得方法をご教授下さい。
因みにB列には20キーワードほどカンマ区切り文字が記入されている想定です。

No.1 ベストアンサー 回答者： keithin 回答日時： 2012/10/26 02:16

こんばんは。

エクセルの場合。
＞20キーワードほどカンマ区切り文字が記入されている想定です。

関数で行うのは現実的な解決ではありません。
＃前回ご相談で寄せられていた回答を参考に、２０個同様の計算を並べた数式を作成すれば、出来ます。


というワケで。
手順：
ＡＬＴ＋Ｆ１１を押す
現れた画面で挿入メニューから標準モジュールを挿入する
現れたシートに下記をコピー貼り付ける

function myf(a, b)
　dim t, x, res
　t = split(b, ",")
　for each x in t
　　if inStr(a, x) > 0 Then res = res & "," & x
　next
　myf = mid(res, 2, len(res))
end function

ファイルメニューから終了してエクセルに戻る
Ｃ１セルに
=myf(A1,B1)
と記入し、下向けにコピー貼り付ける。

この回答へのお礼

keithin様

ご回答方法、ソースの明快さ、ご説明どれをとっても素晴らしいご回答でした。
また、結果も当然問題誤差いませんでした。

非常に勉強になりました。
ありがとうございました。

お礼日時：2012/10/26 08:37