Excel'de yinelenenlere göre birden fazla satırı birleştirmek nasıl yapılır?
Belki de aşağıdaki ekran görüntüsü verilerine sahipsiniz, Ürün adı sütunu A'da bazı yinelenen öğeler var ve şimdi sütun A'daki yinelenen girişleri kaldırmak ancak sütun B'deki karşılık gelen değerleri birleştirmek istiyorsunuz, ekran görüntüleri:
![]() | ![]() | ![]() |
Bu görevi çözmek için etkili yöntemleriniz var mı?
Birden fazla yinelenen satırı VBA kodu ile birleştirme
Birden fazla yinelenen satırı Kutools for Excel ile birleştirme
Birden fazla yinelenen satırı VBA kodu ile birleştirme
Aşağıdaki VBA kodu, size sütun A değerine göre yinelenen satırları birleştirmenize yardımcı olabilir ve aşağıdaki kod yalnızca iki sütuna uygulanır. Yani, iki sütunlu verilere sahipseniz, bu kod sizin için işe yarayacaktır.
1. ALT + F11 tuşlarını basılı tutun ve Microsoft Visual Basic for Applications penceresi açılır.
2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.
VBA kodu: birden fazla satırı birleştirme
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. Ardından F5 tuşuna basın ve seçmeniz gereken bir aralıkla ilgili sizi uyarmak için bir uyarı kutusu açılır. Ekran görüntüsüne bakın:
4. Ve sonra Tamam'a tıklayın, sütun B'deki değerler bir kayıt halinde birleştirilmiş ve boşluklarla ayrılmıştır.
Notlar:
1. Bu kod orijinal verileri bozabilir, kullandığınızda önce verileri yedeklemeniz daha iyi olur.
2. Bu kod yalnızca iki sütuna uygulanır, iki sütundan fazlasına sahipseniz bu kod yalnızca ilk iki sütunu birleştirir ve diğer sütun verilerini kaldırır. Bu kodu kullandığınızda dikkatli olmalısınız.
Birden fazla yinelenen satırı Kutools for Excel ile birleştirme
Şimdi, yukarıdaki kodun bazı sınırlamaları ve riskleri olduğuna göre, bu işi bitirmek için kullanışlı ve güvenli bir yol var mı? Kutools for Excel'in Gelişmiş Satırları Birleştir yardımcı programıyla, temel aldığınız sütunlardaki birden fazla yinelenen satırı hızlıca kaldırabilir ve diğer kayıtları uygun hücrelere birleştirebilir veya bazı hesaplamalar yapabilirsiniz.
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.
Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:
1. Birleştirmek istediğiniz yinelenen veri aralığını seçin.
2. Ardından Kutools > Birleştir ve Böl > Gelişmiş Satırları Birleştir'e tıklayın.
3. Gelişmiş Satırları Birleştir iletişim kutusunda, değerleri birleştirmek istediğiniz sütun adını seçin ve ardından Anahtar Sütunları'na tıklayın.
4. Ardından değerlerini tek bir kayıtta birleştirmek istediğiniz sütuna tıklayın ve ardından Birleştirme İşlemleri'ne tıklayın ve Sadece ayırıcı ile birleştir seçeneğini seçin ve birleştirilmiş değerleri ayırmak için sağ listeden bir ayırıcı seçin. Ekran görüntüsüne bakın:
5. Ayarları tamamladıktan sonra Tamam'a tıklayın ve verileriniz anahtar sütunlarına göre birleştirilecek ve ayırıcılarla ayrılacaktır.
Not: Geri kalan sütunlar için işlemler ayarlamaya ihtiyacınız yoksa, varsayılan durumu koruyun.
Birden fazla yinelenen satırı birleştirin ve değerleri Kutools for Excel ile toplam/ortalama hesaplayın
Bu çok fonksiyonlu Gelişmiş Satırları Birleştir yardımcı programıyla, yinelenen satırları birleştirebilir ve değerler için bazı hesaplamalar yapabilirsiniz.
1. Birleştirmek istediğiniz yinelenen veri aralığını seçin.
2. Gelişmiş Satırları Birleştir iletişim kutusuna gidin;
- (1.) Diğer sütun değerlerini hesaplamak istediğiniz bir sütun adını anahtar sütun olarak seçin ve ardından Anahtar Sütunları'na tıklayın;
- (2.) Değerler için bazı hesaplamalar yapmak istediğiniz sütunu seçin ve ardından Birleştirme İşlemleri > Birleştir Hesapla'ya tıklayın, ardından ihtiyacınız olan bir hesaplama türünü seçin, bu durumda Toplam'ı seçiyorum. Ekran görüntüsüne bakın:
3. Geri kalan sütunlar için işlemler ayarlamaya ihtiyacınız yoksa, varsayılan durumu koruyun, ardından Tamam'a tıklayın ve sütun A'daki yinelenen değerler birleştirilecek ve sütun B'deki karşılık gelen değerler toplanacaktır. Ekran görüntülerine bakın:
![]() | ![]() | ![]() |
Notlar:
1. Verilerimde başlıklar var seçeneğini işaretlerseniz, bu yardımcı programı uyguladığınızda aralığın başlıkları (ilk satır) göz ardı edilecektir.
2. Biçimlendirilmiş değerleri kullan: yinelenen hücreleri birleştirdikten sonra değerlerin biçimlendirmesini korur.
3. Bu yardımcı program filtreleme verileri için kullanılamaz.
Bu Gelişmiş Satırları Birleştir işlevi hakkında daha fazla bilgi için tıklayın.
İlgili makale:
Yinelenen satırları birleştirin ve değerleri toplayın
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi geliştirin ve daha önce hiç olmadığı kadar verimli olun. Kutools for Excel, üretkenliğinizi artırmak ve zamanınızı kaydetmek için300'den fazla gelişmiş özellik sunar. En çok ihtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Office'e sekmeli arayüz getirir ve işinizi çok daha kolaylaştırır
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Aynı pencerenin yeni sekmelerinde birden fazla belge açın ve oluşturun, yeni pencerelerde değil.
- Verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasını azaltır!