Opomba: Drugi jeziki spletnega mesta so prevedeni z Googlom. Nazaj na angleščino
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

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 tipko in izberite obseg podatkov, ki ga uporabljate v pojavnem pogovornem oknu.
doc združite s skupino 10

5. klik OK , da izberete stolpec ključev, na podlagi katerega želite združiti.
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 kombinira vrstice ali izvaja izračune na podlagi stolpca s ključi 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 katerem ž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 ločilo, s katerim ločite kombinirane 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 raje imejte kopijo izvirnih podatkov.


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
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 z miško!
dno pisarniške mize
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.