VBA：変数が2つのFor文

Question

前提・実現したいこと

別ブックに転記していくコードをFor文に書き換えたいです。
変数が2つ出てくる場合どう書けばいいのか分からなく、考えてコードを書いてみましたが動きませんでした。

該当のソースコード

Sub PostingMainSecretary()
'取締役メイン秘書の転記

Dim wb As Workbook
Set wb = Workbooks("Book1.xlsx")

wb.Sheets(1).Range("G4") _
= ThisWorkbook.Worksheets("Sheet1").Range("J2")
wb.Sheets(1).Range("G5") _
= ThisWorkbook.Worksheets("Sheet1").Range("J3")
wb.Sheets(1).Range("G6") _
=ThisWorkbook.Worksheets("Sheet1").Range("J4")
wb.Sheets(1).Range("G7") _
= ThisWorkbook.Worksheets("Sheet1").Range("J5")
wb.Sheets(1).Range("G8") _
= ThisWorkbook.Worksheets("Sheet1").Range("J6")

End Sub

試したこと

Dim wb As Workbook
Dim i As Long
Dim cnt
Set wb = Workbooks("Book1.xlsx")

cnt = 4

For i = 2 To 6


wb.Sheets(1).Range("G" & cnt) _
= ThisWorkbook.Worksheets("Sheet1").Range("J" & i)


cnt = cnt + 1

Next


End Sub

Comments

[kaina]

2つの値には差分が常に2という規則性がありますよね？
後はその差分を固定でどうにかしてあげればお悩みのことは解決しますので
もう少しご自分で考えてみて下さい。

[meg_]

> 考えてコードを書いてみましたが動きませんでした。
「動きませんでした」をもう少し具体的に説明いただけないでしょうか？

[aaaskw123123]

申し訳ございません。回答してくださった方のアドバイスを参考にしたら思った通りに動きました。ありがとうございます。

[kaina]

既に解決されたようですが、参考までに。
変数cntを使用しなくても差分が常に2であることから以下のように書くことで
変数1つでお望みの動作が実現出来ます。

wb.Sheets(1).Range("G" & i + 2) _
= ThisWorkbook.Worksheets("Sheet1").Range("J" & i)

[aaaskw123123]

回答ありがとうございます。
参考にさせていただきます!!

Answer 1

提示のコードで問題なく動作してると思いますが。

ただ、変数を２つ使う必要はないですね。
転記元と転記先の行数の差が２で固定なので。

   For i = 2 To 6

        wb.Sheets(1).Range("G" & i + 2) _
                = ThisWorkbook.Worksheets("Sheet1").Range("J" & i)
     
    Next

連続した範囲なら、ループを使わずに一気に代入したほうがシンプルだし高速です。

    wb.Sheets(1).Range("G4:G8").Value _
        = ThisWorkbook.Worksheets("Sheet1").Range("J2:J6").Value

Comments

[aaaskw123123]

回答ありがとうございます。
参考にさせていただきます!!

Answer 2

最初のコードは、J列の値をG列に転記していますが、試した方のコードは、L列からH列ですが、あっていますか？
それ以外は動くように見えますが、どのようにうまく行かないのでしょうか？

Comments

[aaaskw123123]

すみません。こちらのミスです。編集いたしました。

[aaaskw123123]

無事動きました。ありがとうございます。