Bagaimana cara membandingkan dua kolom dan menyorot data yang tidak cocok di Excel?
Seperti gambar di bawah ini yang ditampilkan, untuk membandingkan dua kolom sel yang berdekatan dan menyoroti data yang tidak cocok, Anda dapat mencoba metode dalam artikel.
Bandingkan dua kolom dan sorot data yang tidak cocok dengan kode VBA
Bandingkan dua kolom dan sorot data yang tak tertandingi dengan Kutools for Excel
Bandingkan dua kolom dan sorot data yang tidak cocok dengan kode VBA
Seperti gambar di atas, Anda membandingkan data di Kolom A dan Kolom B. Jalankan kode VBA berikut untuk menyorot data yang tidak cocok.
1. tekan lain + F11 tombol secara bersamaan untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Kemudian salin dan tempel kode berikut ke jendela Kode.
Kode VBA: Bandingkan dua kolom dan sorot data yang tidak cocok
Sub Dyeware()
Dim xRg1 As Range
Dim xRg2 As Range
Dim xTxt As String
Dim xCell1 As Range
Dim xCell2 As Range
Dim I As Long
Dim J As Integer
Dim xLen As Integer
Dim xDiffs As Boolean
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
lOne:
Set xRg1 = Application.InputBox("Range A:", "Kutools for Excel", xTxt, , , , , 8)
If xRg1 Is Nothing Then Exit Sub
If xRg1.Columns.Count > 1 Or xRg1.Areas.Count > 1 Then
MsgBox " Multiple ranges or columns have been selected ", vbInformation, "Kutools for Excel"
GoTo lOne
End If
lTwo:
Set xRg2 = Application.InputBox("Range B:", "Kutools for Excel", "", , , , , 8)
If xRg2 Is Nothing Then Exit Sub
If xRg2.Columns.Count > 1 Or xRg2.Areas.Count > 1 Then
MsgBox "Multiple ranges or columns have been selected", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
If xRg1.CountLarge <> xRg2.CountLarge Then
MsgBox "Two ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight matched data, click No to highlight unmatched data ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Interior.ColorIndex = xlNo
xRg1.Interior.ColorIndex = xlNo
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value = xCell2.Value Then
If Not xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
Else
If xDiffs Then
xCell1.Interior.Color = vbRed
xCell2.Interior.Color = vbRed
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih kolom pertama yang perlu Anda bandingkan, lalu klik OK tombol. Lihat tangkapan layar.
4. Kemudian pilih kolom perbandingan kedua di pop up berikutnya Kutools untuk Excel kotak dialog.
5. Pada kotak dialog seperti gambar di bawah ini yang ditampilkan, untuk menyorot data yang tidak cocok, klik Tidak .
Kemudian semua data yang tidak cocok antara dua kolom akan segera disorot. Lihat tangkapan layar:
Bandingkan dua kolom dan sorot data yang tak tertandingi dengan Kutools for Excel
Jika Anda hanya ingin mengetahui dan menyorot apakah nilai sel di kolom ada di kolom lain atau tidak, misalnya seperti gambar di bawah ini, nomor 2 di kolom A tidak ada di kolom B. Anda bisa mencoba Bandingkan Rentang kegunaan Kutools untuk Excel.
1. klik Kutools > Menyisipkan > Pilih Sel yang Sama & Berbeda. Lihat tangkapan layar:
2. Dalam Pilih Sel yang Sama & Berbeda kotak dialog, Anda perlu mengkonfigurasi sebagai berikut:
3. Kemudian sebuah kotak dialog muncul untuk memberi tahu Anda berapa banyak sel yang hanya di kolom A tetapi tidak di kolom B, klik tombol OK, dan semua sel yang cocok dipilih di kolom A.
Jika Anda ingin memiliki uji coba gratis (30 hari) dari utilitas ini, silahkan klik untuk mendownloadnya, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.
Artikel terkait:
- Bagaimana cara membandingkan dua string untuk kesamaan atau menyoroti perbedaan di Excel?
- Bagaimana cara membandingkan dua string (case sensitive) di Excel?
Alat Produktivitas Kantor Terbaik
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...
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!