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?
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 vrsticami
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.
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.
3. Zdaj izberite ves obseg podatkov, vključno s formulami, in kliknite datum > Filter dodati Filter icons na podatke.
4. Kliknite Filter icon v zadnji glavi formule preverite Last potrdite samo s spustnega seznama in kliknite OK.
Zdaj je rezultat prikazan spodaj, zadnji stolpec pomočnika lahko odstranite, če ga nikoli ne potrebujete.
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:
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
4. Pritisnite F5 in izberite obseg podatkov, ki ga uporabljate v pojavnem pogovornem oknu.
5. klik OK da izberete ključni stolpec, na podlagi katerega želite združiti v skupine.
6. klik OK, zdaj je rezultat prikazan spodaj:
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.
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.
3. Izberite stolpec, ki ga želite združiti, kliknite Combinein izberite eno ločilo, ki ga uporabljate za ločevanje združene vsebine.
4. klik Ok. Rezultat je prikazan takole:
Opombe: Pred uporabo pripomočka je bolje, da imate kopijo izvirnih podatkov.
Predstavitev
Najboljša pisarniška orodja za produktivnost
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...
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!