マクロで奇数と偶数の値を2か所のセルに入れて、連続印刷をしたい

A４横の紙にA5サイズの請求書を2枚の作成しています。
VLOOKUP関数が入っていて、C２とＪ２に値を入れると、2名分の請求書がでる状態です。
マクロでＣ２には奇数を、Ｊ２には偶数の値を入れて連続印刷をしたいです。
ここまでは作成したのですが、１～１０までの奇数ページが表示された後、2～10までの偶数ページが表示される状態です。
Sub Sample1()
Dim i As Integer
Dim j As Integer


For i = 1 To 10 Step 2
Range("C2").Value = i
ActiveSheet.PrintPreview
Next i

For j = 2 To 10 Step 2
Range("j2").Value = j
ActiveSheet.PrintPreview
Next j
End Sub


というようにするにはどのようにすればよいのでしょうか？説明がうまくできないのですが、
よろしくお願いいたします。

No.1 ベストアンサー 回答者： shut0325 回答日時： 2020/11/08 01:39

詳細わかりませんが、C2とJ2の値のセットが

1：2　3：4　5：6　7：8　9：10　という風になればいいのですよね？

ならば、for文は1つで済みます。

for i=1 to 5

Range("C2").Value =2* i-1

Range("j2").Value =2*i

next

という感じになるかと。
※表示に関する部分は省略しています。

この回答へのお礼

つたない説明にも関わらず、丁寧に回答していただきありがとうございました！無事作成することができました。もっと勉強します。

お礼日時：2020/11/08 08:14