質問: range("個人番号") + 1 loop end sub 今回、行いたいのは「成績表」シートのa列にある個人番号が不連続であったり、欠番があったりします。そこで、「成績表」シートのa列の例えば、a4からa10までというように、開始行と最終行を指定して、差し込み印刷するようにしたいのです。 できれば上の構文を生かしたいのですが、ご教授のほどよろしくお願い申し上げます。
回答: ん? あぁ失礼しました、誤記ました。(ていうか、至はb8じゃなくてb3と書いてあったんですね) >「至」のセル(「個人表」シートのb3セル)に入力した番号まで sub macro1() dim i as long for i = range("a3") to range("b3") range("a8").value = worksheets("成績表").cells(i, "a").value worksheets("個人票").printout next i end sub お手数をおかけして大変ごめんなさいでした