Note: The other languages of the website are Google-translated. Back to English

İki hücrede virgülle ayrılmış değerler nasıl karşılaştırılır ve Excel'de yinelenen veya benzersiz değerler nasıl döndürülür?

Aşağıdaki ekran görüntüsünde gösterildiği gibi, iki sütun vardır - Sütun1 ve Sütun2, sütundaki her hücre virgülle ayrılmış sayılar içerir. Sütun1'deki virgülle ayrılmış sayıları Sütun2'nin aynı satırındaki hücre içerikleriyle karşılaştırmak ve tüm yinelenen veya benzersiz değerleri döndürmek için ne yapabilirdiniz?

Bu öğretici, bu görevi gerçekleştirmenize yardımcı olacak iki yöntem sağlar.


İki hücrede virgülle ayrılmış değerleri karşılaştırın ve yinelenen veya benzersiz değerleri formüllerle döndürün

Bu bölüm, iki hücredeki virgülle ayrılmış değerleri karşılaştırmaya ve aralarında yinelenen veya benzersiz değerleri döndürmeye yardımcı olacak iki formül sağlar.

not: Aşağıdaki formüller yalnızca 365 için Excel. Excel'in diğer sürümlerini kullanıyorsanız, aşağıdaki VBA yöntemini kullanmayı deneyin.

Yukarıdaki iki sütunu örnek olarak alın, Sütun1'deki virgülle ayrılmış sayıları Sütun2'nin aynı satırındaki virgülle ayrılmış sayılarla karşılaştırmak ve yinelenen veya benzersiz değerler döndürmek için lütfen aşağıdakileri yapın.

Yinelenen değerleri döndür

1. Belirtilen iki hücre arasındaki yinelenen sayıları virgülle ayrılmış sayılarla çıkarmak için bir hücre seçin, bu durumda D2 hücresini seçiyorum, ardından aşağıdaki formülü girip Keşfet anahtar. Formül hücresini seçin ve sürükleyin Otomatik Doldurma Kolu diğer satırlardaki hücreler arasında yinelenen sayıları almak için aşağı.

=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ğerler döndür

Aynı satırda virgülle ayrılmış sayılarla belirtilen iki hücre arasındaki benzersiz sayıları döndürmek için aşağıdaki formül yardımcı olabilir.

1. Benzersiz sayıların çıktısını almak için bir hücre seçin, bu durumda E2 hücresini seçiyorum, ardından aşağıdaki formülü girip Keşfet anahtar. Formül hücresini seçin ve sürükleyin Otomatik Doldurma Kolu diğer satırlardaki hücreler arasındaki benzersiz sayıları elde etmek için aşağı

=TEXTJOIN(", ",TRUE,UNIQUE(TRANSPOSE(TEXTSPLIT(TEXTJOIN(", ",TRUE,A2:B2), ", ")),,1))

notlar:

1) Yukarıdaki iki formül yalnızca Excel 365'te uygulanabilir. Excel'in 365 için Excel dışında bir sürümünü kullanıyorsanız lütfen aşağıdaki VBA yöntemini deneyin.
2) Karşılaştırılacak hücreler aynı satır veya sütunda yan yana olmalıdır.

İki sütunu virgülle ayrılmış değerlerle karşılaştırın ve yinelenen veya benzersiz değerleri VBA ile döndürün

Bu bölümde sağlanan kullanıcı tanımlı işlev, belirtilen iki hücredeki virgülle ayrılmış değerleri karşılaştırmaya ve aralarında yinelenen değerleri veya benzersiz değerleri döndürmeye yardımcı olur. Lütfen aşağıdaki gibi yapın.

Yukarıdaki aynı örneği alın, Sütun1'deki virgülle ayrılmış sayıları Sütun2'nin aynı satırındaki virgülle ayrılmış sayılarla karşılaştırmak ve yinelenen veya benzersiz değerler döndürmek için lütfen bu bölümdeki kullanıcı tanımlı işlevi deneyin.

1. Açılış çalışma kitabında, Ara Toplam + F11 tuşlarını 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, ve aşağıdaki VBA kodunu kopyalayın Modül (Kod) pencere.

VBA kodu: İki hücrede virgülle ayrılmış değerleri karşılaştırın ve yinelenen/benzersiz değerler 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 Function

3. Kodu yapıştırdıktan sonra Modül (Kod) pencere, tıklayın Tools > Referanslar açmak için Referanslar - VBAProject pencere, kontrol edin Microsoft Komut Dosyası Çalışma Zamanı kutusunu işaretleyin ve ardından OK düğmesine basın.

4. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

5. Şimdi, virgülle ayrılmış iki değer hücresinden yinelenen ve benzersiz değerleri döndürmek için iki işlevi ayrı ayrı uygulamanız gerekir.

Yinelenen değeri döndür

Yinelenen sayıların çıktısını almak için bir hücre seçin, bu örnekte D2 hücresini seçiyorum, ardından aşağıdaki formülü girip Keşfet tuşu, A2 ve B2 hücresi arasındaki yinelenen sayıları almak için.

Diğer satırlardaki hücreler arasında yinelenen sayıları elde etmek için formül hücresini seçin ve Otomatik Doldurma Kolunu aşağı sürükleyin.

=COMPARE(A2,B2,TRUE)

Benzersiz değerler döndür

Benzersiz sayıların çıktısını almak için bir hücre seçin, bu örnekte E2 hücresini seçiyorum, ardından aşağıdaki formülü girip Keşfet tuşu, A2 ve B2 hücresi arasındaki benzersiz sayıları almak için.

Diğer satırlardaki hücreler arasındaki benzersiz sayıları elde etmek için formül hücresini seçin ve Otomatik Doldurma Kolunu aşağı sürükleyin.

=COMPARE(A2,B2,FALSE)


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (0)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır