Loncat ke daftar isi utama

Bagaimana menemukan nilai duplikat atau unik dalam dua kolom dari dua lembar?

Mungkin membandingkan dua rentang dalam lembar kerja yang sama dan menemukan nilai duplikat atau unik mudah bagi sebagian besar dari Anda, tetapi jika dua rentang berada dalam dua lembar kerja yang berbeda, bagaimana Anda dapat dengan cepat menemukan nilai duplikat dan unik dalam dua rentang ini ? Tutorial ini akan memperkenalkan beberapa potongan cepat untuk Anda.

Bandingkan dua kolom header yang sama dalam dua lembar bentang dengan rumus di Excel

Bandingkan dua rentang dalam dua lembar sebar dengan VBA

Bandingkan dua rentang dalam dua lembar bentang dengan Kutools for Excel


panah gelembung kanan biru Bandingkan dua kolom header yang sama dalam dua lembar bentang dengan rumus di Excel

Dengan rumus di Excel, Anda dapat membandingkan dua kolom header yang sama seperti yang ditunjukkan di bawah ini pada lembar berbeda dan menemukan nilai duplikat dan unik:

1. Mengetik rumus ini = COUNTIF (Sheet1! $ A: $ A, A1) di sel kosong yang berdekatan dengan kisaran di Lembar 3. Lihat tangkapan layar:

2. tekan Enter pada keyboard, lalu seret gagang isian untuk mengisi rentang yang ingin Anda bandingkan dengan rentang di Lembar 1. (Angka Nol berarti nilai duplikat dalam dua rentang, dan Angka 1 berarti nilai unik di Sheet3, tetapi tidak di Sheet1)

Tip:

1. Formula ini hanya bisa membandingkan dua kolom dengan header yang sama di dua spreadsheet.

2. Jika Anda ingin menemukan nilai unik di Sheet1, tetapi tidak di Sheet3, Anda harus memasukkan rumus di atas =COUNTIF (Sheet3! $ A: $ A, A1) menjadi Sheet1.


panah gelembung kanan biru Bandingkan dua rentang dalam dua lembar sebar dengan VBA

1. Memegang ALT tombol dan tekan F11 pada keyboard untuk membuka a Microsoft Visual Basic untuk Aplikasi jendela.

2. klik Menyisipkan > Modul, dan salin VBA ke dalam modul.

VBA: Bandingkan dua rentang dalam dua spreadsheet

Sub CompareRanges () 'Update 20130815 Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range xTitleId = "KutoolsforExcel" Set WorkRng1 = Application.InputBox ("Range A:", xTitleId, "", Type: = 8 ) Set WorkRng2 = Application.InputBox ("Range B:", xTitleId, Type: = 8) Untuk Setiap Rng1 Dalam WorkRng1 rng1Value = Rng1.Value Untuk Setiap Rng2 Dalam WorkRng2 Jika rng1Value = Rng2.Value Lalu Rng1.Interior.Color = VBA .RGB (255, 0, 0) Keluar Untuk Akhir Jika Berikutnya Akhir Berikutnya Sub

3. klik Run tombol atau tekan F5 untuk menjalankan VBA.

4. Ada dialog yang ditampilkan di layar, dan Anda harus memilih satu rentang yang ingin Anda bandingkan. Lihat tangkapan layar:

5. klik Ok dan dialog lain ditampilkan bagi Anda untuk memilih rentang kedua. Lihat tangkapan layar:

6. klik Ok, dan nilai duplikat di Range A dan Range B disorot dengan latar belakang merah di Range A. Lihat tangkapan layar:

Tips: Dengan VBA ini, Anda dapat membandingkan dua rentang dalam lembar kerja yang sama dan berbeda.


panah gelembung kanan biru Bandingkan dua rentang dalam dua lembar bentang dengan Kutools for Excel

Jika formula tidak nyaman bagi Anda, dan VBA sulit bagi Anda, Anda dapat mencobanya Kutools untuk Excel's Bandingkan Rentang fungsi.

Kutools untuk Excel mencakup lebih dari 300 alat Excel yang praktis. Gratis untuk mencoba tanpa batasan dalam 30 hari. Dapatkan Sekarang

Mohon berlaku Bandingkan Rentang berfungsi dengan mengklik Kutools > Bandingkan Rentang. Lihat tangkapan layar:

Bandingkan dengan dua kolom di lembar berbeda:

1. klik Kutools > Bandingkan Rentang, dialog ditampilkan di layar. Lihat tangkapan layar:

2. Tentukan rentang dan aturan, lakukan sebagai berikut:

Biarkan Bandingkan dalam rentang yang sama hapus centang, dan pilih dua rentang dengan mengklik Rentang A dan Rentang B, lihat tangkapan layar:

Tentukan nilai yang sama atau nilai berbeda yang ingin Anda temukan di kotak turun bawah di bawah Aturan;

3. klik Ok. Dialog pop-up memberi tahu Anda bahwa nilai yang sama telah dipilih.

4. klik Ok tombol di dialog pop-up. Nilai yang sama antara dua rentang dipilih di Rentang A.

Bandingkan dua rentang di lembar kerja spreadsheet

Jika Anda memiliki dua rentang dalam dua spreadsheet seperti yang ditunjukkan di bawah ini, dan Anda ingin membandingkannya serta mengetahui nilai yang berbeda, Anda dapat melakukan hal berikut:

1. klik Kutools > Bandingkan Rentang, dialog ditampilkan di layar.

2. Tentukan rentang dan aturan, lakukan sebagai berikut:

Meninggalkan Bandingkan dalam rentang yang sama hapus centang, dan pilih dua rentang dengan mengklik Rentang A dan Rentang B;

Tentukan nilai berbeda yang ingin Anda temukan di kotak drop-down di bawah Rules;

Periksa Data saya memiliki tajuk in Opsi bagian;

3. klik Ok. Dialog pop-up memberi tahu Anda bahwa nilai yang sama telah dipilih.

4. klik Ok tombol di dialog pop-up. Nilai yang berbeda dalam Rentang A dipilih. Lihat tangkapan layar:

Jika Anda ingin mengetahui nilai yang berbeda dalam Rentang B Lembar2, Anda perlu menukar kedua rentang tersebut.

Bandingkan Rentang fungsi juga dapat membandingkan rentang di lembar yang sama. Klik di sini untuk mengetahui lebih lanjut tentang Compare Ranges.


Artikel relatif:

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 Teratas12 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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is good. It highlights only one sheet duplicate item. But I need to highlight both the sheet where duplicate items are
This comment was minimized by the moderator on the site
You need to add a second command inside the THEN statement.


Try this;

Sub CompareRanges()
'Update 20130815
Dim WorkRng1 As Range, WorkRng2 As Range, Rng1 As Range, Rng2 As Range
xTitleId = "Enter Range for Comparison"
Set WorkRng1 = Application.InputBox("Range A:", xTitleId, "", Type:=8)
Set WorkRng2 = Application.InputBox("Range B:", xTitleId, Type:=8)
For Each Rng1 In WorkRng1
rng1Value = Rng1.Value
For Each Rng2 In WorkRng2
If rng1Value = Rng2.Value Then
Rng1.Interior.Color = VBA.RGB(255, 0, 0)
Rng2.Interior.Color = VBA.RGB(255, 0, 0)
Exit For
End If
Next
Next
End Sub
This comment was minimized by the moderator on the site
Hi,morning, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, I need to look up for a range of values in all the available worksheets, and in case there is any matches, then colour the value on the original range. I have tried the following code: Sub Compare3() Dim WorkRng1 As Range Dim WorkRng2 As Range Dim Rng1 As Range Dim Rng2 As Range Dim DataRange As Range Dim ws As Worksheet xTitleId = "Buscar coincidencias" Set WorkRng1 = Application.InputBox("Seleccionar equipos con cambios:", xTitleId, "", Type:=8) Set WorkRng2 = Range("B1" & LastRow) For Each Rng1 In WorkRng1 rng1Value = Rng1.Value For Each ws In ActiveWorkbook.Worksheets For Each Rng2 In WorkRng2 If rng1Value = Rng2.Value Then Rng1.Interior.Color = VBA.RGB(200, 250, 200) Exit For End If Next Next Next End Sub But it does not make any changes when there are matches.... Could someone help?? Many thanks, Have a good day
This comment was minimized by the moderator on the site
Hi, the code is working but the entire range is getting highlighted even if there are no duplicate values. Help!
This comment was minimized by the moderator on the site
how to compare datas between two different excel sheets?
This comment was minimized by the moderator on the site
Hi, How can I find out the word difference between two columns in excel
This comment was minimized by the moderator on the site
How to Find out same names from different columns. If one column contains 2000 records and second one contains 20000 records, so how to compare and differentiate that names? Thanks,
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations