Bu yöntem, tüm satırları belirtilen seçimde aynı kimlik veya adla hızlı bir şekilde birleştirmek için bir VBA sunacaktır. Lütfen aşağıdaki işlemleri yapın:

1. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tıklayın Ekle > modülve sonra VBA kodunu Modül penceresine yapıştırın.

VBA: Satırları Excel'de Aynı Kimlik / ada sahip birleştirme

Sub Consolidate_Rows()
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Value
Else
xRg(I, K) = xRg(I, K).Value & "," & xRg(J, K).Value
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

3. basın F5 anahtarı veya tıklayın koşmak Bu VBA'yı çalıştırmak için düğmesine basın.

4. Açılan Kutools for Excel iletişim kutusunda, lütfen birleştireceğiniz satırları seçin ve OK buton. Ekran görüntüsüne bakın:

Şimdi, belirtilen aralıktaki satırların aynı kimlikle virgüllerle birleştirildiğini göreceksiniz. Ekran görüntüsüne bakın:

not: Bu VBA, satırları yalnızca ilk sütundaki değerlere göre birleştirebilir. Örneğin, satırları aynı ada göre birleştirmek istiyorsanız, ad sütununu belirtilen aralığın ilk sütununa taşımalısınız.

Excel'de başka bir sütundaki değerlere göre satırları kolayca birleştirin ve hesaplayın

Kutools for Excel's Gelişmiş Kombine Satırları yardımcı program, satırları birohter sütundaki değerlere ve aynı anda toplama, sayma, ortalama vb. temel alarak birleştirmenize yardımcı olabilir!

Kutools for Excel yüklüyse, uygulayabilirsiniz Gelişmiş Kombine Satırları belirtilen aralıktaki aynı ID veya adlara sahip satırları hızlı bir şekilde birleştirmek için özellik.

1. Birleştireceğiniz satırları seçin ve tıklayın Kutools > içerik > Gelişmiş Kombine Satırları. Ekran görüntüsüne bakın:

2. Gelişmiş Kombine Satırları iletişim kutusunda, lütfen birleştireceğiniz kimliği veya ad sütununu seçin, tıklayın Birincil anahtarve ardından ihtiyaç duyduğunuz diğer sütunlar için kombinasyon kuralları belirtin.

Benim durumumda, (1) Ben seçiyorum Sipariş Kimliği sütun ve tıklayın Birincil anahtar; (2) seçmek Tarih sütun ve tıklayın Hesaplanmış > saymak; (3) seçmek Satış elemanı sütun ve tıklayın Birleştirmek > Virgül; (4) seçmek Ücret sütun ve tıklayın Hesaplanmış > Toplam. Ekran görüntüsüne bakın:

3. Tıkla OK düğmesine basın.
Şimdi, seçilen satırların sipariş kimliğine göre birleştirildiğini göreceksiniz. Ekran görüntüsüne bakın:

Excel'de sayı / tarih biçimlendirmesini nasıl birleştirebilirim?

Excel'de başka bir sayfadan / farklı sayfalardan hücreler nasıl birleştirilir?