列の移動

いつもお世話になっております
添付ファイルのようにやりたい。
わたしのつくったのですが
Ａ列からＡＡ列まである場合だと
コードがながくなります。
おしえてくれませんでしょうか
わたしが作ったコードです。
range("C4").value = range("A1").value
range("C5").value = range("C1").value
range("C6").value = range("E1").value

range("D4").Resize.(,2).value = range("A2").Resize.(,2).value

No.1 ベストアンサー 回答者： めぐみん_ 回答日時： 2020/03/27 10:23

Sub megu()

Dim i As Long
Dim r As Range

Set r = Range("C4")

For i = 1 To Range("AA1").Column Step 2

r.Value = Cells(1, i).Value
r.Offset(, 1).Resize(, 2).Value = Cells(2, i).Resize(, 2).Value
Set r = r.Offset(1)

Next

Set r = Nothing

End Sub

こんな感じですか？

この回答へのお礼

いつもありがとうございます
こいうコードを覚えていろんな場面で使いたいです

お礼日時：2020/03/27 20:25