Cara membandingkan data di dua kolom untuk menemukan data ganda pada Excel

Apabila ada user yg ingin membandingkan data di antara 2 kolom di Ms. Excel, berikut ini adalah salah satu caranya. Silakan dicoba.

Metode 1: Gunakan formula lembar kerja

Dalam menggunakan formula lembar kerja untuk membandingkan data di dua kolom, ikuti langkah berikut:

1. Mulai Excel.
2. Pada lembar kerja yang baru, masukkan data berikut (biarkan kolom B kosong):

   A1: 1   B1:     C1: 3
   A2: 2   B2:     C2: 5
   A3: 3   B3:     C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5:     C5: 0
        

3. Ketik formula berikut dalam sel B1:

   =IF(ISERROR(MATCH(A1,$C$1:$C$5,0)),"",A1)

4. Pilih sel B1:B5.
5. Pada Microsoft Office Excel 2003 dan versi Excel sebelumnya, arahkan ke Isi pada menu Sunting, dan klik Turun.
   
   Pada Office Excel 2007 dan Excel 2010, klik Isi pada grup Menyunting , dan klik Turun.
   
   Nomor-nomor ganda akan ditampilkan dalam kolom B, seperti contoh berikut:

      A1: 1   B1:     C1: 3
      A2: 2   B2: 2   C2: 5
      A3: 3   B3: 3   C3: 8
      A4: 4   B4:     C4: 2
      A5: 5   B5: 5   C5: 0
        

Metode 2: Gunakan makro Visual Basic

Microsoft memberikan contoh pemrograman hanya untuk tujuan ilustrasi, tanpa garansi baik yang tertulis maupun tersirat. Hal ini mencakup, namun tidak terbatas pada, garansi yang tersirat pada keadaan yang dapat diperjualbelikan atau kesesuaian untuk tujuan tertentu. Artikel ini menganggap bahwa Anda sudah terbiasa dengan bahasa pemrogaman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan memperbaiki prosedur. Teknisi Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Meskipun demikian, mereka tidak akan mengubah contoh tersebut untuk menyediakan fungsionalitas tambahan atau membuat prosedur untuk memenuhi syarat khusus Anda. Untuk menggunakan makro Visual Basic untuk membandingkan data dalam dua kolom, ikuti langkah-langkah dalam contoh berikut:

1. Mulai Excel.
2. Tekan ALT+F11 untuk memulai penyunting Visual Basic.
3. Pada menu Sisipkan, klik Internet Options.
4. Masukkan kode berikut pada lembar modul:

   
   Sub Find_Matches()
       Dim CompareRange As Variant, x As Variant, y As Variant
       ' Tetapkan CompareRange menjadi sama seperti kisaran yang
       ' akan Anda bandingkan pilihannya.
       Set CompareRange = Range("C1:C5")
       ' CATATAN: Jika rentang yang dibandingkan berada pada buku kerja yang lain
       ' atau lembar kerja, gunakan sintaksis berikut.
       ' Set CompareRange = Workbooks("Book2"). _
       '   Worksheets("Sheet2").Range("C1:C5")
       '
       ' Ulangi pada tiap sel dalam pilihan dan bandingkan dengan
       ' tiap sel dalam CompareRange.
       Untuk Setiap x Dalam Seleksi
           Untuk Setiap y Dalam CompareRange
               If x = y Then x.Offset(0, 1) = x
           Next y
       Next x
   End Sub
        

5. Tekan ALT+F11 untuk kembali ke Excel.
6. Masukkan data berikut (biarkan kolom B kosong):

   A1: 1   B1:     C1: 3
   A2: 2   B2:     C2: 5
   A3: 3   B3:     C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5:     C5: 0
        

7. Pilih rentang A1:A5.
8. Pada Microsoft Office Excel 2003 dan versi Excel sebelumnya, arahkan ke Makro pada menu Tools , dan klik Makro.
   
   Pada Excel 2007 dan Excel 2010, klik tab Pengembang, dan klik Makro pada Kode grup.
9. Klik Cari_Padanan, lalu klik Jalankan.

Angka duplikat ditampilkan di kolom B. Angka yang sesuai akan diletakkan di samping kolom pertama, seperti ilustrasi di bawah ini:

   A1: 1   B1:     C1: 3
   A2: 2   B2: 2   C2: 5
   A3: 3   B3: 3   C3: 8
   A4: 4   B4:     C4: 2
   A5: 5   B5: 5   C5: 0
    

Artikel asli ada di: http://support.microsoft.com/kb/213367/id-id