Excel'de iki dizeyi benzerlik açısından nasıl karşılaştırır veya farklılıklarını nasıl vurgularsınız?
Bazı durumlarda, Excel’de yalnızca bitişik iki hücredeki dizeleri karşılaştırıp benzerliklerini veya farklılıklarını vurgulamanız gerekebilir. Bu makale, bu işlemi gerçekleştirmeniz için size iki etkili yöntem sunar.
Formül ile iki dizeyi karşılaştırın
VBA kodu ile iki dizeyi benzerlik açısından karşılaştırın veya farklılıkları vurgulayın
Formül ile iki dizeyi karşılaştırın
Aşağıdaki ekran görüntüsünde gösterildiği gibi, karşılaştırılan dizelerin eşleşip eşleşmediğini kontrol etmek için aşağıdaki formülü kullanabilirsiniz.
1. Boş bir C2 hücresini seçin, Formül Çubuğuna =EXACT(A2, B2) formülünü 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ırılacak metinleri içeren hücrelerdir.
2. Sonuç hücresini seçili bırakın ve tüm karşılaştırma sonuçlarını alana kadar Doldurma Kulpu’nu aşağı doğru sürükleyin.
YANLIŞ (FALSE) sonucu, karşılaştırılan dizelerin farklı olduğunu; DOĞRU (TRUE) sonucu ise bu iki dizenin eşleştiğini gösterir. Ekran görüntüsüne göz atın:
KUTOOLS AI ile Excel'in Sihirli Gücünü Açığa Çıkarın
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsi basit komutlarla çalışan grafikler oluşturun.
- Özel formüller: İş akışlarınızı kolaylaştırmak için özelleştirilmiş formüller oluşturun.
- VBA Kodlama: VBA kodlarını zahmetsizce yazın ve uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca çözmek artık çok daha basit!
- Metin Çevirisi: Elektronik tablolarınızda dil bariyerlerini aşın.
VBA kodu ile iki dizeyi benzerlik açısından karşılaştırın veya farklılıkları vurgulayın
İki dizeyi karşılaştırmak ve aralarındaki benzerlikleri ya da farklılıkları net bir şekilde ortaya koymak istiyorsanız, aşağıdaki VBA kodu tam size göre!
1. Microsoft Visual Basic for Applications penceresini açmak için aynı anda Alt+F11 tuşlarına basın.
2. Microsoft Visual Basic for Applications penceresinde, Microsoft Visual Basic for Applications menüsünden Ekle > Modül seçeneğine tıklayın. Ardından aşağıdaki kodu Kod penceresine kopyalayıp yapıştırın.
VBA kodu: Benzerlik açısından iki sütun dizesini karşılaştırın veya farklılıkları vurgulayı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 Sub3. Kodu çalıştırmak için F5 tuşuna basın. İlk olarak Kutools for Excel iletişim kutusunda karşılaştırmak istediğiniz ilk metin sütununu seçin ve Tamam düğmesine tıklayın.
4. Ardından ikinci Kutools for Excel iletişim kutusu açılır. Lütfen ikinci sütundaki dizeleri seçin ve Tamam düğmesine tıklayın.
5. Son Kutools for Excel iletişim kutusunda, dizeleri benzerlik açısından karşılaştırmak istiyorsanız Evet düğmesine tıklayın. Karşılaştırılan dizelerdeki farklılıkları vurgulamak için ise Hayır düğmesine tıklayın. Ekran görüntüsüne bakın:
Daha sonra, aşağıdaki ekran görüntüsünde gösterildiği gibi karşılaştırma sonuçlarını görüntüleyebilirsiniz.
İlgili makaleler:
- Excel'de iki sütunu karşılaştırıp eşleşmeyen verileri nasıl vurgularım?
- Excel'de iki dizeyi büyük/küçük harf duyarlı olarak tam olarak nasıl karşılaştırırsınız?
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayın.Kutools for Excel, üretkenliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office uygulamalarına sekmeli bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar