エクセルマクロでオートフィルタで抽出したものをコピーする方法を教えて下さい。

　　｜　Ａ　｜　Ｂ　｜　Ｃ　｜　Ｄ
３２｜　５月｜ロッチ｜チョコ｜１５０
エクセルのオートフィルタで抽出したデータをコピーしたいのですが、
毎回結果の行が変わるので、マクロでどう指定したらいいのかわかりません。
詳しい方教えて下さい！

No.2 ベストアンサー 回答者： hallo-2007 回答日時： 2008/07/16 10:38

マクロの記録で作成したVBAがあるのでしょうか？

>毎回結果の行が変わるので
Rows("7:17").Select
とか中途半端な行の選択になっていれば
Rows("1:200").Select　
とか たっぷりとってみてください。
コピイされるのは　１～２００行ではなくて
オートフィルターで抽出した結果だけが
貼り付けられます。

この回答へのお礼

回答ありがとうございます。
全部を指定すればいいのですね。
解決しました。
有難うございました。

お礼日時：2008/07/16 11:49

No.1 回答者： himajin555 回答日時： 2008/07/16 10:33

Sub Test()

Range("D65536").End(xlUp).Select
Range(Selection, Cells(1)).Copy
End Sub

この回答へのお礼

回答ありがとうございます。
全部を指定すればいいのですね。
解決しました。
有難うございました。

お礼日時：2008/07/16 11:49