複数列のコピーについて

こんばんはぁ
AシートでD列（1から100行目）　F列（１から100行目）をそれぞれ
選択しコピーするというマクロをつくっていたのですが、

D、E、Fの3列（１から１００行目）がコピーされてしまうのです。
r = Cells(Rows.Count, 6).End(xlUp).Row　'行数を取得する r=100
Set vv = Range("d1:d" & r, "f1:f" & r)　'変数を指定
vv.Copy worksheets(2).Range("a16")
or
Range("d1:d" & r, "f1:f" & r) copy worksheets(2).Range("a16")

ｄ列とE列とF列が取得されてしまいます。

普通に、Range("D1:d100,F1:F100").Copy worksheets(2).Range("A15")
とすれば、D列とF列の１から100行目までがコピー先（worksheets２）にコピーされます。

変数の場合の指定方法がちがうんでしょうか？
宜しくお願いいたします。

No.1 ベストアンサー 回答者： tatsu99 回答日時： 2018/09/17 23:50

r = Cells(Rows.Count, 6).End(xlUp).Row '行数を取得する r=100

Range("D1:D" & r & ",F1:F" & r).Copy Worksheets(2).Range("a16")

としてください。

この回答へのお礼

こんばんは
いつもいつもありがとうございます。
どうもです(^^♪

お礼日時：2018/09/18 00:26