エクセルマクロで別のシートを検索して表示

エクセルのマクロで次の様な検索が出来るようにしたいのです。

シート１にあるセル（毎回同じセルとは限らない）に、
「出席者」という文字が入っています。
その直下のセルに名前（毎回違った名前）が入っています。
例
A5＝出席者
A6＝山田、田中、鈴木

この名前（例のシート１のA6）データをシート２の特定のセルに表示させたいのです。
シート２にボタンを配置してそれをクリックしたら表示できるという風に。（シート２の特定のセルは仮にB10とします）

出席者と名前は毎回同じ位置関係ですが、
表示されるセルは決まっていません。

このような作業をマクロで出来ますか？

出来るのでしたらそのマクロを教えて頂けますか？

初心者です、分かり易い回答をよろしくお願いいたします。

No.1 ベストアンサー 回答者： keirika 回答日時： 2008/07/04 00:09

Sub Sample()

Sheets("Sheet2").Range("B10") = _
Sheets("Sheet1").Cells.Find("出席者").Offset(1, 0)

End Sub

この式はSheet1のCells(セル全体)から出席者と言う文字の入った
セルをFind(検索)し、見つかったセルのOffset(1,0)（一つ下のセル）
をSheet2のB10に入れると言った内容です。

この回答へのお礼

ありがとうございます。
思ったとおりに出来ました。

お礼日時：2008/07/04 00:51

No.2 回答者： jo-zen 回答日時： 2008/07/04 00:27

標準モジュールに以下のマクロでOKかと思います。

Sub Macro1()
'
Sheets("Sheet2").Select
ActiveCell.Value = Range("Sheet1!A6").Value

End Sub


シート２の張り付けたいセルを選択し、あとはマクロボタンを押すだけです。シート１のＡ６セルの値が貼り付けられます。

この回答へのお礼

回答ありがとうございます。
シート１の検索するセルは毎回違うので、
これでは無理です。

お礼日時：2008/07/04 00:53