Ta metoda wprowadzi VBA, aby szybko połączyć wszystkie wiersze o tym samym identyfikatorze lub nazwie w określonym wyborze. Wykonaj następujące czynności:

1. naciśnij inny + F11 klawisze, aby otworzyć okno Microsoft Visual Basic for Applications.

2. Kliknij wstawka > Moduł, a następnie wklej kod VBA do okna Module.

VBA: Połącz wiersze z tym samym identyfikatorem / nazwą w programie Excel

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, wciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.

4. W wyskakującym oknie dialogowym Kutools for Excel wybierz wiersze, które połączysz, i kliknij OK przycisk. Zobacz zrzut ekranu:

Teraz zobaczysz, że wiersze w określonym zakresie są połączone przecinkami o tym samym identyfikatorze. Zobacz zrzut ekranu:

Note: Ten VBA może łączyć wiersze tylko według wartości w pierwszej kolumnie. Na przykład jeśli chcesz połączyć wiersze o tej samej nazwie, musisz przenieść kolumnę nazwy do pierwszej kolumny określonego zakresu.

Z łatwością łącz wiersze i obliczaj na podstawie wartości w innej kolumnie w programie Excel

Kutools dla Excela Zaawansowane wiersze łączenia narzędzie może pomóc w łączeniu wierszy na podstawie wartości w innej kolumnie i jednocześnie sumowaniu, liczeniu, średniej itp.!

Jeśli masz zainstalowany Kutools for Excel, możesz zastosować jego Zaawansowane wiersze łączenia funkcja, aby szybko łączyć wiersze o tym samym identyfikatorze lub nazwach w określonym zakresie.

1. Wybierz wiersze, które chcesz połączyć, i kliknij Kutools > Treść > Zaawansowane wiersze łączenia. Zobacz zrzut ekranu:

2. W oknie dialogowym Zaawansowane łączenie wierszy wybierz kolumnę z identyfikatorem lub nazwą, według której chcesz połączyć, kliknij Główny klucz, a następnie określ reguły kombinacji dla innych kolumn według potrzeb.

W moim przypadku, (1) Wybieram ID zamówienia kolumnę i kliknij Główny klucz; (2) wybierz Data kolumnę i kliknij Obliczać > Liczyć; (3) wybierz Sprzedawca kolumnę i kliknij Połączyć > Przecinek; (4) wybierz ilość kolumnę i kliknij Obliczać > Suma. Zobacz zrzut ekranu:

3, Kliknij OK przycisk.
Teraz zobaczysz, że wybrane wiersze są połączone na podstawie identyfikatora zamówienia. Zobacz zrzut ekranu:

Jak połączyć, zachowując formatowanie liczb / daty w programie Excel?

Jak połączyć komórki z innego arkusza / różnych arkuszy w programie Excel?