Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrovat  \/ 
x

or

Jak zřetězit řádky do jedné buňky na základě skupiny v aplikaci Excel?

Zde je řada dvou sloupců, jeden je seznam tříd a druhý je seznam jmen studentů. Jak vidíte, někteří studenti jsou ve stejné třídě, někteří ne. Nyní chci zřetězit studenty ve stejné třídě do jedné buňky, jak je ukázáno níže, jak to mohu rychle zpracovat v aplikaci Excel?
doc zřetězit podle skupiny 1

Seskupujte a zřetězujte pomocí vzorců a funkce Filtr

Seskupujte a zřetězujte pomocí kódu VBA

Seskupujte a zřetězujte pomocí Advanced Combine Rowsdobrý nápad3


Seskupujte a zřetězujte pomocí vzorců a funkce Filtr

V aplikaci Excel můžete použít vzorce na zřetězené řádky založené na jednom sloupci a poté pomocí funkce Filtr zobrazit pouze výsledek.

Poznámka: Před provedením následujících kroků je třeba seřadit data podle třídy.

1. Do prázdné buňky vedle datového rozsahu, například C13, zadejte tento vzorec =IF(A13=A12,C12&", "&B13,B13), lis Enter klíč a vyplňte vzorec do buněk přetažením rukojeti výplně.
doc zřetězit podle skupiny 2

Ve vzorci je A13 první údaj ve sloupci „Třída“, B13 je první údaj ve sloupci „Název“, „,“ je oddělovač k vymezení zřetězeného obsahu.

2. Potom v dalším sloupci D13 zadejte tento vzorec =IF(A13<>A14,"Last","") a přetažením rukojeti výplně dolů použijete vzorec na buňky, které potřebujete.
doc zřetězit podle skupiny 3

3. Nyní vyberte celý rozsah dat včetně vzorců a klepněte na Data > Filter přidat Filter icons k datům.
doc zřetězit podle skupiny 4

4. Klepněte na tlačítko Filter icon v posledním záhlaví vzorce zkontrolujte Last zaškrtávací políčko pouze z rozevíracího seznamu a klikněte na OK.
doc zřetězit podle skupiny 5

Výsledek je nyní zobrazen níže. Poslední sloupec pomocníka můžete odebrat, pokud jej nikdy nepotřebujete.
doc zřetězit podle skupiny 6


Seskupujte a zřetězujte pomocí kódu VBA

Zde je kód VBA, který také zvládne tuto práci.

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic for Applications okno.

2. Potom v okně klikněte na Tools > References umožnit References dialogové okno a zkontrolujte Microsoft Scripting Runtime. Viz snímek obrazovky:
doc zřetězit podle skupiny 7
doc zřetězit podle skupiny 8

3. cvaknutí OK, a klepněte na tlačítko Insert > Module v okně VBA a zkopírujte a vložte pod kód VBA do Module skript. Viz screenshot:

VBA: Spojte řádky do jedné buňky na základě skupiny

  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 zřetězit podle skupiny 9

4. lis F5 a vyberte rozsah dat, který používáte v rozbalovacím dialogovém okně.
doc zřetězit podle skupiny 10

5. cvaknutí OK vyberte sloupec klíče, podle kterého chcete seskupit.
doc zřetězit podle skupiny 11

6. cvaknutí OK, nyní je výsledek zobrazen níže:
doc zřetězit podle skupiny 12


Seskupujte a zřetězujte pomocí Advanced Combine Rows

Zde je nástroj v Kutools pro Excel, Advanced Combine Řádky, který umožňuje kombinovat řádky nebo provádět výpočty na základě klíčového sloupce v aplikaci Excel.

Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. 

Po instalaci Kutools pro Excel, prosím, postupujte takto:(Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte rozsah dat, který používáte, a klikněte na Kutools > Sloučit a rozdělit > Pokročilé kombinování řádků.
doc zřetězit podle skupiny 13

2. V Advanced Combine Rows v okně vyberte sloupec, podle kterého chcete kombinovat řádky, a klikněte na Primary Key nastavit jako sloupec klíče.
doc zřetězit podle skupiny 14

3. Vyberte sloupec, který chcete zkombinovat, klikněte na Combinea vyberte jeden oddělovač, který používáte k oddělení kombinovaného obsahu.

doc zřetězit podle skupiny 15 doc šipka vpravo doc zřetězit podle skupiny 16

4. cvaknutí Ok. Výsledek se zobrazí takto:
doc zřetězit podle skupiny 17

Poznámka: Před použitím nástroje byste měli mít kopii původních dat.


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50% a omezuje stovky kliknutí myší každý den!
officetab dno
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.