Jak połączyć wiersze o tym samym identyfikatorze / nazwie w programie Excel?
Na przykład masz tabelę pokazaną na poniższym zrzucie ekranu i musisz połączyć wiersze z identyfikatorami zamówień, jakieś pomysły? W tym artykule przedstawimy Ci dwa rozwiązania.
- Połącz wiersze o tym samym identyfikatorze / nazwie według VBA
- Połącz wiersze o tym samym identyfikatorze / nazwie przez Kutools for Excel
Połącz wiersze o tym samym identyfikatorze / nazwie według VBA
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.!
Połącz wiersze o tym samym identyfikatorze / nazwie przez Kutools for Excel
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.
Kutools dla programu Excel - Zawiera ponad 300 niezbędnych narzędzi dla programu Excel. Ciesz się w pełni funkcjonalnym 30-dniowym DARMOWYM okresem próbnym bez karty kredytowej! Pobierz teraz!
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:
Podobne artykuły:
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?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
- Ostatnia aktualizacja .