Preskoči na glavno vsebino

Kako združiti vrstice v eno celico na podlagi skupine v Excelu?

Tu je obseg dveh stolpcev, eden je seznam razredov, drugi pa seznam imen študentov. Kot vidite, so nekateri učenci v istem razredu, nekateri ne. Zdaj želim združiti učence istega razreda v eno celico, kot je prikazano na spodnji sliki zaslona, ​​kako lahko to hitro obravnavam v Excelu?
doc združite s skupino 1

Združite in združite s formulami in funkcijo filtriranja

Združite in združite s kodo VBA

Združite in združite z naprednimi kombiniranimi vrsticamidobra ideja3


Združite in združite s formulami in funkcijo filtriranja

V Excelu lahko formule uporabite za združene vrstice, ki temeljijo na enem stolpcu, nato pa uporabite funkcijo Filter, da prikažete samo rezultat.

Opombe: Pred naslednjimi koraki morate podatke razvrstiti po razredu.

1. V prazno celico poleg obsega podatkov, na primer C13, vnesite to formulo =IF(A13=A12,C12&", "&B13,B13), pritisnite Enter in izpolnite formulo v celice z vlečnim ročajem za polnjenje.
doc združite s skupino 2

V formuli je A13 prvi podatek v stolpcu »Razred«, B13 prvi podatek v stolpcu »Ime«, »,« je ločilo za razmejitev združene vsebine.

2. Nato v naslednji stolpec D13 vnesite to formulo =IF(A13<>A14,"Last","") in povlecite ročico za polnjenje navzdol, da formulo uporabite za celice, ki jih potrebujete.
doc združite s skupino 3

3. Zdaj izberite ves obseg podatkov, vključno s formulami, in kliknite datum > Filter dodati Filter icons na podatke.
doc združite s skupino 4

4. Kliknite Filter icon v zadnji glavi formule preverite Last potrdite samo s spustnega seznama in kliknite OK.
doc združite s skupino 5

Zdaj je rezultat prikazan spodaj, zadnji stolpec pomočnika lahko odstranite, če ga nikoli ne potrebujete.
doc združite s skupino 6


Združite in združite s kodo VBA

Tu je koda VBA, ki lahko tudi opravi to nalogo.

1. Pritisnite Alt + F11 tipke, da omogočite Microsoft Visual Basic for Applications okno.

2. Nato v oknu kliknite Tools > References omogočiti References pogovorno okno in preverite Microsoft Scripting Runtime. Oglejte si posnetek zaslona:
doc združite s skupino 7
doc združite s skupino 8

3. klik OKin kliknite Insert > Module v okno VBA ter kopirajte in prilepite spodnjo kodo VBA v Module skripta. Oglejte si posnetek zaslona:

VBA: Združi vrstice v eno celico glede na skupino

  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 združite s skupino 9

4. Pritisnite F5 in izberite obseg podatkov, ki ga uporabljate v pojavnem pogovornem oknu.
doc združite s skupino 10

5. klik OK da izberete ključni stolpec, na podlagi katerega želite združiti v skupine.
doc združite s skupino 11

6. klik OK, zdaj je rezultat prikazan spodaj:
doc združite s skupino 12


Združite in združite z naprednimi kombiniranimi vrsticami

Tukaj je pripomoček v Kutools za Excel, Advanced Combine Vrstice, ki lahko združuje vrstice ali izvaja izračune na podlagi ključnega stolpca v Excelu.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)

1. Izberite obseg podatkov, ki ga uporabljate, in kliknite Kutools > Spoji in razdeli > Napredne kombinirane vrstice.
doc združite s skupino 13

2. V Ljubljani Advanced Combine Rows izberite stolpec, na podlagi katerega želite združiti vrstice, in kliknite Primary Key da ga nastavite kot ključni stolpec.
doc združite s skupino 14

3. Izberite stolpec, ki ga želite združiti, kliknite Combinein izberite eno ločilo, ki ga uporabljate za ločevanje združene vsebine.

doc združite s skupino 15 doc puščica desno doc združite s skupino 16

4. klik Ok. Rezultat je prikazan takole:
doc združite s skupino 17

Opombe: Pred uporabo pripomočka je bolje, da imate kopijo izvirnih podatkov.

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa.  Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...

zavihek kte 201905


Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
la formule excel détaillée plus haut ne fonctionne pas, il y a un problème=IF(A13=A12,C12&", "&B13,B13)
This comment was minimized by the moderator on the site
Hi, could you repeat the qustion in English? This formula I have tried again, it is correct.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations