Excel'de iki listeyi yinelenenler olmadan nasıl birleştirirsiniz?

Çalışma sayfanızda iki liste bulunuyor ve bu listelerde bazı değerler yineleniyor. Bu iki listeyi birleştirmek istiyorsunuz ancak yalnızca benzersiz değerleri bırakmak istiyorsunuz, aşağıdaki ekran görüntülerinde gösterildiği gibi, bunu nasıl yapabilirsiniz?

Excel'de Yinelenenleri Kaldır ile yinelenenler olmadan listeleri birleştirme

VBA ile yinelenenler olmadan listeleri birleştirme

Kutools for Excel ile yinelenenler olmadan listeleri birleştirme

Excel'de Yinelenenleri Kaldır ile yinelenenler olmadan listeleri birleştirme

Excel'de iki listeyi birleştirmek ve yinelenen değerleri kaldırmak için şu adımları izleyebilirsiniz:

1. İki listeden birini kopyalayın ve diğer listenin altına yapıştırın, ekran görüntüsüne bakın:

2. Listeyi seçin ve Veri > Yinelenenleri Kaldır'a tıklayın, ekran görüntüsüne bakın:

3. Yinelenenleri Kaldır iletişim kutusunda, sütununuzda başlık yoksa Veri başlıklarını içerir seçeneğini kaldırın ve ardından Tamam'a tıklayın. Ekran görüntüsüne bakın:

4. Ardından ekranda bir iletişim kutusu görüntülenir ve size yinelenenlerin silindiğini bildirir, Tamam'a tıklayın. Ekran görüntüsüne bakın:

Sonucu görebilirsiniz:

VBA ile yinelenenler olmadan listeleri birleştirme

Excel'de, VBA da size yinelenenler olmadan iki listeyi birleştirmenize yardımcı olabilir.

1. ALT tuşuna basılı tutun ve klavyeden F11'e basın, Microsoft Visual Basic for Application penceresini açmak için.

2. Ekle > Modül'e tıklayın ve VBA'yı modüle kopyalayın.

VBA: Yinelenenler olmadan listeleri birleştirme

Sub FindUniques()
'Updateby20140313
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

3. Çalıştırmak için Çalıştır düğmesine tıklayın veya F5'e basın.

4. Ekranda bir iletişim kutusu görüntülenir ve birleştirmek istediğiniz alanı seçebilirsiniz. Ekran görüntüsüne bakın:

5. Tamam'a tıklayın, ardından size birleştirilmiş sonucu çıkarmak için bir hücre seçmenizi sağlayan başka bir iletişim kutusu açılır. Ekran görüntüsüne bakın:

6. Tamam'a tıklayın. Listelerin birleştirildiğini görebilirsiniz.

İpucu: Yukarıdaki VBA'yı çalıştırdıktan sonra sonuç, hücrelerin biçimlendirmesini koruyamaz.

Kutools for Excel ile yinelenenler olmadan listeleri birleştirme

Kurulu olan Kutools for Excel ile, Yinelenenleri ve benzersiz hücreleri seçme işlevini kullanarak iki listeyi yinelenenler olmadan birleştirme sorununu çözebilirsiniz.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 gün boyunca sınırlamasız ücretsiz deneme imkanı. Şimdi edinin

1. İki listeden birini kopyalayın ve diğer listenin altına yapıştırın, yeni listeyi seçin, ardından Kutools > Seç > Yinelenenleri & benzersiz hücreleri seç'e tıklayın. Ekran görüntüsüne bakın:

2. Yinelenenleri & benzersiz hücreleri seç iletişim kutusunda Tüm benzersizleri (İlk yinelenen dahil) işaretleyin, Tamam'a tıklayın.

3. Ardından bir iletişim kutusu açılır ve size kaç tane benzersiz değer seçildiğini söyler, Tamam ve İptal'e tıklayarak iki iletişim kutusunu kapatın. Ekran görüntüsüne bakın:

4. Ve seçilen benzersiz değerleri kopyalayın ve yeni bir sütuna yapıştırın. Ekran görüntüsüne bakın:

Yinelenenleri & benzersiz hücreleri seç hakkında daha fazla bilgi için buraya tıklayın.

İlgili Makaleler:

• İki sütun arasında benzersiz değerleri bulma
• İki sütunda yinelenen değerleri bulma