Excel'de gruba göre satırları tek bir hücrede birleştirmek için 3 yöntem

Yapılandırılmış veri setleriyle Excel'de çalışırken, birden fazla satırı bir grup bazında tek bir hücrede birleştirme ihtiyacı yaygın bir gereksinimdir. Örneğin, aynı sınıfa ait tüm isimleri tek bir hücrede birleştirmek isteyebilirsiniz. Bu makale, farklı seviyelerde uzmanlık ve kullanım senaryolarına yönelik çeşitli yöntemler ve optimizasyonlar sunan adım adım talimatlar sağlar.

• Formüller ve Filtre fonksiyonu ile gruplama ve birleştirme
• Kutools for Excel ile kolayca gruplama ve birleştirme
• VBA kodu ile gruplama ve birleştirme

Formüller ve Filtre fonksiyonu ile gruplama ve birleştirme

Satırları bir sütuna göre birleştirmek için Excel'in formüllerini ve "Filtre" fonksiyonunu kullanabilirsiniz. Lütfen aşağıdaki adımları izleyin.

1. Yeni bir sütunda, isimleri birleştirmek için aşağıdaki formülü girin ve "Enter" tuşuna basın. Formülü sütun boyunca aşağı çekerek uygulayın.

   =IF(A2=A1,C1&", "&B2,B2)

   
2. Yeni bir sütunda, aşağıdaki formülü girin, "Enter" tuşuna basın ve formülü aşağı çekin.

   =IF(A2<>A3,"Last","")

   
3. Yardımcı sütunlar da dahil olmak üzere tüm veri aralığını seçin. "Veri" > "Filtre" seçerek verilere Filtre simgeleri ekleyin.
   
4. Son yardımcı sütundaki "Filtre simgesi"ne tıklayın, yalnızca "Son" onay kutusunu işaretleyin ve "Tamam"a tıklayın.
   

Şimdi sonuç aşağıdaki gibi gösterilir, artık ihtiyacınız yoksa son yardımcı sütunu kaldırabilirsiniz.

Kutools for Excel ile kolayca gruplama ve birleştirme

"Kutools for Excel", gruplanmış satırları birkaç tıklamayla tek bir hücreye birleştirmenizi sağlayan basit ve etkili bir çözüm sunar - "Gelişmiş Satırları Birleştir". Otomatik olarak virgül, boşluk veya satır sonu gibi özel ayırıcılar ekler ve çeşitli veri sunum ihtiyaçlarını karşılar.

1. Verilerinizi içeren hücreleri vurgulayın. "Kutools" > "Birleştir ve Böl" > "Gelişmiş Satırları Birleştir" yolunu izleyin.
2. Aşağıdaki şekilde yapılandırın:Gelişmiş Satırları Birleştir penceresinde lütfen şu şekilde yapılandırın:
   1. Satırları birleştirmek istediğiniz sütuna tıklayın ve "birincil anahtar" olarak ayarlayın.
   2. Birleştirmek istediğiniz sütun için, bu durumda "İsimler" sütunu gibi, bu sütunun "Hesaplama" alanında "Birleştir" bölümünde bir ayırıcı belirtin.
   3. "Tamam" düğmesine tıklayın.
   4. 

Sonuç: Kutools, verileri otomatik olarak gruba göre tek bir hücreye belirli bir ayırıcı ile birleştirir.

VBA kodu ile gruplama ve birleştirme

Ayrıca VBA'yı dinamik olarak bir gruba göre satırları birleştirmek için kullanabilirsiniz.

1. "Alt" + "F11" tuşlarına basarak "Microsoft Visual Basic for Applications" penceresini açın.
2. Kod düzenleyicide, "Araçlar" > "Referanslar" seçerek "Referanslar" iletişim kutusunu etkinleştirin, "Microsoft Scripting Runtime" seçeneğini işaretleyin ve değişiklikleri kaydedin.
   
3. "Ekle" > "Modül" yolunu izleyin ve aşağıdaki VBA kodunu Modül penceresine yapıştırın.
   VBA: Gruba göre satırları tek bir hücrede birleştirme

   Sub ConcatenateCellsIfSameValues()
   'UpdatebyExtendoffice20180201
       Dim I As Long
       Dim J As Long
       Dim xRg As Range
       Dim xRgKey As Range
       Dim xRgVal As Range
       Dim xStr As String
       Dim xDic As New Dictionary
       On Error Resume Next
       Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
       If xRg Is Nothing Then Exit Sub
       Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
       If xRgKey Is Nothing Then
           MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
       End If
       Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
       For I = 1 To xRgKey.Count
           If I > xRgKey.Count Then Exit For
           xStr = ""
           For J = 1 To xRgVal.Columns.Count
               xStr = xStr & " " & xRgVal(I, J)
           Next
           If xDic.Exists(xRgKey(I).Text) Then
               xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
               xRgKey(I).EntireRow.Delete
               I = I - 1
          Else
               xDic.Add xRgKey(I).Text, xStr
           End If
       Next
       For I = 1 To xRgVal.Count
           xRgVal(I).Value = xDic(xRgKey(I).Text)
       Next
   End Sub

   
4. Betiği çalıştırmak için "F5" tuşuna basın ve veri aralığınızı seçmek ve anahtar sütunlarını belirtmek için herhangi bir talimatı takip edin.
   

Sonuç aşağıdaki gibi gösterilir:

Excel'de verilerle çalışırken, hücreleri gruplama ve birleştirme yaygın ancak karmaşık bir görevdir. İhtiyaçlarınıza ve araçlarınıza bağlı olarak bu hedefe ulaşmak için birkaç yöntemi seçebilirsiniz. Excel çalışmalarınızı daha verimli ve rahat hale getirmek için size en uygun aracı ve yöntemi seçin. Eğer daha fazla Excel ipucu ve hilesini keşfetmeye ilgi duyuyorsanız, web sitemiz binlerce öğretici sunar ve Excel'i ustalıkla kullanmanıza yardımcı olur.

Demo: Kutools for Excel'in Gelişmiş Satırları Birleştir aracıyla gruplama ve birleştirme