Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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?
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 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.
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.


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.
tab kte 201905

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!
gwaelod officetab
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.