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

質問

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

回答No.2

hallo-2007 · ベストアンサー

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

お礼

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

回答No.1

himajin555

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

お礼

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