Excelのマクロを教えてください。

質問

マクロの超初心者ですが、よろしくお願いします。

サンプルからですが、

Sub 検索()

myWord = Range("C2").Value
Set myData = Range("A5:D155")
Set myRng = myData.Find(myWord)
If Not myRng Is Nothing Then
Application.Goto Cells(myRng.Row, 1), True
End If

End Sub

Sub コピー()

　 'Set myData = Range("A5:D155")
Set motorng = Application.Intersect(myData, ActiveCell.EntireRow)
Set sakiRng = Sheets("抽出").Range("B65535").End(xlUp).Offset(1)
motorng.Copy sakiRng

End Sub

以上のうち、「コピー」の部分をについて質問ですが、「検索」を使わないで、元Sheetのクリックしたセルのレコード全体を取得してSheets("抽出")にコピーする方法はないでしょうか。

上記のマクロでは一旦「検索」を行った後では「検索」を実行しなくてもクリックしたセルのレコード全体をSheets("抽出")にコピー出来ましたので、検索の部分を削除したいのですが。

説明が下手でスミマセンが何卒よろしくお願いします。

回答No.1

papayuka · ベストアンサー

こんな意味でしょうか？

Sub Test()
Dim motoRng As Range, sakiRng As Range
　Set motoRng = Application.Intersect _
　　　　　　　　　(ActiveCell.EntireRow, ActiveCell.CurrentRegion)
　Set sakiRng = Sheets("抽出").Range("B65535").End(xlUp).Offset(1)
　motoRng.Copy Destination:=sakiRng
End Sub

お礼

お礼が遅くなりましてスミマセンでした。

まさに、まさに素晴らしいです。。
感激しています。

大変ありがとうございました。