(VBA) FOR文の修正をお願いします。

質問

基本的な事でうまく処理できません。

下記コードで
シート（DATA)の内容を
シート（Chapter）に順番(FOR文）に書き出したいのですが
　コードの修正をお願いします。

添付画像で説明すると
　①の内容を
　②のように書き換えたいのですが
　実際の現在のコードでは③のようになってしまいます。

FOR文の変数（I）とSTEPの値が間違っているのですが
　基本的なことですいません。

-------------------------------------------------------------

Set WS1 = Worksheets("DATA")

With Worksheets("Chapter")
For I = 1 To EndLow - 2 Step 2
.Cells(I, "A") = "CHAPTER" & WS1.Cells(I + 2, "H") & "=" & Format(WS1.Cells(I + 2, "E").Value, "h:mm:ss")
.Cells(I + 1, "A") = "CHAPTERNAME=" & WS1.Cells(I + 2, "G")
Next
End With

回答No.1

watabe007 · ベストアンサー

参考に
Dim WS As Worksheet, EndLow As Long
Dim I As Long, J As Long

Set WS1 = Worksheets("DATA")
EndLow = WS1.Cells(Rows.Count, "E").End(xlUp).Row
With Worksheets("Chapter")
For I = 3 To EndLow
J = J + 1
.Cells(J, "A") = "CHAPTER" & WS1.Cells(I, "H") & "=" & Format(WS1.Cells(I, "E").Value, "h:mm:ss")
J = J + 1
.Cells(J, "A") = "CHAPTERNAME=" & WS1.Cells(I, "G")
Next
End With

お礼

watanabe007さん、回答ありがとうございます。

変数（J)の使い方は、全く考えが及びませんでした。

No.2の回答も参考になりました。

おかげさまで無事解決しました。

回答No.3

kkkkkm

With Worksheets("Chapter")
For I = 1 To EndLow - 2
.Cells(I + .Rows(I).Row - 1, "A") = "CHAPTER" & WS1.Cells(I + 2, "H") & "=" & Format(WS1.Cells(I + 2, "E").Value, "h:mm:ss")
.Cells(I + .Rows(I).Row, "A") = "CHAPTERNAME=" & WS1.Cells(I + 2, "G")
Next
End With

でいけると思いますが、変に計算するより
単純に

J = 1
With Worksheets("Chapter")
For I = 1 To EndLow - 2
.Cells(J, "A") = "CHAPTER" & WS1.Cells(I + 2, "H") & "=" & Format(WS1.Cells(I + 2, "E").Value, "h:mm:ss")
.Cells(J + 1, "A") = "CHAPTERNAME=" & WS1.Cells(I + 2, "G")
J = J + 2
Next
End With

とした方が、変更になったときに対処しやすいと思います。

回答No.2

watabe007

こちらも
For I = 3 To EndLow
.Cells((I - 3) * 2 + 1, "A") = "CHAPTER" & WS1.Cells(I, "H") & "=" & Format(WS1.Cells(I, "E").Value, "h:mm:ss")
.Cells((I - 3) * 2 + 2, "A") = "CHAPTERNAME=" & WS1.Cells(I, "G")
Next