Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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?
doc konkatenowany według grupy 1

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

Grupuj i łącz z kodem VBA

Grupuj i łącz z zaawansowanymi wierszami łączeniadobry pomysł 3


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.
doc konkatenowany według grupy 2

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.
doc konkatenowany według grupy 3

3. Teraz wybierz cały zakres danych, w tym formuły, i kliknij Statystyki i dane > Filter dodać Filter icons do danych.
doc konkatenowany według grupy 4

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

Teraz wynik jest pokazany poniżej, możesz usunąć ostatnią kolumnę pomocnika, jeśli nigdy jej nie potrzebujesz.
doc konkatenowany według grupy 6


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:
doc konkatenowany według grupy 7
doc konkatenowany według grupy 8

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

doc konkatenowany według grupy 9

4. naciśnij F5 i wybierz zakres danych, którego używasz w wyświetlanym oknie dialogowym.
doc konkatenowany według grupy 10

5. kliknij OK aby wybrać kolumnę kluczową, na podstawie której chcesz zgrupować.
doc konkatenowany według grupy 11

6. kliknij OK, teraz wynik jest pokazany poniżej:
doc konkatenowany według grupy 12


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.

Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę. 

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.
doc konkatenowany według grupy 13

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ą.
doc konkatenowany według grupy 14

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

doc konkatenowany według grupy 15 strzałka doc w prawo doc konkatenowany według grupy 16

4. kliknij Ok. Wynik jest przedstawiony w następujący sposób:
doc konkatenowany według grupy 17

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


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.
kte tab 201905

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!
officetab dół
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.