離れたセルをコピーしたい

いつもお世話になっております。

離れたセルをコピーする場合のコードを教えてほしいです。
下記コードを修正して頂きたいです。

Dim k As Long
Dim j As Long
k=Range("A"& Rows.Count).End(xlup).Row
For j =2 to k
Range(Cells(j, 1), Cells(j, 2), Cells(j, 6)).Copy　←ここがおかしい

お時間ある方いらっしゃいましたらよろしくお願いいたします。

No.1 回答者： GooUserラック 回答日時： 2017/12/07 13:21

対象の行のA,B,F列をどこかにコピーされたいと言う事でしょうか？

うまく動いていないコードを提示されても、何をしたいかが判りません、具体的に言葉で説明していただいた方が良いのですが…

No.2 ベストアンサー 回答者： fakeflake 回答日時： 2017/12/07 13:49

これならエラーは出ないはずです。

Range(Cells(j, 1).Address & "," & Cells(j, 2).Address & "," & Cells(j, 6).Address).Copy

この回答へのお礼

ありがとうございます。
このコードですとエラー出ませんでした。
完璧でした。
助かりました。

お礼日時：2017/12/07 14:01