Note: The other languages of the website are Google-translated. Back to English

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

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 for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

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!
officetab bawah
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Terima kasih ! Skrip yang bagus! Bagaimana saya dapat memodifikasi skrip ini jika saya katakan kita perlu memproses tidak hanya kolom ID + kolom NAMA, tetapi kolom ID + kolom NAMA + kolom BARU? Bagaimana saya bisa menambahkan kolom baru di skrip ini?
Komentar ini diminimalkan oleh moderator di situs
Berikut ini adalah makro yang dimodifikasi untuk menyertakan kolom tambahan - Poin penting lainnya adalah ketika diminta untuk memilih rentang, Anda hanya boleh memilih kolom pertama - ini membutuhkan waktu beberapa jam! berharap untuk menghemat waktu orang lain

Sub SisipanNilaiAntara()
'Perbarui oleh Extendoffice
Redup WorkRng Sebagai Rentang
Dim Rng Sebagai Rentang
Redupkan Arr Sebagai Varian
Dim dic Sebagai Varian
Setel dic = CreateObject("Scripting.Dictionary")
Dim dic2 Sebagai Varian
Setel dic2 = CreateObject("Scripting.Dictionary")

'Pada Kesalahan Lanjutkan Selanjutnya
xTitleId = "KutoolsforExcel"
Atur WorkRng = Application.Selection
Atur WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Nilai
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Nilai
interval = angka2 - angka1
ReDim outArr(1 Ke interval + 1, 1 Ke 3)
Untuk Setiap Rng Dalam PekerjaanRng
dic(Rng.Nilai) = Rng.Offset(0, 1).Nilai
dic2(Rng.Nilai) = Rng.Offset(0, 2).Nilai
Next
Untuk i = 0 Ke interval
outArr(i + 1, 1) = i + num1
Jika dic.Ada(i + num1) Maka
outArr(i + 1, 2) = dic(i + num1)
outArr(i + 1, 3) = dic2(i + num1)
Lain
outArr(i + 1, 2) = ""
outArr(i + 1, 3) = ""

End If
Next
Dengan WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Nilai = outArr
.Pilih
Berakhir dengan
End Sub
Komentar ini diminimalkan oleh moderator di situs
ini berhasil dan sangat mudah untuk menyelesaikan tugas. Terima kasih.
Komentar ini diminimalkan oleh moderator di situs
Terima kasih banyak. Bagaimana cara mengubah skrip jika kenaikannya hanya 0.02 dan bukan 1 Ini untuk skrip InsertNullBetween()
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika saya ingin memilih 6 kolom dan kemudian memeriksa kolom 1 untuk tanggal dan jika tanggal tidak ada tambahkan baris (sel kosong) untuk semua 6 kolom
Komentar ini diminimalkan oleh moderator di situs
Hai, saya ingin menggunakan "Memasukkan Nomor Urutan yang Hilang", tetapi tidak mendukung jika tidak. angkanya lebih dari 12 ada yang bisa bantu?
Komentar ini diminimalkan oleh moderator di situs
Saya ingin menggunakan fitur "Memasukkan Nomor urut yang hilang" tetapi tidak mendukung untuk angka lebih dari 12? ada banyak set di mana saya ingin memasukkan urutan antara (ini adalah digit alfanumerik) dapatkah Anda membantu
Komentar ini diminimalkan oleh moderator di situs
Bagaimana jika saya ingin memilih 6 kolom dan kemudian memeriksa kolom 1 untuk tanggal dan jika tanggal tidak ada tambahkan baris (sel kosong) untuk semua 6 kolom
Komentar ini diminimalkan oleh moderator di situs
Terima kasih luar biasa
Komentar ini diminimalkan oleh moderator di situs
Saya mencoba menggunakan VBA untuk nomor urut. Saya memiliki beberapa kolom di sebelah nomor yang nomornya juga. Yaitu
1. HL Meter 34
2. HL Meter Air 40
4. HL CO2meter 24

Ketika saya menggunakan kode itu berfungsi untuk 3 kolom pertama tetapi akan tercampur jika saya memasukkan kolom ke-4 karena itu termasuk angka juga.
Bagaimana saya bisa mengubah kode untuk memastikan angka di kolom 4 tetap sama?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL