エクセルのマクロについて

質問

一つのセルに以下のマクロを設定したいです。

[Aシート]
A1～B30の表があります。
A1～A30セルには、有 or 無 が入力されています。
B1～B30セルには、りんご、みかん、ばなな など物の名前(重複なし)が入力されています。

[Bシート]
C3セルに、AシートのAセルが"有"だったら、Bセルの値を反映させたいです。
※例えばAシートが以下の時
----------------------
　　A　　B
1　有　　りんご
2　有　　みかん　
3　無　　ばなな
4　無　　いちご
5　有　　ぶどう
6　無　　ぱいん
7　有　　びわ
・
・
------------------------
BシートのC3セルに、AシートBセルの値を"折り返して"表示する。
　　A　　B　　C
1
2
3　　　　　　りんご
　　　　　　 みかん
　　　　　　 ぶどう
　　　　　 　びわ
4
------------------------

OS：Windows XP sp3
エクセル：Microsoft Office Excel 2003 sp3

ご存知の方がおりましたらご教授ください。

回答No.1

FEX2053 · ベストアンサー

とりあえず、「折り返して表示」だけですが。

"文字列１" & chr(10) & "文字列２"

これで「折り返して表示」になるはずです。ですので発想としては

dat=""
Do
セル内容チェック
if "有" then dat=dat & chr(10) & セル内容
selection.offset(1).select
while セルがブランクになるまで
Range("c3").value=dat

こんな感じですかね。