（Excel2002）特定の文字列が含まれる列に対して値を返したい

（わかりにくいタイトルですいません）
こんにちは。熟練の皆様にお伺いします。
次のような場合の計算式が思いつきません…ぜひお力をお貸し下さい！

ある文字列（Ａ行）の中から特定の文字列（Ｄ行のいずれか）を探し、
それが含まれた場合、Ｂ行にＥ行の値を返す、というものです。

以下のような場合、

　　　Ａ　　　　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　　Ｅ
１　　いろはにほ　　　　　　　　　　　　　　はにほ　　◇
２　　いろは　　　　　　　　　　　　　　　　　るを　　　　◆
３　　ちりぬるを　
４　　ちり　　　　
５　　はにほちり　
６　　わかよ　　　

　↓こういう結果にしたいんです

　　　Ａ　　　　　　　　Ｂ　　　　　Ｃ　　　　　Ｄ　　　　　Ｅ
１　　いろはにほ　　◇　　　　　　　　　　　はにほ　 ◇
２　　いろは　　　　　　　　　　　　　　　　　るを　　　　◆
３　　ちりぬるを　　 ◆
４　　ちり　　　　
５　　はにほちり　　 ◇
６　　わかよ　　　


いかがなものでしょうか…

No.2 ベストアンサー 回答者： nishi6 回答日時： 2002/10/11 15:56

B2に下のように入力して、下方向にコピーします。

D1、D2を調べています。

=IF(FIND($D$1,A1&$D$1)<LEN(A1),$E$1,"")&IF(FIND($D$2,A1&$D$2)<LEN(A1),$E$2,"")

ただ、A列が『*はにほ*るを*』の場合の表示方法の指定がありませんので、上の算式は◇◆を表示します。
ご参考に。

この回答へのお礼

ご回答ありがとうございます！
なるほど、こうすればいいんですね。意味もわかりました。
本当にありがとうございました！

お礼日時：2002/10/15 18:05

No.3 回答者： imogasi 回答日時： 2002/10/11 15:58

#1の回答はＶＢＡのようです。

取りあえずＶＢＡで（繰り返し比較法で）良ければ、
Sub test01()
l = Range("a1").CurrentRegion.Rows.Count
m = Range("d1").CurrentRegion.Rows.Count
For i = 1 To l
For j = 1 To m
p = InStr(Cells(i, 1), Cells(j, 4))
If p = 0 Then
Else
Cells(i, 2) = Cells(j, 5)
Exit For
End If
Next j
Next i
End Sub
同じかも知れないが、こちらのほうが見通しが良いでしょう。それと急いでいるため、Ｄ列に「あいう」と「いう」
のように、前後に出てくる文字列の一部の文字列もあるときは、対策をどうするか、ケースに応じて、注意が
必要。本件では省略。関数による解も考えてみます。

この回答へのお礼

ご回答ありがとうございます。
が、僕はVBAの知識が全くありませんので、
意味がさっぱりわかりません。
きっとものすごく便利なんだと思うんですが…
もう少し勉強してみます(T_T)

お礼日時：2002/10/15 18:07

No.1 回答者： KODAMAR 回答日時： 2002/10/11 14:54

http://www2.hornet.co.jp/tomoko/MikoNotes/

こちらのNo330はいかがでしょうか？

この回答へのお礼

ご回答ありがとうございます。
VBAの知識がもう少しあればきっと役に立つんだと思うんですが…
もうちょっと勉強してから参考にさせていただきます。

お礼日時：2002/10/15 18:04