Jak połączyć wiersze w jedną komórkę na podstawie grupy w programie Excel?

Oto zakres dwóch kolumn, jedna to lista klas, a druga to lista nazwisk uczniów. Jak widać, niektórzy uczniowie są w tej samej klasie, a niektórzy nie. Teraz chcę połączyć uczniów z tej samej klasy w jedną komórkę, jak pokazano na poniższym zrzucie ekranu, jak mogę szybko to obsłużyć w programie Excel?

Grupuj i łącz z formułami i funkcją filtru

Grupuj i łącz z kodem VBA

Grupuj i łącz z zaawansowanymi wierszami łączenia

Grupuj i łącz z formułami i funkcją filtru

W programie Excel można zastosować formuły do ​​połączonych wierszy na podstawie jednej kolumny, a następnie użyć funkcji Filtruj, aby wyświetlić tylko wynik.

Uwagi: Musisz posortować dane według klasy przed wykonaniem kolejnych kroków.

1. W pustej komórce obok zakresu danych, na przykład C13, wpisz tę formułę =IF(A13=A12,C12&", "&B13,B13), naciśnij Enter i wypełnij formułę do komórek, przeciągając uchwyt wypełniania.

W formule A13 to pierwsze dane w kolumnie „Klasa”, B13 to pierwsze dane w kolumnie „Nazwa”, „,” to separator służący do ograniczania zawartości połączonej.

2. Następnie w następnej kolumnie, D13, wpisz tę formułę =IF(A13<>A14,"Last","") i przeciągnij uchwyt wypełniania w dół, aby zastosować formułę do potrzebnych komórek.

3. Teraz wybierz cały zakres danych, w tym formuły, i kliknij Statystyki i dane > Filter dodać Filter icons do danych.

4. Kliknij Filter icon w ostatnim nagłówku formuły sprawdź Last zaznacz pole wyboru tylko z listy rozwijanej i kliknij OK.

Teraz wynik jest pokazany poniżej, możesz usunąć ostatnią kolumnę pomocnika, jeśli nigdy jej nie potrzebujesz.

Grupuj i łącz z kodem VBA

Oto kod VBA, który również może obsłużyć to zadanie.

1. naciśnij Alt + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.

2. Następnie w oknie kliknij Tools > References umożliwić References i zaznacz Microsoft Scripting Runtime. Zobacz zrzut ekranu:

3. kliknij OKi kliknij Insert > Module w oknie VBA i skopiuj i wklej poniższy kod VBA do pliku Module scenariusz. Zobacz zrzut ekranu:

VBA: łącz wiersze w jedną komórkę na podstawie grupy

  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. naciśnij F5 i wybierz zakres danych, którego używasz w wyświetlanym oknie dialogowym.

5. kliknij OK aby wybrać kolumnę kluczową, na podstawie której chcesz zgrupować.

6. kliknij OK, teraz wynik jest pokazany poniżej:

Grupuj i łącz z zaawansowanymi wierszami łączenia

Oto narzędzie w programie Kutools dla programu Excel, Advanced Combine Wydziwianie, który może łączyć wiersze lub wykonywać obliczenia na podstawie kolumny kluczowej w programie Excel.

Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:（Bezpłatne pobieranie Kutools dla programu Excel teraz!)

1. Wybierz zakres danych, którego używasz i kliknij Kutools > Połącz i podziel > Zaawansowane wiersze łączenia.

2. w Advanced Combine Rows wybierz kolumnę, na podstawie której chcesz połączyć wiersze, i kliknij Primary Key aby ustawić go jako kolumnę kluczową.

3. Wybierz kolumnę, którą chcesz połączyć, kliknij Combinei wybierz jeden separator, którego używasz do oddzielenia połączonych treści.

4. kliknij Ok. Wynik jest przedstawiony w następujący sposób:

Uwagi: Przed zastosowaniem narzędzia lepiej mieć kopię oryginalnych danych.

  Próbny

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.

Czytaj więcej... Darmowe pobieranie... Zakup... 

---

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ęć myszą każdego dnia!

Czytaj więcej... Darmowe pobieranie... Zakup...