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
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 Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!
