【ExcelVBA】検索したセルを別シートにコピペ

質問

はじめまして、マクロに関して、ネット情報を参考に作成しております初心者です。
早速ですが、質問させてください。

現在、Excel2003でマクロを作成しています。
内容は、検索用シート、データシート、検出シートと3つのシートがあるファイルで、
検索用シートの特定のセルに入れた文字が、データシート内にあるか部分一致検索を行い、
検出したセルを検出シートの「データシートで検出したセルと同じセル番地」に貼り付けたいのですが、
どのように組んだら良いでしょうか。
データシートでの検出結果は基本複数あり、それぞれに対して、貼り付けたいと思っています。

上記の中で　＜「データシートで検出したセルと同じセル番地」に貼り付けたい＞という部分がうまくいかず、悩んでいます。
どうかご教授のほど、よろしくお願い致します。

回答No.2

mu2011 · ベストアンサー

>データシートで検出したセルと同じセル番地」に貼り付けたい
　⇒Find、FindNEXTを利用した一例です。
　　sheets(1)を検索用、Sheets(2)をデータ、Sheets(3)を検出としています。

検索 = sheets(1).Cells(1, "A")
With sheets(2).Cells
Set 検出 = .Find(What:=キー, lookat:=xlPart)
If Not 検出 Is Nothing Then
エンド = 検出.Address
Do
Sheets(3).Cells(検出.Row, 検出.Column) = 検出.Value
Set 検出 = .FindNext(検出)
If 検出.Address = エンド Then Exit Do
Loop
End If
End With

回答No.1

kmetu

データシートで検出したセルと同じセル番地は

データシートで検出したセル.Row
データシートで検出したセル.Column

でそれぞれの行と列がでますので
貼り付けたいセルは

Worksheets("検出シート").Cells(データシートで検出したセル.Row, データシートで検出したセル.Column)

になります。