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

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?

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

Grwpio a chyd-fynd â chod VBA

Grwpio a chyd-fynd â Rhesi Cyfuno Uwch

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.

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.

3. Nawr dewiswch yr holl ystod data gan gynnwys fformwlâu a chlicio Dyddiad > Filter i ychwanegu Filter icons i'r data.

4. Cliciwch ar y Filter icon ym mhennawd y fformiwla ddiwethaf, gwiriwch Last blwch gwirio yn unig o'r gwymplen, a chlicio OK.

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.

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:

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

4. Gwasgwch F5 allwedd, a dewiswch yr ystod ddata rydych chi'n ei defnyddio yn y dialog popping.

5. Cliciwch OK i ddewis y golofn allweddol rydych chi am ei grwpio yn seiliedig arni.

6. Cliciwch OK, nawr dangosir y canlyniad fel isod:

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.

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel y nodir isod:（Kutools i'w lawrlwytho am ddim ar gyfer Excel Nawr!)

1. Dewiswch yr ystod ddata rydych chi'n ei defnyddio a chlicio Kutools > Uno a Hollti > Rhesi Cyfuno Uwch.

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.

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.

4. Cliciwch Ok. Dangosir y canlyniad fel hyn:

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

  Demo

Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

• Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
• Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
• Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
• Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
• Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
• Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
• Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
• Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
• Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.

Read More ... Lawrlwythiad Am Ddim... Prynu ... 

---

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!

Read More ... Lawrlwythiad Am Ddim... Prynu ...