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