Excel'deki kopyalara göre birden çok satırı tek bir satırda nasıl birleştirebilirim?

Belki, aşağıdaki ekran görüntüsü verisine sahipsiniz, Ürün adı sütununda A, bazı yinelenen öğeler var ve şimdi A sütunundaki yinelenen girişleri kaldırmanız, ancak B sütununda karşılık gelen değerleri birleştirmeniz gerekiyor, ekran görüntülerine bakın:

Bu görevi çözmenin bazı etkili yolları var mı?

Birden çok yinelenen satırı VBA kodu ile tek bir satırda birleştirin

Birden çok yinelenen satırı tek bir Kutools for Excel'de birleştirin

Kutools for Excel ile birden çok yinelenen satırı birleştirin ve değerleri toplayın / ortalayın

Birden çok yinelenen satırı VBA kodu ile tek bir satırda birleştirin

İnanılmaz! Excel'de Chrome, Firefox ve Safari gibi Verimli Sekmeleri Kullanma!

Zamanınızın% 50'sinden tasarruf edin ve her gün binlerce fare tıklamasını azaltın!

Aşağıdaki VBA kodu, A sütununun değerine göre yinelenen satırları birleştirmenize yardımcı olabilir ve aşağıdaki kod yalnızca iki sütun için geçerlidir. Yani, iki sütun veriniz varsa, bu kod sizin için bir iyilik yapacaktır.

1. Basılı tutun ALT + F11 anahtarlar ve açılır Uygulamalar için Microsoft Visual Basic penceresi.

2. tıklayın Ekle > modülve aşağıdaki kodu Modül Penceresi.

VBA kodu: birden çok satırı tek bir satırda birleştirin

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Daha sonra tuşuna basın. F5 tuşuna basın ve birleştirmeniz gereken aralığı seçmenizi hatırlatan bir komut kutusu açılır. Ekran görüntüsüne bakın:

4. Ve sonra tıklayın OKB sütunundaki değerler tek bir kayıtta birleştirildi ve boşluklarla ayrıldı.

Notlar:

1. Bu kod orijinal verileri yok edebilir, onu kullandığınızda önce verileri yedeklemelisiniz.

2. Bu kod yalnızca iki sütun için geçerlidir, ikiden fazla sütununuz varsa, bu kod yalnızca ilk iki sütunu birleştirecek ve diğer sütun verilerini kaldıracaktır. Bu kodu kullandığınızda dikkatli olmalısınız.

Birden çok yinelenen satırı tek bir Kutools for Excel'de birleştirin

Şimdi yukarıdaki kodun bazı sınırlamaları ve riskleri olduğuna göre, bu işi bitirmenin kullanışlı ve güvenli bir yolu var mı? İle Kutools for Excel'S Gelişmiş Kombine Satırları yardımcı programı, temel aldığınız sütunlardaki birden çok yinelenen satırı hızlı bir şekilde kaldırabilir ve diğer kayıtlar için uygun hücrelere birleştirebilir veya bazı hesaplamalar yapabilirsiniz.

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.

Kutools for Excel'i kurduktan sonra lütfen aşağıdaki işlemleri gerçekleştirin:

1. Yinelenenleri birleştirmek istediğiniz aralık verilerini seçin.

2. Sonra tıklayın Kutools > İçerik Dönüştürücü > Gelişmiş Kombine Satırları. Ekran görüntüsüne bakın:

3. In Gelişmiş Kombine Satırları iletişim kutusunda, değerleri temel alarak birleştirmek istediğiniz anahtar sütunlar olarak sütun adını seçin ve ardından Anahtar sütunlar. Ekran görüntüsüne bakın:

4. Ardından değerlerini tek bir kayıtta birleştirmeniz gereken sütuna tıklayın ve ardından İşlemleri birleştirin Ve seç Sadece ayırıcı ile birleştirinve bir ayırıcı seçin, birleştirilmiş değerleri sağdaki listeden ayırmanız gerekir. Ekran görüntüsüne bakın:

5. Ayarları tamamladıktan sonra OKverileriniz temel sütunlara göre birleştirilecek ve ayırıcılarla ayrılacaktır.

Not: Geri kalan sütunlar için işlemleri ayarlamanız gerekmiyorsa, varsayılan durumu koruyun.

Kutools for Excel ile birden çok yinelenen satırı birleştirin ve değerleri toplayın / ortalayın

Bu çok işlevli Gelişmiş Kombine Satırları yardımcı programda, yinelenen satırları birleştirebilir ve değerler için de bazı hesaplamalar yapabilirsiniz.

1. Yinelenenleri birleştirmek istediğiniz aralık verilerini seçin.

2. Gidin Gelişmiş Kombine Satırları iletişim kutusu;

• (1.) Diğer sütun değerlerini temel alarak hesaplamak istediğiniz anahtar sütun olarak bir sütun adı seçin ve ardından Anahtar sütunlar;
• (2.) Değerler için bazı hesaplamalar yapmanız gereken sütunu seçin ve ardından İşlemleri birleştirin > Birleştir hesapla, ardından ihtiyacınız olan bir hesaplama türü seçin, bu durumda seçiyorum Toplam. Ekran görüntüsüne bakın:

3. Geri kalan sütunlar için işlemleri ayarlamanız gerekmiyorsa, varsayılan durumu koruyun ve ardından OK, ve A sütunundaki yinelenen değerler birleştirilecek ve bunların B sütunundaki karşılık gelen değerleri toplanacaktır. Ekran görüntülerine bakın:

Notlar:

1. Kontrol ederseniz Verilerimin başlıkları var seçeneği, bu yardımcı programı uyguladığınızda aralığın başlıklarınız (ilk satır) yok sayılacaktır.

2. Biçimlendirilmiş değerleri kullanın: yinelenen hücreleri birleştirdikten sonra değerlerin biçimlendirmesini koruyacaktır.

3. Bu yardımcı program verileri filtrelemek için kullanılamaz.

Bu Gelişmiş Satırları Birleştirme işlevi hakkında daha fazla bilgi edinmek için tıklayın.

İlgili makale:

Yinelenen satırları birleştirin ve değerleri toplayın

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-2019 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay dağıtım. Tam özellikli 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.

Devamı ... Ücretsiz indirin... Satın alma... 

---

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!

Devamı ... Ücretsiz indirin... Satın alma...