Excel'de yinelenenleri kaldırmadan iki listeyi nasıl birleştirirsiniz?
Çalışma sayfanızda iki liste bulunuyor ve bu listelerde bazı değerler tekrarlandığı için, her iki listeyi birleştirip yalnızca benzersiz değerleri korumak 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ştirin
VBA ile yinelenenler olmadan listeleri birleştirin
Kutools for Excel ile yinelenenler olmadan listeleri birleştirin
Excel'de Yinelenenleri Kaldır ile yinelenenler olmadan listeleri birleştirin
Excel'de iki listeyi birleştirmek ve Yinelenen Değerler öğelerini 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 göz atın:
| |  |
2. Listeyi seçin ve Veri > Yinelenenleri Kaldır seçeneğine tıklayın; ekran görüntüsüne bakın:
3. Yinelenenleri Kaldır iletişim kutusunda, sütununuzda başlık yoksa Başlıkları içerir onay kutusunun işaretini kaldırın ve ardından Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
4. Ardından, ekranda yinelenecek değerlerin silindiğini bildiren bir iletişim kutusu görüntülenir; Tamam düğmesine tıklayın. Ekran görüntüsüne bakın:
Sonucu görebilirsiniz:
VBA ile yinelenenler olmadan listeleri birleştirin
Excel'de, yinelenenler olmadan iki listeyi birleştirmenize yardımcı olacak bir VBA kodu da kullanabilirsiniz.
1. ALT tuşunu basılı tutun ve klavyede F11 tuşuna basın; böylece bir Microsoft Visual Basic for Applications penceresi açılır.
2. Ekle > Modül seçeneğine tıklayın ve VBA kodunu modüle kopyalayın.
VBA: Yinelenenler olmadan listeleri 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. Çalıştır düğmesine tıklayın veya VBA'yı çalıştırmak için F5 tuşuna basın.
4. Ekranda bir iletişim kutusu açılır; birleştirmek istediğiniz aralığı buradan seçebilirsiniz. Ekran görüntüsüne göz atın:
5. Tamam düğmesine tıklayın; ardından birleştirilmiş sonucu çıktı almak istediğiniz hücreyi seçmeniz için yeni bir iletişim kutusu açılır. Ekran görüntüsüne bakın:
6. Tamam düğmesine tıklayın. Listelerin birleştirildiğini göreceksiniz.
İpucu: Yukarıdaki VBA kodu çalıştırıldıktan sonra sonuç, hücre biçimlendirmesini koruyamaz.
Kutools for Excel ile yinelenenler olmadan listeleri birleştirin
Kutools for Excel yüklüyken, iki listeyi yinelenenler olmadan birleştirmek için Yinelenen/Benzersiz Hücreleri Seç işlevini kullanabilirsiniz.
Kutools for ExcelKutools for Excel, 30 gün boyunca sınırsız olarak ücretsiz deneyebileceğiniz 300'den fazla kullanışlı Excel aracı içerir.Şimdi Edinin
1. İki listeden birini kopyalayın ve diğer listenin altına yapıştırın, yeni listeyi seçin ve ardından Kutools > Seç > Yinelenen/Benzersiz Hücreleri Seç seçeneğine tıklayın. Ekran görüntüsüne bakın:
2. Yinelenen/Benzersiz Hücreleri Seç iletişim kutusunda, Tüm benzersizler (İlk yinelenenler dahil) seçeneğini işaretleyin ve Tamam düğmesine tıklayın.
3. Ardından kaç adet benzersiz değerin seçildiğini gösteren bir iletişim kutusu açılır; iki iletişim kutusunu kapatmak için önce Tamam ve ardından İptal düğmelerine tıklayın. Ekran görüntüsüne bakın:
4. Ardından seçilen benzersiz değerleri kopyalayın ve yeni bir sütuna yapıştırın. Ekran görüntüsüne bakın:
Yinelenen veya benzersiz hücreleri seçme hakkında daha fazla bilgi edinmek için buraya tıklayın.
İlgili Makaleler:
En İyi Office Üretkenlik Araçları
Excel becerilerinizi Kutools for Excel ile geliştirin ve verimlilikte hiç yaşamadığınız bir deneyim yaşayı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 bir arayüz kazandırarak işlerinizi çok daha kolay hale getirir.
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Belgeleri yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açıp oluşturun.
- Günlük üretkenliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir kurulum dosyasında!
Kutools for Office paketi, Excel, Word, Outlook ve PowerPoint eklentilerini ve ayrıca Office Tab Pro’yu içeren kapsamlı bir çözümdür; Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans— birkaç dakikada hazır (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı üretkenlik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— ayrı ayrı eklenti satın almaya göre tasarruf sağlar