Ana içeriğe atla

Excel'de kopyalar olmadan iki listeyi nasıl birleştirebilirim?

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

Excel'de Yinelenenleri Kaldır ile listeleri yinelenmeden birleştirin

Listeleri yinelenmeden VBA ile birleştirin

Kutools for Excel ile listeleri yinelenmeden birleştirin


ok mavi sağ balon Excel'de Yinelenenleri Kaldır ile listeleri yinelenmeden birleştirin

İki listeyi birleştirmek ve Excel'de yinelenen değerleri kaldırmak için şunları yapabilirsiniz:

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 tıklayın Veri > Yinelemeleri Kaldır, ekran görüntüsüne bakın:


3. içinde Yinelemeleri Kaldır iletişim kutusu, sütununuzun başlığı yoksa, işaretini kaldırın Verilerimin başlıkları varVe ARDINDAN tıklayın OK. Ekran görüntüsüne bakın:


4. Ardından, kopyaların silindiğini bildirmek için ekranda bir iletişim kutusu görüntülenir. OK. Ekran görüntüsüne bakın:


Sonucu görebilirsiniz:



ok mavi sağ balon Listeleri yinelenmeden VBA ile birleştirin

Excel'de, bir VBA, iki listeyi kopyalar olmadan birleştirmenize de yardımcı olabilir.

1. Ambar ALT tuşuna basın ve tuşuna basın. F11 klavyede bir Uygulama için Microsoft Visual Basic pencere.

2. tık Ekle > modülve VBA'yı modüle kopyalayın.

VBA: Listeleri kopyalar olmadan birleştirin

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. tık koşmak tuşuna basın veya tuşuna basın. F5 VBA'yı çalıştırmak için.

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


5. tık OK, ardından birleştirilmiş sonucun çıktısını almak için bir hücre seçmeniz için başka bir iletişim kutusu açılır. Ekran görüntüsüne bakın:


6. tık OK. Listelerin birleştirildiğini görebilirsiniz.


İpucu: Sonuç, yukarıdaki VBA çalıştırıldıktan sonra hücre biçimlendirmesini ayıramaz.


ok mavi sağ balon Kutools for Excel ile listeleri yinelenmeden birleştirin

Yüklü Kutools for Excelkullanabilir, Yinelenenleri ve benzersiz hücreleri seçin iki listeyi çiftler olmadan birleştiren sorunu çözmek için işlev.

Kutools for Excel 300'den fazla kullanışlı Excel aracı içerir. 30 günde hiçbir sınırlama olmaksızın ücretsiz deneyin. Şimdi alın

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


2. içinde Yinelenenleri ve benzersiz hücreleri seçin iletişim, kontrol et Tüm uniqueler (1. kopyalar dahil)tık Ok.


3. Ardından size kaç tane benzersiz değerin seçildiğini söyleyen bir iletişim kutusu açılır, OK ve İptal etmek iki iletişim kutusunu kapatmak için. Ekran görüntüsüne bakın:


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


Yinelenenleri ve benzersiz hücreleri seçme hakkında daha fazla bilgi için burayı tıklayın.


İlgili Makaleler:

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations