質問: i + 1 next end sub
回答: #2です。示されているコードを纏めてみました。 理解できない部分は、想定で書き替えました。コードは、リストシート2行目から最後の行まで1行ずつ繰り返されます。 ご質問を明確に提示してみてはいかがでしょう。 sub 請求書作成() dim i as long, n as long for i = 2 to worksheets("リスト").cells(rows.count, "a").end(xlup).row worksheets("原本").copy after:=worksheets(worksheets.count) with activesheet .name = format(date, "yymmdd") & sheets("リスト").cells(i, 1).value '請求書ひな形に転記 氏名 .range("e3,e23,e45,e63").value = sheets("リスト").cells(i, 1).value ' 合計金額 .range("f5,f25,f45").value = sheets("リスト").cells(i, 5).value ' 消費税欄 .range("f13,f33,f53,f73").value = sheets("リスト").cells(i, 6).value '5? 合計金額と同じ?解らないけどリストシートf列で ' 入所日 .range("k7,k27,k47,k67").value = sheets("リスト").cells(i, 2).value ' 退所日 .range("k8,k28,k48,k68").value = sheets("リスト").cells(i, 3).value ' 日数 .range("k9,k29,k49,k69").value = sheets("リスト").cells(i, 4).value end with n = n + sheets("リスト").cells(i, 5).value '発行した合計金額を合算する next '原本のbm65セルに書き込む? sheets("原本").cells(65, 65).value = n 'n=発行した合計金額 end sub 変数 n は不要なので違う使い方に割り当てました。 全体としては、新規シートを作成するなら、新規ブックを作成した方が良いかもです。