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

質問

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

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

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

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

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

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

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

回答No.1

keirika · ベストアンサー

Sub Sample()

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

End Sub

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

お礼

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

回答No.2

jo-zen

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

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

End Sub

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

お礼

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