【VBA】列をずらしてコピー（形式選択あり）

Question

VBA勉強中です。

sheet1のB列をコピー→sheet2のC列へコピー
sheet1のC列をコピー→sheet2のF列へコピー
sheet1のD列をコピー→sheet2のI列へコピー
・・・繰り返し

をマクロでさせたくて

Sub コピー()
Dim i, j

Worksheets("sheet1").Activate
For i = 2 To 20
For j = 3 To 40 Step 2
Worksheets("sheet1").Range(Columns(i)).Copy Worksheets("sheet2").Range("j")
Next i
Next j

End Sub

と書いてみたのですが、上手く行きません。
修正もしくは正しいコードを教えて貰えればと思っています。

上記のコードはいくつかのマクロの一部で、

ピボットテーブルからデータを抽出し別シートにコピー
↓
VBAで列を挿入
↓
別のデータ一覧から同じ名前がある列の値を元のデータの隣の列にコピー（ここを上記のコードで行いたい）
↓
2つの列の値を計算して割合を算出

余り複雑なコードは組めないので、分割してやってます。
ピボットテーブルはデータの抽出内容でいろいろ変わるので、
本来であれば、複数条件で抽出したデータをコピー出来るようなマクロを組めればいいのですが、
まだそこまでは出来そうに有りません。

アドバイス貰えれば助かります。
よろしくお願いいたします。

Answer 1

それぞれのループの意味を考えてみましょう。
iループは読み取り列のループですよね。
そしてjループには出力列のループを期待しているのでしょう。

しかし、今回の動作では読み取った１列に対して何列も繰り返し出力をする必要はありません。
B列を読んだら、C列に出力する。
C列を読んだら、F列に出力する。
というように、常に１対１の出力です。

つまり、ループはひとつで充分ということです。

以下サンプルコードです。

Dim shtRead As Worksheet
Dim shtWrite As Worksheet

Set shtRead = Worksheets("Sheet1")
Set shtWrite = Worksheets("Sheet2")

Dim i As Integer
Dim iColRead As Integer
Dim iColWrite As Integer

iColRead = 1   '読込初期値はB列
iColWrite = 3  '出力初期値はC列

For i = 1 to 19
    '列をコピー
    shtRead.Columns(iColRead).Copy shtWrite.Columns(iColWrite)
    
    '次回の読込列
    iColRead = iColRead + 1
    '次回の出力列
    iColWrite = iColWrite + 3
    
    '今回は以下のようにiからの計算でもできます
    'iColRead = i + 1
    'iColWrite = i * 3
    'shtRead.Columns(iColRead).Copy shtWrite.Columns(iColWrite)
Next

Comments

[freu]

ループの説明からして頂き、ありがとうございます。
自分がループを曖昧に理解していることに気づかせていただきました。
頂いたコードも非常にわかりやすく、今後に活かせていけると思います。
回答頂き、ありがとうございました。

Answer 2

細かくは見ていませんが、
後ろのnext iとnext jが、
逆です。

まずはこれを修正されては
いかがでしょうか？

Comments

[freu]

早速のコメントありがとうございます。
逆にしてみたのですが、解決せず。。。
理解力不足で申し訳ありません。

Answer 3

こういうことでしょうか？

 Sub コピー()
    Dim i, j
    
    Worksheets("sheet1").Activate
    j = 1
    For i = 2 To 20
        Worksheets("sheet1").Columns(i).Copy (Worksheets("sheet2").Columns(i + j))
        j = j + 2
    Next i

End Sub

Comments

[freu]

なるほど。。。
ただ、これだとiの開始列指定は出来ますが、
jがiに同期しているので、jの開始列指定は出来なくなってしまいますね。
問題なく作動はしましたので、参考にさせて頂きます。
回答ありがとうございます。