Membuat nomor urut otomatis di excel

Kode macro membuat nomor urut secara vertikal

Sub nomorurutvertikal ()
eh = Sheets("Sheet1").Range("T3").Value
For no = 1 To eh
Cells(no, 1).Value = no
Cells(no, 2).Value = no 'kolom b
Cells(no, 3).Value = no 'kolom c dan seterusnya
Next no
end sub

Kode macro membuat nomor urut secara Horizontal

Sub nomoruruthorizontal ()
eh = Sheet1.Range("T3").Value
For no = 1 To eh
Cells(1, no).Value = no
Next no
End Sub

Kode macro membuat nomor urut custom

Sub Nomorurutcustom ()
eh = Sheet1.Range("T4").Value
no = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Offset(0, 0).Row
Sheet1.Cells(no + 1, 1).Value = eh & no
End Sub

Video tutorial cara membuat nomor urut dengan excel VBA