Anda bisa menggunakan metode berikut ini untuk membandingkan data dalam dua kolom lembar kerja Microsoft Excel dan menemukan entri duplikat.
Metode 1: Menggunakan rumus lembar kerja
-
Mulai Excel.
-
Dalam lembar kerja baru, masukkan data berikut ini sebagai contoh (biarkan kolom B kosong):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
Ketik rumus berikut ini di sel B1:
=IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1) -
Pilih sel B1 hingga B5.
-
Di Excel 2007 dan versi Excel yang lebih baru, pilih Isi grup Pengeditan, lalu pilih Bawah.
Nomor duplikat ditampilkan di kolom B, seperti dalam contoh berikut:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
Metode 2: Menggunakan makro Visual Basic
Peringatan: Microsoft menyediakan contoh pemrograman untuk ilustrasi saja, tanpa jaminan baik tersurat maupun tersirat. Ini termasuk, tetapi tidak terbatas pada, jaminan tersirat dari kelayakan jual atau kesesuaian untuk tujuan tertentu. Artikel ini mengasumsikan bahwa Anda sudah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan men-debug prosedur. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan mengubah contoh ini untuk menyediakan fungsionalitas tambahan atau prosedur konstruksi untuk memenuhi persyaratan tertentu Anda.
Untuk menggunakan makro Visual Basic untuk membandingkan data dalam dua kolom, gunakan langkah-langkah dalam contoh berikut:
-
Buka Excel.
-
Tekan ALT+F11 untuk memulai editor Visual Basic.
-
Pada menu Sisipkan, pilih Modul.
-
Masukkan kode berikut dalam lembar modul:
Sub Find_Matches() Dim CompareRange As Variant, x As Variant, y As Variant ' Set CompareRange equal to the range to which you will ' compare the selection. Set CompareRange = Range("C1:C5") ' NOTE: If the compare range is located on another workbook ' or worksheet, use the following syntax. ' Set CompareRange = Workbooks("Book2"). _ ' Worksheets("Sheet2").Range("C1:C5") ' ' Loop through each cell in the selection and compare it to ' each cell in CompareRange. For Each x In Selection For Each y In CompareRange If x = y Then x.Offset(0, 1) = x Next y Next x End Sub -
Tekan ALT+F11 untuk kembali ke Excel.
-
Masukkan data berikut ini sebagai contoh (biarkan kolom B kosong):
A
B
C
1
1
3
2
2
5
3
3
8
4
4
2
5
5
0
-
-
Pilih sel A1 hingga A5.
-
Di Excel 2007 dan versi Excel yang lebih baru, pilih tab Pengembang, lalu pilih Makro dalam grup Kode .
Catatan: Jika tidak melihat tab Pengembang , Anda mungkin harus mengaktifkannya. Untuk melakukannya, pilih Opsi > File > Kustomisasi Pita, lalu pilih tab Pengembang dalam kotak kustomisasi di sisi kanan.
-
Klik Find_Matches, lalu klik Jalankan.
Angka duplikat ditampilkan di kolom B. Nomor yang cocok akan diletakkan di samping kolom pertama, seperti yang digambarkan di sini:A
B
C
1
1
3
2
2
2
5
3
3
3
8
4
4
2
5
5
5
0
