Cara menemukan duplikat di Excel Visual Basic

Temukan duplikat di Microsoft Excel 2010.

Langkah 1

Buka file Microsoft Excel 2010 yang berisi data yang ingin Anda periksa duplikat. Saat spreadsheet terbuka, tekan tombol "Alt" dan "F11" untuk memuat konsol VBA.

Langkah 2

Klik pada spreadsheet di sisi kiri layar VBA. Gerakkan mouse ke "Insert" dan pilih opsi "Module". Klik dua kali pada modul baru yang muncul beberapa baris di bawah spreadsheet.

Langkah 3

Tempatkan kursor di ruang kosong di sisi kanan layar. Tulis "Sub Dupecheck ()" dan tekan Enter. VBA akan secara otomatis memasukkan perintah "End Sub" untuk Anda.

Langkah 4

Tempatkan kursor pada baris antara perintah "Sub" dan "End Sub". Masukkan baris kode berikut:

Dim x As Long Dim endrow As Long endrow = Range ("A50000"). End (xlUp) .Row

Kode ini menciptakan dua variabel, "EndRow" dan "x", dan kemudian menetapkan nilai "EndRow". Kode ini akan mencari hingga 50 ribu baris dalam satu kolom, tetapi jika Anda perlu mencari di antara lebih banyak garis, ini akan meningkat dari 50 ribu ke nomor apa pun yang Anda butuhkan. Kode ini juga dirancang untuk melihat kolom "A", tetapi Anda hanya perlu mengubah "A" menjadi huruf apa pun di kolom yang Anda butuhkan.

Langkah 5

Tempatkan kursor pada baris berikut dan tulis kode berikut:

Untuk x = endrow To 1 Step -1 Jika Application.WorksheetFunction.CountIf (Range ("A1: A" & x), Range ("A" & x) .Text)> 1 Then Range ("A" & x). Interior.Color = RGB (200, 160, 35) Akhiri Jika Berikutnya x

Ini adalah jantung kode yang akan mencari melalui setiap sel dan menentukan apakah sel yang identik ada di atasnya. Jika menemukan duplikat, itu akan mengubah bagian bawah sel menjadi warna kuning. Anda dapat mengubah semua contoh "A" jika Anda bekerja di kolom yang berbeda. Anda juga dapat mengubah tiga angka setelah "Interior.color" untuk mengubah warna di mana sel akan dikonversi.

Langkah 6

Klik pada "x" di sudut kanan atas layar untuk menutup konsol VBA. Klik pada tab "Pengembang" di bagian atas layar. Temukan tombol "Makro" di sisi kiri pita dan klik di atasnya. Pilih "Dupecheck" dari daftar makro yang tersedia dan klik "Run." Excel sekarang akan menyorot setiap duplikat di kolom data.