Excel'de iki sütun nasıl karşılaştırılır ve eşleşmeyen veriler nasıl vurgulanır?
Aşağıda gösterilen ekran görüntüsü gibi, bitişik hücrelerin iki sütununu karşılaştırmak ve eşleşmeyen verileri vurgulamak için makaledeki yöntemleri deneyebilirsiniz.
İki sütunu karşılaştırın ve eşsiz verileri VBA kodu ile vurgulayın
Kutools for Excel ile iki sütunu karşılaştırın ve eşsiz verileri vurgulayın
İki sütunu karşılaştırın ve eşsiz verileri VBA kodu ile vurgulayın
Yukarıdaki ekran görüntüsü gibi, Sütun A ve Sütun B'deki verileri karşılaştırıyorsunuz. Lütfen eşleşmeyen verileri vurgulamak için aşağıdaki VBA kodunu çalıştırın.
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: İ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 Sub
3. Tuşuna basın. F5 kodu çalıştırmak için anahtar. Haşhaşta Kutools for Excel iletişim kutusunda, karşılaştırmanız gereken ilk sütunu seçin ve ardından OK buton. Ekran görüntüsüne bakın.
4. Ardından bir sonraki açılır pencerede karşılaştırılan ikinci sütunu seçin Kutools for Excel iletişim kutusu.
5. Aşağıdaki ekran görüntüsü gibi iletişim kutusunda, eşleşmeyen verileri vurgulamak için lütfen Yok hayır düğmesine basın.
Ardından, iki sütun arasındaki tüm eşleşmeyen veriler hemen vurgulanır. Ekran görüntüsüne bakın:
Kutools for Excel ile iki sütunu karşılaştırın ve eşsiz verileri vurgulayın
Bir sütundaki hücre değerlerinin başka bir sütunda olup olmadığını öğrenmek ve vurgulamak istiyorsanız, örneğin aşağıda gösterilen ekran görüntüsü gibi, A sütunundaki 2 sayısı B sütununda mevcut değildir. Aralıkları Karşılaştır yarar Kutools for Excel.
1. tık Kutools > Ekle > Aynı ve Farklı Hücreleri Seçin. Ekran görüntüsüne bakın:
2. içinde Aynı ve Farklı Hücreleri Seçin iletişim kutusu, aşağıdaki gibi yapılandırmanız gerekir:
3. Ardından, yalnızca A sütununda olup B sütununda olmayan kaç hücre olduğunu, Tamam düğmesini tıkladığını ve tüm eşleşen hücrelerin A sütununda seçildiğini söyleyen bir iletişim kutusu açılır
Bu yardımcı programın ücretsiz denemesine (30 günlük) sahip olmak istiyorsanız, indirmek için lütfen tıklayınızve ardından yukarıdaki adımlara göre işlemi uygulamaya gidin.
İlgili yazılar:
- Excel'deki benzerlik veya vurgu farklılıkları için iki dizeyi nasıl karşılaştırabilirim?
- 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!