Excel'de iki sütunu karşılaştırıp eşleşmeyen verileri nasıl vurgularsınız?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, bitişik hücrelerdeki iki sütunu karşılaştırmak ve eşleşmeyen verileri vurgulamak için makaledeki yöntemleri deneyebilirsiniz.
VBA kodu ile iki sütunu karşılaştırın ve eşleşmeyen verileri vurgulayın
Kutools for Excel ile iki sütunu karşılaştırın ve eşleşmeyen verileri vurgulayın
VBA kodu ile iki sütunu karşılaştırın ve eşleşmeyen verileri vurgulayın
Yukarıdaki ekran görüntüsünde A ve B sütunlarındaki verileri karşılaştırıyorsunuz. Eşleşmeyen verileri vurgulamak için lütfen aşağıdaki VBA kodunu çalıştırın.
1. Alt+F11 tuşlarına aynı anda basarak Microsoft Visual Basic for Applications penceresini açın.
2. Microsoft Visual Basic for Applications penceresinde, 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: İki sütunu karşılaştırın ve eşleşmeyen verileri vurgulayın
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 Sub3. Kodu çalıştırmak için F5 tuşuna basın. Açılan Kutools for Excel iletişim kutusunda, karşılaştırmak istediğiniz ilk sütunu seçin ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın.
4. Ardından, bir sonraki açılan Kutools for Excel iletişim kutusunda ikinci karşılaştırma sütununu seçin.
5. Aşağıdaki ekran görüntüsünde gösterildiği gibi eşleşmeyen verileri vurgulamak için lütfen Hayır düğmesine tıklayın.
Böylece iki sütun arasındaki tüm eşleşmeyen veriler anında vurgulanır. Ekran görüntüsüne göz atın:
Kutools for Excel ile iki sütunu karşılaştırın ve eşleşmeyen verileri vurgulayın
Yalnızca bir sütundaki hücre değerlerinin başka bir sütunda olup olmadığını bulmak ve vurgulamak istiyorsanız — örneğin aşağıdaki ekran görüntüsünde gösterildiği gibi, A sütunundaki 2 sayısı B sütununda yoksa — Aralıkları Karşılaştır özelliğini Kutools for Excel ile deneyebilirsiniz.
1. Kutools > Ekle > Aynı/Farklı Hücreleri Seç seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Aynı/Farklı Hücreleri Seçiletişim kutusunda, aşağıdaki gibi yapılandırmanız gerekir:
3. Ardından yalnızca A sütununda yer alıp B sütununda bulunmayan hücrelerin sayısını gösteren bir iletişim kutusu açılır; Tamam düğmesine tıklayınca A sütunundaki tüm eşleşen hücreler seçilir.
Kutools for Excel– Excel'i, işinizi daha hızlı ve kolay hale getiren 300 temel araçla güçlendirin ve daha akıllı veri işleme ile üretkenlik için yapay zeka özelliklerinden yararlanın.Hemen Edinin
İlgili makaleler:
- Excel'de iki dizenin benzerliğini nasıl karşılaştırır veya farklılıklarını nasıl vurgularsınız?
- 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