＜カウント補助EXCELマクロ＞

Sub mezase_1oku()
'Sheet1の
'A1セルにスタートする数字
'A2セルに終わらせる数字
'A3セルに1行のカウント数
'A4セルに区切り行数(というか、1レスの行数)
'を入れてこいつを実行すると
'Sheet2のA列に入ります
Set open_File = Application.ActiveWorkbook
Set Settei_Sheet = open_File.Worksheets("Sheet1")
Set Kakikomi_Sheet = open_File.Worksheets("Sheet2")
Kakikomi_Sheet.Columns("A:A").Delete
countSATART = Settei_Sheet.Range("A1")
countEND = Settei_Sheet.Range("A2")
countGYOU = Settei_Sheet.Range("A3")
countKUGIRI = Settei_Sheet.Range("A4")
cell_A = 1
For i = countSATART To countEND Step countKUGIRI * countGYOU
For j = 0 To countKUGIRI * countGYOU - 1 Step countGYOU
cell_txt = ""
For k = 0 To countGYOU - 1
If i + j + k > countEND Then Exit For
cell_txt = cell_txt & " " & (i + j + k)
Next
Kakikomi_Sheet.Range("A" & cell_A) = cell_txt
cell_A = cell_A + 1
Next
cell_A = cell_A + 1
Next
Kakikomi_Sheet.Activate
End Sub