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

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

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 ←ここがおかしい

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

A 回答 (2件)

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



Range(Cells(j, 1).Address & "," & Cells(j, 2).Address & "," & Cells(j, 6).Address).Copy
    • good
    • 0
この回答へのお礼

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

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

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


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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング

おすすめ情報