Bagaimana cara membandingkan dua string untuk kesamaan atau menyoroti perbedaan di Excel?
Dalam beberapa kasus, Anda mungkin hanya perlu membandingkan dua sel string yang berdekatan dan menandai persamaan atau perbedaannya di Excel. Artikel ini memberikan dua metode bagi Anda untuk mencapainya.
Bandingkan dua string dengan rumus
Bandingkan dua string untuk persamaan atau soroti perbedaan dengan kode VBA
Bandingkan dua string dengan rumus
Seperti gambar di bawah ini, jika Anda hanya ingin tahu apakah string yang dibandingkan cocok atau tidak, Anda dapat menerapkan rumus berikut.
1. Pilih sel C2 kosong, masukkan rumus = PERSIS (A2, B2) ke dalam Formula Bar, lalu tekan tombol Enter. Lihat tangkapan layar:
Note: Dalam rumusnya, A2 dan B2 adalah sel yang berisi string pembanding.
2. Tetap pilih sel hasil, lalu seret Fill Handle ke sel sampai mendapatkan semua hasil yang dibandingkan.
Hasil FALSE berarti string yang dibandingkan berbeda, dan hasil TRUE menunjukkan dua string yang dibandingkan cocok. Lihat tangkapan layar:
Bandingkan dua string untuk persamaan atau soroti perbedaan dengan kode VBA
Jika Anda ingin membandingkan dua string dan menyoroti persamaan atau perbedaan di antara keduanya. Kode VBA berikut dapat membantu Anda.
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 string kolom untuk persamaan atau sorotan perbedaan
Sub highlight()
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 selected ranges must have the same numbers of cells ", vbInformation, "Kutools for Excel"
GoTo lTwo
End If
xDiffs = (MsgBox("Click Yes to highlight similarities, click No to highlight differences ", vbYesNo + vbQuestion, "Kutools for Excel") = vbNo)
Application.ScreenUpdating = False
xRg2.Font.ColorIndex = xlAutomatic
For I = 1 To xRg1.Count
Set xCell1 = xRg1.Cells(I)
Set xCell2 = xRg2.Cells(I)
If xCell1.Value2 = xCell2.Value2 Then
If Not xDiffs Then xCell2.Font.Color = vbRed
Else
xLen = Len(xCell1.Value2)
For J = 1 To xLen
If Not xCell1.Characters(J, 1).Text = xCell2.Characters(J, 1).Text Then Exit For
Next J
If Not xDiffs Then
If J <= Len(xCell2.Value2) And J > 1 Then
xCell2.Characters(1, J - 1).Font.Color = vbRed
End If
Else
If J <= Len(xCell2.Value2) Then
xCell2.Characters(J, Len(xCell2.Value2) - J + 1).Font.Color = vbRed
End If
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. tekan F5 kunci untuk menjalankan kode. Di bagian pertama Kutools untuk Excel kotak dialog, pilih kolom pertama string teks yang perlu Anda bandingkan, lalu klik OK .
4. Lalu yang kedua Kutools untuk Excel kotak dialog muncul, pilih string kolom kedua, dan klik OK .
5. Terakhir Kutools untuk Excel kotak dialog, jika Anda ingin membandingkan string untuk kesamaan, klik Yes tombol. Dan untuk menyorot perbedaan dari string yang dibandingkan, klik Tidak tombol. Lihat tangkapan layar:
Kemudian Anda dapat melihat hasil perbandingan seperti gambar di bawah ini.
Artikel terkait:
- Bagaimana cara membandingkan dua kolom dan menyorot data yang tidak cocok 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!