Excel'deki benzerlik veya vurgu farklılıkları için iki dizeyi nasıl karşılaştırabilirim?
Bazı durumlarda, yalnızca bitişik dizelerin iki hücresini karşılaştırmanız ve Excel'de benzerliklerini veya farklılıklarını işaretlemeniz gerekebilir. Bu makale, bunu başarmanız için iki yöntem sunar.
İki dizeyi formülle karşılaştırın
VBA kodu ile benzerlik veya vurgu farklılıkları için iki dizeyi karşılaştırın
İki dizeyi formülle karşılaştırın
Aşağıda gösterilen ekran görüntüsü gibi, karşılaştırılan dizelerin eşleşip eşleşmediğini bilmek istiyorsanız, aşağıdaki formülü uygulayabilirsiniz.
1. Boş bir hücre C2 seçin, formül girin = TAM (A2; B2) Formül Çubuğuna girin ve ardından Enter tuşuna basın. Ekran görüntüsüne bakın:
not: Formülde, A2 ve B2, karşılaştırma dizelerini içeren hücrelerdir.
2. Sonuç hücresini seçmeye devam edin, ardından karşılaştırılan tüm sonuçları alana kadar Dolgu Tutamaçını hücrelere sürükleyin.
FALSE sonucu, karşılaştırılan dizelerin farklı olduğu anlamına gelir ve TRUE sonucu, karşılaştırılan iki dizenin eşleştiğini gösterir. Ekran görüntüsüne bakın:
VBA kodu ile benzerlik veya vurgu farklılıkları için iki dizeyi karşılaştırın
İki dizeyi karşılaştırmak ve aralarındaki benzerlikleri veya farklılıkları vurgulamak istiyorsanız. Aşağıdaki VBA kodu size yardımcı olabilir.
1. Basın Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic Pencere, tıklayın Ekle > modül. Ardından aşağıdaki kodu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Benzerlik veya vurgu farklılıkları için iki sütun dizesini karşılaştırın
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. Tuşuna basın. F5 kodu çalıştırmak için anahtar. İlk olarak Kutools for Excel iletişim kutusunda, karşılaştırmanız gereken metin dizelerinin ilk sütununu seçin ve ardından OK düğmesine basın.
4. Sonra ikinci Kutools for Excel iletişim kutusu açılır, lütfen ikinci sütun dizelerini seçin ve OK düğmesine basın.
5. Sonunda Kutools for Excel iletişim kutusunda, benzerlik açısından dizeleri karşılaştırmak istiyorsanız, Evet buton. Karşılaştırılan dizelerin farklarını vurgulamak için, Yok hayır buton. Ekran görüntüsüne bakın:
Ardından, karşılaştırılan sonuçları aşağıda gösterilen ekran görüntüsü gibi görebilirsiniz.
İlgili yazılar:
- Excel'de iki sütun nasıl karşılaştırılır ve eşleşmeyen veriler nasıl vurgulanır?
- Excel'de iki dizeyi (büyük / küçük harfe duyarlı) tam olarak nasıl karşılaştırabilirim?
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir
- Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
- Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!