転記マクロでの現象(2回目以降の表示位置がずれる)

質問

転記マクロでの現象(2回目以降の表示位置がずれる)

外部ブックのデータを元に集計作業をするため、第一段階でデータを転記するマクロを
作成しました。
（転記元データを、転記先のF～H列には3行おき、R4:T2000には1行おきに転記させています）

1回目の転記では希望の表示位置に転記されるのですが、2回目のテストをしようと再度
実行すると、1回目の最後の転記された位置より、転記が開始されてしまいます。

一度ブックを閉じて再実行をしてみたら、1回目の転記は希望位置だったのですが、
2回目はやはり1回目の最後の転記位置から開始され、試しに3回目をやってみたら今度は
2回目の最後の転記位置から開始されました。

どの部分を直せば良いのか、お解りになる方がいましたら教えてください。
よろしくお願いします。

Option Explicit

Public Kihon As Worksheet, BaseG As Worksheet
Public i As Integer, L As Integer, R As Integer

Sub Step1_転記()
Application.ScreenUpdating = False
Worksheets("転記先").Range("F4:H2000,R4:T2000").ClearContents
Set BaseG = Workbooks("転記元.xls").ActiveSheet
Set Kihon = Worksheets("転記先")

For i = 1 To 2000

'↓転記元の合計覧が0以外を集計する
'---------------------------------------------------------------
If BaseG.Cells(i + 5, 16) <> 0 Then

'↓コード
'---------------------------------------------------------------
Kihon.Cells(L + 4, 6) = BaseG.Cells(i + 5, 2)
Kihon.Cells(R + 4, 18) = BaseG.Cells(i + 5, 2)
'↓社名
'---------------------------------------------------------------
Kihon.Cells(L + 4, 7) = BaseG.Cells(i + 5, 3)
Kihon.Cells(R + 4, 19) = BaseG.Cells(i + 5, 3)
'↓金額
'---------------------------------------------------------------
Kihon.Cells(L + 4, 8) = BaseG.Cells(i + 5, 16)
Kihon.Cells(R + 4, 20) = BaseG.Cells(i + 5, 16)

L = L + 3
R = R + 1
End If
Next i
Application.ScreenUpdating = True
End Sub

回答No.1

moon00 · ベストアンサー

処理が終わった後で、LとRがリセットされてないためじゃないでしょうか？
1度目の処理が終わった後、LとRの値がそのままになってしまっていると思います。
For i = 1 To 2000の前に、LとRの初期値、L=1　R=1を付加してみてはどうですか？

お礼

お返事ありがとうございました。
まさにその通りでした。
午前中からずっと悩んでいたので大変助かりました。
ありがとうございました。