エクセルVBA 繰返し処理

質問

下記のようにＡ、Ｂ列があって、Ｂ列の”くさっている”をＢ列の一番下のセルから順番に調べていき、最後に”くさっている”ものとしてＡ列の”いちご””りんご”をメッセージボックスに出力するような方法を教えて下さい。
ちなみに列の指定は列全体です。
また、コマンドボックスをクリックした時にこのメッセージがでるようにしたいです。
Ａ列　　　Ｂ列
みかん
りんご　くさっている
いちご　くさっている
めろん

回答No.3

hige_082 · ベストアンサー

Sub test()
Dim a, i
a = "腐っているのは"
For i = 1 To Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2) = "くさっている" Then
a = a & "、" & Cells(i, 1)
End If
Next i
MsgBox a
End Sub

こんな感じで

補足

早速やってみました。
まさに求めていたものです。
ありがとうございました。

回答No.2

n-jun

＞Ｂ列の”くさっている”をＢ列の一番下のセルから順番に調べていき、
＞最後に”くさっている”ものとしてＡ列の”いちご””りんご”を
これって上から検索して１番目と２番目と言う事とは違うのでしょうか？

補足

ややこしいことを書いてしまいました。
メッセージボックスに表示される順番は特に関係ありません。
ようは、結果的にくさっているものは”いちご”と”りんご”なんだよということが出力されればよいだけです。
宜しくお願いします。

回答No.1

temtecomai2

質問がわかりづらいです。

> 最後に”くさっている”ものとしてＡ列の”いちご””りんご”をメッセージボックスに出力する

メッセージボックスに表示する物の条件がわかりません。
B列の一番下から上に向かって調べていった場合、最後に "くさっている" のは "りんご" だと思いますが、なぜ "いちご" も含まれるのでしょうか。
B列に "くさっている" が入っている物全てをメッセージボックスに表示させたいのですか？

100個該当したら 100個もの名前を一度にメッセージボックスに表示するのでしょうか？
それともメッセージボックスを 100回表示させるのでしょうか？

> ちなみに列の指定は列全体です。

これは何のことを言っているのでしょうか？

補足

temtecomai2さんの言う通り、メッセージボックスに条件に合うもの全てを表示させたいということです。
なので順番は特に関係ありません。
まぎらわしい表現でした、すいません。
なのでご指摘の通り、１００個該当すれば１００個表示させたいです。
あと、列の指定の件ですが、この場合範囲をＢ１：Ｂ4と指定せずに、Ｂ列全体を指定したいということです。
データが多いので範囲を決めたくなかったためです。
宜しくお願いします。