Skip i'r prif gynnwys

Sut i gyd-fynd â rhesi i mewn i un cell yn seiliedig ar grŵp yn Excel?

Awdur: Haul Wedi'i Addasu Diwethaf: 2020-08-18

Dyma ystod o ddwy golofn, un yw'r rhestr ddosbarth, a'r llall yw'r rhestr enwau myfyrwyr. Fel y gwelwch, mae rhai myfyrwyr yn yr un dosbarth, mae rhai ddim. Nawr rydw i eisiau cyd-fynd â'r myfyrwyr yn yr un dosbarth i mewn i un gell ag islaw'r screenshot a ddangosir, sut alla i ei drin yn gyflym yn Excel?
doc yn cyd-fynd â grŵp 1

Grwpio a chyd-fynd â fformwlâu a swyddogaeth Hidlo

Grwpio a chyd-fynd â chod VBA

Grwpio a chyd-fynd â Rhesi Cyfuno Uwchsyniad da3


Grwpio a chyd-fynd â fformwlâu a swyddogaeth Hidlo

Yn Excel, gallwch gymhwyso fformwlâu i resi cydgysylltiedig yn seiliedig ar un golofn, yna defnyddio'r swyddogaeth Hidlo i arddangos y canlyniad yn unig.

Nodyn: Mae angen i chi ddidoli'ch data yn ôl y dosbarth cyn dilyn camau.

1. Mewn cell wag wrth ymyl yr ystod ddata, er enghraifft, C13, teipiwch y fformiwla hon =IF(A13=A12,C12&", "&B13,B13), y wasg Enter allwedd a llenwch y fformiwla i gelloedd gyda llusgo handlen llenwi.
doc yn cyd-fynd â grŵp 2

Yn y fformiwla, A13 yw'r data cyntaf yn y golofn “Dosbarth”, B13 yw'r data cyntaf yn y golofn “Enw”, “,” yw'r gwahanydd i gyfyngu ar gynnwys cydategol.

2. Yna yn y golofn nesaf, D13, teipiwch y fformiwla hon =IF(A13<>A14,"Last","") , a llusgo handlen llenwi i lawr i gymhwyso'r fformiwla i gelloedd sydd eu hangen arnoch chi.
doc yn cyd-fynd â grŵp 3

3. Nawr dewiswch yr holl ystod data gan gynnwys fformwlâu a chlicio Dyddiad > Filter i ychwanegu Filter icons i'r data.
doc yn cyd-fynd â grŵp 4

4. Cliciwch ar y Filter icon ym mhennawd y fformiwla ddiwethaf, gwiriwch Last blwch gwirio yn unig o'r gwymplen, a chlicio OK.
doc yn cyd-fynd â grŵp 5

Nawr bod y canlyniad wedi'i ddangos fel isod, gallwch chi gael gwared ar y golofn gynorthwyydd olaf os nad oes ei hangen arnoch chi erioed.
doc yn cyd-fynd â grŵp 6


Grwpio a chyd-fynd â chod VBA

Dyma god VBA a all hefyd drin y swydd hon.

1. Gwasgwch Alt + F11 allweddi i alluogi'r Microsoft Visual Basic for Applications ffenestr.

2. Yna yn y ffenestr, cliciwch Tools > References i alluogi References deialog, a gwirio Microsoft Scripting Runtime. Gweler y screenshot:
doc yn cyd-fynd â grŵp 7
doc yn cyd-fynd â grŵp 8

3. Cliciwch OK, a chliciwch Insert > Module yn ffenestr VBA, a chopïo a gludo islaw cod VBA i'r Module sgript. Gweler y screenshot:

VBA: Rhesi concatenate i mewn i un gell yn seiliedig ar grŵp

  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 yn cyd-fynd â grŵp 9

4. Gwasgwch F5 allwedd, a dewiswch yr ystod ddata rydych chi'n ei defnyddio yn y dialog popping.
doc yn cyd-fynd â grŵp 10

5. Cliciwch OK i ddewis y golofn allweddol rydych chi am ei grwpio yn seiliedig arni.
doc yn cyd-fynd â grŵp 11

6. Cliciwch OK, nawr dangosir y canlyniad fel isod:
doc yn cyd-fynd â grŵp 12


Grwpio a chyd-fynd â Rhesi Cyfuno Uwch

Dyma gyfleustodau yn Kutools ar gyfer Excel, Advanced Combine Rhesi, a all gyfuno rhesi neu wneud cyfrifiadau yn seiliedig ar golofn allweddol yn Excel.

Kutools ar gyfer Excel, gyda mwy na 300 swyddogaethau defnyddiol, yn gwneud eich swyddi yn haws. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel isod:(Lawrlwythiad Am Ddim Kutools ar gyfer Excel Nawr!)

1. Dewiswch yr ystod ddata rydych chi'n ei defnyddio a chlicio Kutools > Uno a Hollti > Rhesi Cyfuno Uwch.
doc yn cyd-fynd â grŵp 13

2. Yn y Advanced Combine Rows ffenestr, dewiswch y golofn rydych chi am gyfuno rhesi yn seiliedig arni, a chlicio Primary Key i'w osod fel colofn allweddol.
doc yn cyd-fynd â grŵp 14

3. Dewiswch y golofn y mae angen i chi ei chyfuno, cliciwch Combine, a dewiswch un delimydd rydych chi'n ei ddefnyddio i wahanu'r cynnwys cyfun.

doc yn cyd-fynd â grŵp 15 saeth doc dde doc yn cyd-fynd â grŵp 16

4. Cliciwch Ok. Dangosir y canlyniad fel hyn:
doc yn cyd-fynd â grŵp 17

Nodyn: Cyn cymhwyso'r cyfleustodau, byddai'n well gennych gael copi o'r data gwreiddiol.

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
la formule excel détaillée plus haut ne fonctionne pas, il y a un problème=IF(A13=A12,C12&", "&B13,B13)
This comment was minimized by the moderator on the site
Hi, could you repeat the qustion in English? This formula I have tried again, it is correct.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations