質問: 行 + 1 end sub とても単純なミスをしているのだと思うのですが なにぶん初心者なためそれに気がつくことができません。 (for~next等も見よう見まねで初めて使いました・・・) 月曜日までに分かるととても助かるのですが、 皆様どうぞよろしくお願いいたします。
回答: >行 = 行 + 1 の処理位置が間違っているだけです sub 差込印刷() dim 番号 as integer dim 行 as integer 行 = 2 for 番号 = 1 to 20 if sheets("sheet1").cells(行, 5).value = "" then exit for sheets("sheet2").range("r1").value = 番号 sheets("sheet2").printout from:=1, to:=1 行 = 行 + 1 next 番号 end sub