Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

Hvordan sammenkædes rækker i en celle baseret på gruppe i Excel?

Her er en række på to kolonner, den ene er klasselisten, og den anden er listen over elever. Som du ser, er nogle elever i samme klasse, andre ikke. Nu vil jeg sammenkæde eleverne i samme klasse til en celle som vist nedenstående skærmbillede, hvordan kan jeg hurtigt håndtere det i Excel?
doc sammenkædes efter gruppe 1

Gruppér og sammenkæd med formler og filterfunktion

Gruppér og sammenkæd med VBA-kode

Gruppér og sammenkæd med Advanced Combine Rowsgod idé3


Gruppér og sammenkæd med formler og filterfunktion

I Excel kan du anvende formler på sammenkædede rækker baseret på en kolonne og derefter bruge filterfunktionen til kun at vise resultatet.

Bemærk: Du skal sortere dine data efter klassen, inden du følger trinene.

1. Skriv en formel i en tom celle ved siden af ​​dataområdet, f.eks. C13 =IF(A13=A12,C12&", "&B13,B13), tryk på Enter nøgle og udfyld formlen til celler med træk i udfyldningshåndtaget.
doc sammenkædes efter gruppe 2

I formlen er A13 de første data i kolonnen "Klasse", B13 er de første data i kolonnen "Navn", "," er separatoren, der afgrænser sammenkædet indhold.

2. Skriv derefter denne formel i den næste kolonne, D13 =IF(A13<>A14,"Last","") , og træk fyldhåndtaget ned for at anvende formlen på de celler, du har brug for.
doc sammenkædes efter gruppe 3

3. Vælg nu alle dataområdet inklusive formler, og klik data > Filter at tilføje Filter icons til dataene.
doc sammenkædes efter gruppe 4

4. Klik på Filter icon i sidste formeloverskrift, tjek Last afkrydsningsfelt kun fra rullelisten, og klik på OK.
doc sammenkædes efter gruppe 5

Nu vises resultatet som nedenfor, du kan fjerne den sidste hjælpekolonne, hvis du aldrig har brug for det nogensinde.
doc sammenkædes efter gruppe 6


Gruppér og sammenkæd med VBA-kode

Her er en VBA-kode, der også kan håndtere dette job.

1. Trykke Alt + F11 for at aktivere Microsoft Visual Basic for Applications vindue.

2. Klik derefter på i vinduet Tools > References at muliggøre References dialog, og tjek Microsoft Scripting Runtime. Se skærmbillede:
doc sammenkædes efter gruppe 7
doc sammenkædes efter gruppe 8

3. klik OK, og klik Insert > Module i VBA-vindue, og kopier og indsæt nedenunder VBA-kode til Module manuskript. Se skærmbillede:

VBA: Sammenkæd rækker i en celle baseret på gruppe

  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 sammenkædes efter gruppe 9

4. Trykke F5 nøgle, og vælg det dataområde, du bruger i poppedialogen.
doc sammenkædes efter gruppe 10

5. klik OK for at vælge den nøglekolonne, du vil gruppere baseret på.
doc sammenkædes efter gruppe 11

6. klik OK, nu vises resultatet som nedenfor:
doc sammenkædes efter gruppe 12


Gruppér og sammenkæd med Advanced Combine Rows

Her er et værktøj i Kutools til Excel, Advanced Combine Rækker, som kan kombinere rækker eller foretage beregninger baseret på en nøglekolonne i Excel.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools til Excel, gør venligst som nedenfor:(Gratis download Kutools til Excel nu!)

1. Vælg det dataområde, du bruger, og klik på Kutools > Flet og del > Avancerede kombinere rækker.
doc sammenkædes efter gruppe 13

2. i Advanced Combine Rows vindue, vælg den kolonne, som du vil kombinere rækker ud fra, og klik på Primary Key for at indstille det som nøglekolonne.
doc sammenkædes efter gruppe 14

3. Vælg den kolonne, du skal kombinere, klik på Combine, og vælg en afgrænser, du bruger til at adskille det kombinerede indhold.

doc sammenkædes efter gruppe 15 doc pil til højre doc sammenkædes efter gruppe 16

4. klik Ok. Resultatet vises som dette:
doc sammenkædes efter gruppe 17

Bemærk: Før du anvender hjælpeprogrammet, skal du hellere have en kopi af de originale data.


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super Formula Bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2019 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60-dages pengene tilbage garanti.
kte-fane 201905

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50% og reducerer hundredvis af museklik for dig hver dag!
officetab bund
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.