Excel'de iki hücredeki virgülle ayrılmış değerleri nasıl karşılaştırır, yinelenen veya benzersiz değerleri nasıl döndürürsünüz?
Aşağıdaki ekran görüntüsünde gösterildiği gibi, Column1 ve Column2 olmak üzere iki sütun bulunuyor; bu sütunlardaki her hücre, virgülle ayrılmış sayılardan oluşuyor. Column1’deki virgülle ayrılmış sayıları, aynı satırdaki Column2 hücresiyle karşılaştırarak tüm yinelenen veya benzersiz değerleri nasıl döndürebilirsiniz?
Bu öğretici, bu görevi yerine getirmenize yardımcı olmak amacıyla iki yöntem sunar.
Formüllerle iki hücredeki virgülle ayrılmış değerleri karşılaştırın ve yinelenen veya benzersiz değerleri döndürün
Bu bölüm, iki hücredeki virgülle ayrılmış değerleri karşılaştırmak ve aralarındaki yinelenen ya da benzersiz değerleri döndürmek için iki formül sunar.
Not: Aşağıdaki formüller yalnızca Excel 365’te çalışır. Excel’in diğer sürümlerini kullanıyorsanız, aşağıdaki VBA yöntemini deneyin.
Yukarıdaki iki sütunu örnek alarak, Column1'deki virgülle ayrılmış sayıları aynı satırdaki Column2'deki virgülle ayrılmış sayılarla karşılaştırmek ve yinelenen veya benzersiz değerleri belirlemek için aşağıdaki adımları izleyin.
Yinelenen Değerler değerlerini döndür
1. İki belirtilen hücre arasındaki virgülle ayrılmış sayılardan yinelenenleri kaldırmak için bir hücre seçin; bu örnekte D2 hücresini seçiyorum. Ardından aşağıdaki formülü girin ve Enter tuşuna basın. Formül hücresini seçtikten sonra, diğer satırlardaki hücreler arasında yinelenen sayıları elde etmek için Otomatik Doldurma Tutamacı'nı aşağı doğru sürükleyin.
=LET(x, TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),y,UNIQUE(x),z,UNIQUE(x,,1), TEXTJOIN(", ",TRUE,IF(ISERROR(MATCH(y,z,0)),y, "")))
Benzersiz değerleri döndür
Aynı satırda virgülle ayrılmış sayılara sahip iki belirtilen hücre arasındaki benzersiz sayıları döndürmek için aşağıdaki formül işinize yarayabilir.
1. Benzersiz sayıları çıkarmak için bir hücre seçin; bu örnekte E2 hücresini seçiyorum. Ardından aşağıdaki formülü girin ve Enter tuşuna basın. Formül hücresini seçin ve diğer satırlardaki hücrelerdeki benzersiz sayıları elde etmek için Otomatik Doldurma Tutamacı'nı aşağı doğru sürükleyin.
=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))
Notlar:
Excel'in sihrini KUTOOLS AI ile keşfedin
- Akıllı Yürütme: Hücre işlemlerini gerçekleştirin, verileri analiz edin ve hepsini basit komutlarla oluşturulan grafiklerle görselleştirin.
- Ö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 anında uygulayın.
- Formül Yorumlama: Karmaşık formülleri kolayca anlayın.
- Metin Çevirisi: Elektronik tablolarınızdaki dil bariyerlerini aşın.
Virgülle ayrılmış değerlere sahip iki sütunu karşılaştırın ve VBA ile yinelenen veya benzersiz değerleri döndürün
Bu bölümde sunulan kullanıcı tanımlı işlev, iki belirtilen hücredeki virgülle ayrılmış değerleri karşılaştırmanıza ve aralarındaki yinelenen ya da benzersiz değerleri döndürmenize yardımcı olur. Aşağıdaki adımları izleyin.
Yukarıdakiyle aynı örneği alarak, Column1'deki virgülle ayrılmış sayıları aynı satırdaki Column2'deki virgülle ayrılmış sayılarla karşılaştırmak ve yinelenen veya benzersiz değerleri döndürmek için bu bölümdeki kullanıcı tanımlı işlevi deneyin.
1. Açılır çalışma kitabında,Alt+F11 tuşlarına 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 ve aşağıdaki VBA kodunu Modül (Kod) penceresine kopyalayın.
VBA kodu: İki hücredeki virgülle ayrılmış değerleri karşılaştırın ve yinelenen/benzersiz değerleri döndürün
Private Function COMPARE(Rng1, Rng2 As Range, Op As Boolean)
'Updated by Extendoffice 20221019
Dim R1Arr As Variant
Dim R2Arr As Variant
Dim Ans1 As String
Dim Ans2 As String
Dim Separator As String
Dim d1 As New Dictionary
Dim d2 As New Dictionary
Dim d3 As New Dictionary
Application.Volatile
Separator = ", "
R1Arr = Split(Rng1.Value, Separator)
R2Arr = Split(Rng2.Value, Separator)
Ans1 = ""
Ans2 = ""
For Each ch In R2Arr
If Not d2.Exists(ch) Then
d2.Add ch, "1"
End If
Next
If Op Then
For Each ch In R1Arr
If d2.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans1 = Ans1 & ch & Separator
End If
End If
Next
If Ans1 <> "" Then
Ans1 = Mid(Ans1, 1, Len(Ans1) - Len(Separator))
End If
COMPARE = Ans1
Else
For Each ch In R1Arr
If Not d1.Exists(ch) Then
d1.Add ch, "1"
End If
Next
For Each ch In R1Arr
If Not d2.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans2 = Ans2 & ch & Separator
End If
End If
Next
For Each ch In R2Arr
If Not d1.Exists(ch) Then
If Not d3.Exists(ch) Then
d3.Add ch, "1"
Ans2 = Ans2 & ch & Separator
End If
End If
Next
If Ans2 <> "" Then
Ans2 = Mid(Ans2, 1, Len(Ans2) - Len(Separator))
End If
COMPARE = Ans2
End If
End Function3. Kodu Modül (Kod) penceresine yapıştırdıktan sonra, Araçlar > Başvurular seçeneğine tıklayarak Başvurular – VBAProject penceresini açın, Microsoft Scripting Runtime kutusunu işaretleyin ve ardından Tamam düğmesine tıklayın.
4. Alt+Q tuşlarına basarak Microsoft Visual Basic for Applications penceresini kapatın.
5. Şimdi, yinelenen ve benzersiz değerleri iki virgülle ayrılmış değer hücresinden döndürmek için bu iki işlevi ayrı ayrı uygulamanız gerekiyor.
Yinelenen değeri döndür
Yinelenen sayıları çıkartmak için bir hücre seçin; bu örnekte A2 ve B2 hücreleri arasındaki yinelenen sayıları elde etmek için D2 hücresini seçiyorum. Ardından aşağıdaki formülü girin ve Entertuşuna basın.
Formül hücresini seçin ve diğer satırlardaki hücrelerde yinelenen sayıları otomatik olarak doldurmak için Otomatik Doldurma Tutamacı'nı aşağı doğru sürükleyin.
=COMPARE(A2,B2,TRUE)
Benzersiz değerleri döndür
Benzersiz sayıları çıkartmak için bir hücre seçin; bu örnekte A2 ve B2 hücreleri arasındaki benzersiz sayıları almak üzere E2 hücresini seçiyorum. Ardından aşağıdaki formülü girin ve Entertuşuna basın.
Formül hücresini seçin ve diğer satırlardaki hücrelerdeki benzersiz sayıları otomatik olarak doldurmak için Otomatik Doldurma Tutamacı'nı aşağı doğru sürükleyin.
=COMPARE(A2,B2,FALSE)
En İyi Office Üretkenlik Araçları
Kutools for Excel ile Excel becerilerinizi üst seviyeye taşıyın ve verimlilikten önce hiç yaşamadığınız gibi yararlanı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 arayüz getirir ve işinizi çok daha kolay hale getirir
- Word, Excel ve PowerPoint’te sekmeli düzenleme ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük üretkenliğinizi %50 artırır ve size her gün yüzlerce fare tıklamasından tasarruf sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentileriyle birlikte Office Tab Pro'yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi-bir-arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamaları arasında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat-performans— tek tek eklenti satın almaya göre tasarruf edin