質問: k + 1 Next j End Sub
回答: 記述内容を正確にしたいのであれば、以下のようなものでしょうか? Sub 練習() Dim 合計 As Long, j As Long 合計 = Range("D1") '3桁の数字を取得 For j = 1 To 5 Cells(j, "A").Value = Format(Date, "yymm") & Format(合計, "-000") 合計 = 合計 + 1 Next j End Sub