Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako združiti vrstice v eno celico, ki temelji na skupini v Excelu?

Tu je razpon dveh stolpcev, eden je seznam razredov, drugi pa seznam učencev. Kot vidite, so nekateri učenci v istem razredu, nekateri niso. Zdaj želim združiti študente v istem razredu v eno celico, kot je prikazano na sliki spodaj, kako naj hitro prenesem to v Excelu?
doc združuje skupina 1

Skupina in združite s formulami in filtrirno funkcijo

Skupina in združite s kodo VBA

Skupina in združite z Advanced Combine Rowsdobra ideja3

Preprosto združite stolpce ali vrstice, ne da bi izgubili podatke v programu Excel

Če menite, da delate z delovnim listom, ki vsebuje več podvojenih zapisov, zdaj morate kombinirati / združiti vrstice na podlagi enake vrednosti in narediti nekaj izračunih, kot je vsota, povprečje, število podvojenih vrstic. S tem Napredne kombinacije vrst of Kutools for Excel, lahko hitro združite iste vrednosti / iste podatke ali podvojene vrstice v ustrezne celice. Kliknite za brezplačni preskus 60 dni!
doc napredno kombiniranje vrstic
Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Skupina in združite s formulami in filtrirno funkcijo

V Excelu lahko formule uporabite za združene vrstice na podlagi enega stolpca, nato pa uporabite funkcijo Filter, da prikažete samo rezultat.

Opombe: Podatke morate razvrstiti po razredu pred naslednjimi koraki.

1. V prazno celico poleg območja podatkov, na primer C13, vnesite to formulo =IF(A13=A12,C12&", "&B13,B13), pritisnite Enter in izpolnite formulo v celice z vlečenjem ročaja za polnjenje.
doc združuje skupina 2

V formuli je A13 prvi podatek v stolpcu "Razred", B13 je prvi podatek v stolpcu "Ime", "je ločilnik, ki omejuje vsebino vsebine.

2. Nato v naslednjem stolpcu D13 vnesite to formulo =IF(A13<>A14,"Last","") , in potegnite ročico za polnjenje navzdol, da uporabite formulo za celice, ki jih potrebujete.
doc združuje skupina 3

3. Zdaj izberite vse podatkovne skupine, vključno s formulami in kliknite datum > Filter dodati Filter icons na podatke.
doc združuje skupina 4

4. Kliknite Filter icon v zadnji glavi formule, preverite Last potrdite polje samo s spustnega seznama in kliknite OK.
doc združuje skupina 5

Zdaj je rezultat prikazan kot spodaj, lahko odstranite zadnji stolpec pomočnika, če ga sploh ne potrebujete.
doc združuje skupina 6


Skupina in združite s kodo VBA

Tukaj je VBA koda, ki lahko tudi obravnava to opravilo.

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

2. Nato v oknu kliknite Tools > References omogočiti References dialog in preveri Microsoft Scripting Runtime. Prikaz slike:
doc združuje skupina 7
doc združuje skupina 8

3. klik OKin kliknite Insert > Module v oknu VBA in kopirajte in prilepite pod kodo VBA na Module skripta. Prikaz slike:

VBA: Concatenate vrstice v eno celico, ki temelji na skupini

  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žuje skupina 9

4. Pritisnite F5 tipko in izberite obseg podatkov, ki ga uporabljate v pogovornem oknu popping.
doc združuje skupina 10

5. klik OK da izberete stolpec s ključi, na katerega želite združiti.
doc združuje skupina 11

6. klik OK, zdaj je rezultat prikazan spodaj:
doc združuje skupina 12


Skupina in združite z Advanced Combine Rows

Tukaj je uporabnost v Kutools za Excel, Advanced Combine Vrstice, ki lahko združuje vrstice ali izračune, ki temeljijo na ključnem stolpcu v Excelu.

Kutools za Excel, z več kot 120 priročne funkcije, olajšajo vaše delo.

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

1. Izberite obseg podatkov, ki ga uporabljate, in kliknite Kutools > Content > Napredne kombinacije vrst.
doc združuje skupina 13

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

3. Izberite stolpec, ki ga želite združiti, kliknite Combinein izberite enega ločila, ki ga uporabljate za ločevanje kombinirane vsebine.

doc združuje skupina 15 doc arrow desno doc združuje skupina 16

4. klik Ok. Rezultat je prikazan kot naslednji:
doc združuje skupina 17

Opombe: Preden uporabite pripomoček, bi bolje imeli kopijo izvirnih podatkov.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
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.