Loncat ke daftar isi utama

Bagaimana cara memasukkan angka atau baris untuk kehilangan nomor urut di Excel?

Misalkan Anda memiliki daftar nomor urut di lembar kerja, tetapi ada beberapa nomor yang hilang di antara urutan, dan sekarang Anda perlu memasukkan nomor yang hilang atau baris kosong untuk memastikan urutannya lengkap (diperlihatkan sebagai tangkapan layar berikut). Bagaimana Anda bisa dengan cepat mengatasi masalah ini di Excel?

doc-masukkan-nomor-hilang1 -2 doc-masukkan-nomor-hilang2

Masukkan nomor yang hilang untuk urutan dengan fitur Sort and Remove Duplicates

Masukkan nomor yang hilang untuk urutan dengan kode VBA

Masukkan baris kosong untuk urutan yang hilang dengan kode VBA

Masukkan nomor yang hilang atau baris kosong untuk urutan dengan Kutools for Excel

panah gelembung kanan biru Masukkan nomor yang hilang untuk urutan dengan fitur Sort and Remove Duplicates

Mungkin Anda bisa menemukan nomor yang hilang satu per satu, lalu memasukkannya, tetapi sulit bagi Anda untuk mengidentifikasi lokasi nomor yang hilang jika terdapat ratusan nomor urut. Di Excel, saya dapat menggunakan fitur Sort and Remove Duplicates untuk menangani tugas ini.

1. Mengikuti akhir daftar urutan, isi nomor urut lain dari 2005023001 hingga 2005023011. Lihat tangkapan layar:

doc-masukkan-nomor-hilang3

2. Kemudian pilih kisaran dari dua nomor urut dan klik Data > Urutkan A sampai Z, lihat tangkapan layar:

doc-masukkan-nomor-hilang4

3. Dan data yang dipilih telah diurutkan sebagai tangkapan layar berikut:

doc-masukkan-nomor-hilang5

4. Maka Anda perlu menghapus duplikat dengan mengklik Data > Hapus Duplikat, dan di munculkan Hapus Duplikat kotak dialog, periksa Kolom nama yang ingin Anda hapus duplikatnya, lihat tangkapan layar:

doc-masukkan-nomor-hilang6 -2 doc-masukkan-nomor-hilang7

5. Lalu klik OK, duplikat dalam Kolom A telah dihapus, dan nomor yang hilang dalam daftar urutan telah dimasukkan, lihat tangkapan layar:

doc-masukkan-nomor-hilang8

panah gelembung kanan biru Masukkan nomor yang hilang untuk urutan dengan kode VBA

Jika Anda merasa ada banyak sekali langkah dengan metode di atas, di sini juga ada kode VBA yang dapat membantu Anda menyelesaikan masalah ini. Harap lakukan sebagai berikut:

1. Tahan ALT + F11 kunci, dan itu membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul jendela.

VBA: masukkan nomor yang hilang untuk urutannya

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    outArr(i + 1, 1) = i + num1
    If dic.Exists(i + num1) Then
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan muncul, pilih rentang data yang ingin Anda masukkan nomor yang hilang (jangan pilih rentang judul), lihat tangkapan layar:

doc-masukkan-nomor-hilang9

4. Dan kemudian klik OK, nomor yang hilang telah dimasukkan ke daftar urutan. Lihat tangkapan layar:

doc-masukkan-nomor-hilang1 -2 doc-masukkan-nomor-hilang2

panah gelembung kanan biru Masukkan baris kosong untuk urutan yang hilang dengan kode VBA

Terkadang, Anda hanya perlu menemukan tempat angka yang hilang dan menyisipkan baris kosong di antara data, sehingga Anda dapat memasukkan informasi yang Anda butuhkan. Tentunya kode VBA berikut juga dapat membantu Anda mengatasi masalah ini.

1. Tahan ALT + F11 kunci, dan itu membuka a Microsoft Visual Basic untuk Aplikasi jendela.

2. Klik Menyisipkan > Modul, dan tempel kode berikut di Modul jendela.

VBA: masukkan baris kosong untuk urutan yang hilang

Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
    dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
    If dic.Exists(i + num1) Then
        outArr(i + 1, 1) = i + num1
        outArr(i + 1, 2) = dic(i + num1)
    Else
        outArr(i + 1, 1) = ""
        outArr(i + 1, 2) = ""
    End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
    .Value = outArr
    .Select
End With
End Sub

3. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak prompt akan ditampilkan, lalu pilih rentang data yang ingin Anda sisipkan baris kosong untuk urutan yang hilang (jangan pilih rentang judul), lihat tangkapan layar:

doc-masukkan-nomor-hilang9

4. Dan kemudian klik OK, baris kosong telah disisipkan untuk daftar urutan yang hilang. Lihat tangkapan layar:

doc-masukkan-nomor-hilang1 -2 doc-masukkan-nomor-hilang10

panah gelembung kanan biru Masukkan nomor yang hilang atau baris kosong untuk urutan dengan Kutools for Excel

Di sini, saya akan memperkenalkan alat yang mudah dan praktis- Kutools untuk Excel, Dengan yang Temukan Nomor Urutan yang Hilang fitur, Anda dapat dengan cepat memasukkan nomor urut yang hilang atau baris kosong antara urutan data yang ada.

Kutools untuk Excel : dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. 
Pergi ke Download
Uji Coba Gratis 30 hariPembelian
PayPal / Perdagangan Saya

Jika sudah terpasang Kutools untuk Excel, lakukan hal berikut:

1. Pilih urutan data yang ingin Anda masukkan nomor yang hilang.

2. Klik Kutools > Menyisipkan > Temukan Nomor Urutan yang Hilang, lihat tangkapan layar:

3. di Temukan Nomor Urutan yang Hilang kotak dialog, periksa Memasukkan nomor urut yang hilang untuk memasukkan angka yang hilang atau Inmenyisipkan baris kosong saat menemukan nomor urut yang hilang untuk menyisipkan baris kosong yang Anda butuhkan. Lihat tangkapan layar:

doc-masukkan-nomor-hilang10

4. Dan kemudian klik OK tombol, dan nomor urut yang hilang atau baris kosong telah dimasukkan ke dalam data, lihat tangkapan layar:

doc-masukkan-nomor-hilang10 2 doc-masukkan-nomor-hilang10 2 doc-masukkan-nomor-hilang10

Unduh dan uji coba gratis Kutools untuk Excel Sekarang!

panah gelembung kanan biru  Demo: Masukkan nomor yang hilang atau baris kosong untuk urutan dengan Kutools for Excel

Kutools untuk Excel: dengan lebih dari 300 add-in Excel yang praktis, gratis untuk dicoba tanpa batasan dalam 30 hari. Unduh dan uji coba gratis Sekarang!

Artikel terkait:

Bagaimana cara mengidentifikasi urutan angka yang hilang di Excel?

Alat Produktivitas Kantor Terbaik

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria  |   VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar   |  Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel   |  Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas:  12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu.  Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...

Deskripsi Produk

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
Comments (12)
No ratings yet. Be the first to rate!
melanie.m
melanie.m
This comment was minimized by the moderator on the site
I have used the code for "VBA: insert blank rows for missing sequence" as listed above and works great - but i need it to insert rows across the all columns it only adds rows to the first 2 columns of my selection - not my entire table.
Reply
Report
0
0
skyyang
skyyang     melanie.m
This comment was minimized by the moderator on the site
Hello, Melanie,

To solve your problem, maybe the following code can help you: (Note: A indicates the column contains the missing sequence, please change it to your need.)
Sub InsertBlankRowsForMissingSequence()
    Dim i As Long
    On Error Resume Next
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        If IsNumeric(Cells(i, "A").Value) And IsNumeric(Cells(i - 1, "A").Value) And Cells(i, "A").Value <> "" And Cells(i - 1, "A").Value <> "" Then
            If Cells(i, "A").Value - Cells(i - 1, "A").Value > 1 Then
                Debug.Print Cells(i, "A").Value - Cells(i - 1, "A").Value - 1
                Rows(i).Resize(Cells(i, "A").Value - Cells(i - 1, "A").Value - 1).Insert
            End If
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Please have a try, hope it can help you!
Reply
Report
0
0
Manouk
Manouk
This comment was minimized by the moderator on the site
I am trying to use the VBA for sequential numbers. I have several columns next to the numbers of which numbers too. I.e.
1. HL Meter 34
2. HL Watermeter 40
4. HL CO2meter 24

When I use the code it works for the first 3 columns but it gets mixed up if I include the 4th column since it includes numbers too.
How can I change the code to make sure the numbers in column 4 stay the same?
Reply
0
0
Rob
Rob
This comment was minimized by the moderator on the site
Thank you amazing
Reply
0
0
Gavin Cooke
Gavin Cooke
This comment was minimized by the moderator on the site
What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
Reply
0
0
phani
phani
This comment was minimized by the moderator on the site
I want to use "Inserting missing sequence Number" feature but it's not supporting for digits more than 12 ? there are many sets in which I want to insert the sequence between (it's a alpha-numeric digit) can you help
Reply
0
0
phani
phani
This comment was minimized by the moderator on the site
Hi, I want to use "Inserting Missing Sequence Number", but it's not supporting if the no. of digits are more than 12 can you help ?
Reply
0
0
Shahab
Shahab
This comment was minimized by the moderator on the site
What if i want to select 6 columns and then check 1st column for dates and if dates are missing add a row(blank cells) for all 6 columns
Reply
0
0
Francois
Francois
This comment was minimized by the moderator on the site
Thank you very much. How do i change the script if the increments is only 0.02 and not 1 This is for the script InsertNullBetween()
Reply
0
0
jonny
jonny
This comment was minimized by the moderator on the site
this worked and was very easy to complete the task. Thank you.
Reply
0
0
Denis
Denis
This comment was minimized by the moderator on the site
Thanks ! Great script ! How i can modify this script if i say we need to process not only ID column + NAME column, but ID column + NAME column + NEW column ? How i can add new columns in this script?
Reply
0
0
Amir
Amir     Denis
This comment was minimized by the moderator on the site
The following is the modified macro to include an added column - Another important point is that when prompted to select the range, you should only select the first column - these took me a few hours! hope to save others' time

Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
Dim dic2 As Variant
Set dic2 = CreateObject("Scripting.Dictionary")

'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 3)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
dic2(Rng.Value) = Rng.Offset(0, 2).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
Else
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations