Megjegyzés: A webhely többi nyelvét a Google fordítja. Vissza az angol nyelvre
Belépek  \/ 
x
or
x
Regisztráció  \/ 
x

or

Hogyan lehet összefűzni a sorokat egy cellába az Excel csoportja alapján?

Itt van két oszlop tartománya, az egyik az osztálylista, a másik pedig a diáknevek listája. Mint látja, néhány diák ugyanabban az osztályban van, van, aki nem. Most az ugyanazon osztály tanulóit szeretném összefűzni egy cellába, ahogy az alábbi képernyőképen látható. Hogyan tudom ezt gyorsan kezelni az Excelben?
doc összefűzni az 1. csoport szerint

Csoportosítsa és összefűzze képletekkel és a Szűrő funkcióval

Csoportosítsa és összefűzze a VBA kódot

Csoportosítsa és összefűzze az Advanced Combine Row-katjó ötlet3


Csoportosítsa és összefűzze képletekkel és a Szűrő funkcióval

Az Excelben képleteket alkalmazhat összefűzött sorokra egy oszlop alapján, majd a Szűrő funkcióval csak az eredményt jelenítheti meg.

Megjegyzések: A lépések végrehajtása előtt osztályozása szerint kell rendezni adatait.

1. Írja be ezt a képletet az adattartomány melletti üres cellába, például C13 =IF(A13=A12,C12&", "&B13,B13), nyomja meg Enter gombot, és töltse ki a képletet cellákra húzó kitöltő fogantyúval.
doc összefűzni az 2. csoport szerint

A képletben az A13 az első osztály az „Osztály” oszlopban, a B13 az első adat a „Név” oszlopban, a „,” az elválasztó az összefűzés tartalmának elhatárolására.

2. Ezután a következő D13 oszlopba írja be ezt a képletet =IF(A13<>A14,"Last","") , és húzza lefelé a kitöltő fogantyút, hogy a képletet alkalmazza a szükséges cellákra.
doc összefűzni az 3. csoport szerint

3. Most válassza ki az összes adattartományt, beleértve a képleteket, és kattintson dátum > Filter hozzáadni Filter icons az adatokhoz.
doc összefűzni az 4. csoport szerint

4. Kattintson a Filter icon az utolsó képletfejlécben ellenőrizze Last jelölőnégyzetet csak a legördülő listából, és kattintson a gombra OK.
doc összefűzni az 5. csoport szerint

Most az eredmény az alábbiak szerint jelenik meg, eltávolíthatja az utolsó segítő oszlopot, ha soha nincs szüksége rá.
doc összefűzni az 6. csoport szerint


Csoportosítsa és összefűzze a VBA kódot

Itt van egy VBA kód, amely szintén képes kezelni ezt a munkát.

1. nyomja meg Alt + F11 gombok a Microsoft Visual Basic for Applications ablak.

2. Ezután az ablakban kattintson a gombra Tools > References engedélyezni References párbeszédpanelt, és ellenőrizze Microsoft Scripting Runtime. Lásd a képernyőképet:
doc összefűzni az 7. csoport szerint
doc összefűzni az 8. csoport szerint

3. kettyenés OK, és kattintson a gombra Insert > Module a VBA ablakban, és másolja és illessze be a VBA kód alá a Module forgatókönyv. Lásd a képernyőképet:

VBA: A sorok összefűzése egy cellába csoport alapján

  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 összefűzni az 9. csoport szerint

4. nyomja meg F5 gombot, és a felbukkanó párbeszédpanelen válassza ki a használt adattartományt.
doc összefűzni az 10. csoport szerint

5. kettyenés OK hogy kiválassza a kulcsoszlopot, amely alapján csoportosítani szeretne.
doc összefűzni az 11. csoport szerint

6. kettyenés OK, most az eredmény az alábbiak szerint jelenik meg:
doc összefűzni az 12. csoport szerint


Csoportosítsa és összefűzze az Advanced Combine Row-kat

Itt van egy segédprogram Kutools for Excel, Advanced Combine Sorok, amely egyesítheti a sorokat, vagy számításokat végezhet az Excel egyik kulcsoszlopa alapján.

Kutools for Excel, Több mint 300 a praktikus funkciók megkönnyítik a munkáját. 

Telepítése után Kutools for Excel, kérjük, tegye az alábbiak szerint:(Ingyenes letöltés Kutools for Excel most!)

1. Válassza ki a használt adattartományt, majd kattintson a gombra Kutools > Egyesítés és felosztás > Haladó kombinált sorok.
doc összefűzni az 13. csoport szerint

2. Ban,-ben Advanced Combine Rows ablakban válassza ki azt az oszlopot, amely alapján össze akarja vonni a sorokat, majd kattintson a Primary Key hogy kulcsoszlopként állítsa be.
doc összefűzni az 14. csoport szerint

3. Válassza ki az összekapcsolandó oszlopot, kattintson a gombra Combine, és válasszon egy elválasztót, amelyet az egyesített tartalmak elválasztásához használ.

doc összefűzni az 15. csoport szerint doc nyíl jobbra doc összefűzni az 16. csoport szerint

4. kettyenés Ok. Az eredmény a következő:
doc összefűzni az 17. csoport szerint

Megjegyzések: A segédprogram alkalmazása előtt jobb, ha rendelkezik az eredeti adatok másolatával.


A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Super Formula Bar (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2019 és 365. Támogatja az összes nyelvet. Könnyen telepíthető a vállalkozásba vagy szervezetbe. 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte tab 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és minden nap több száz kattintással csökkenti az egér kattintását!
officetab alja
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.