Ինչպե՞ս Excel- ում խմբի հիման վրա շարքերը միավորել մեկ բջիջի մեջ:

Ահա երկու սյունակի տիրույթ, մեկը դասերի ցուցակն է, իսկ մյուսը ՝ ուսանողների անունների ցուցակը: Ինչպես տեսնում եք, որոշ ուսանողներ նույն դասարանում են, ոմանք `ոչ: Այժմ ես ուզում եմ նույն դասարանում սովորող ուսանողներին միացնել մեկ բջիջի, ինչպես ցույց է տրված նկարներից ներքևում: Ինչպե՞ս կարող եմ արագ կարգավորել այն Excel- ում:

Խմբավորեք և միացրեք բանաձեւերով և Filտիչ գործառույթով

Խմբավորեք և միացեք VBA կոդով

Խմբավորեք և միացեք Advanced Combine Rows- ով

Խմբավորեք և միացրեք բանաձեւերով և Filտիչ գործառույթով

Excel- ում դուք կարող եք բանաձևեր կիրառել մի շարքի հիման վրա միացված շարքերում, ապա օգտագործել theտիչ գործառույթը ՝ միայն արդյունքը ցուցադրելու համար:

ՆշումՔայլերը կատարելուց առաջ հարկավոր է դասակարգել ձեր տվյալները ըստ դասի:

1. Տվյալների տիրույթին կից դատարկ բջիջում, օրինակ ՝ C13, մուտքագրեք այս բանաձևը =IF(A13=A12,C12&", "&B13,B13), սեղմեք Enter բանալին և բանաձևը լրացնել բջիջներին ՝ քարշ տալով լրացնելու բռնակով:

Բանաձևում A13- ը «Դաս» սյունակի առաջին տվյալներն են, B13- ը «Անուն» սյունակի առաջին տվյալներն են,

2. Դրանից հետո հաջորդ սյունակում ՝ D13, մուտքագրեք այս բանաձևը =IF(A13<>A14,"Last","") և քաշեք լրացնելու բռնիչը ներքև ՝ ձեր համար անհրաժեշտ բջիջներին բանաձևը կիրառելու համար:

3. Այժմ ընտրեք տվյալների ամբողջ տիրույթը, ներառյալ բանաձևերը և կտտացրեք Ամսաթիվ > Filter է ավելացնել Filter icons տվյալներին:

4. Սեղմեք Filter icon վերջին բանաձևի վերնագրում ստուգեք Last վանդակը միայն բացվող ցուցակից և կտտացրեք OK.

Այժմ արդյունքը ցույց է տրված ստորև, դուք կարող եք հեռացնել օգնականի վերջին սյունակը, եթե դրա կարիքը երբևէ չկա:

Խմբավորեք և միացեք VBA կոդով

Ահա VBA կոդ, որը կարող է նաև կարգավորել այս աշխատանքը:

1. Մամուլ Alt + F11 ստեղները ՝ Microsoft Visual Basic for Applications պատուհան.

2. Դրանից հետո պատուհանում կտտացրեք Tools > References հնարավորություն ընձեռել References երկխոսություն և ստուգել Microsoft Scripting Runtime, Տեսեք,

3: սեղմեք OKեւ սեղմեք Insert > Module VBA պատուհանում և պատճենեք և տեղադրեք ներքևում գտնվող VBA կոդ ՝ Module սցենար Տեսեք,

VBA. Խմբի հիման վրա շարքերը միացրեք մեկ բջիջում

  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. Մամուլ F5 բանալին և ելնող երկխոսության մեջ ընտրեք ձեր օգտագործած տվյալների տիրույթը:

5: սեղմեք OK բանալին ընտրելու համար, որի վրա ցանկանում եք խմբավորել:

6: սեղմեք OK, այժմ արդյունքը ցույց է տրված ստորև.

Խմբավորեք և միացեք Advanced Combine Rows- ով

Ահա մի օգտակար ծրագիր Excel- ի համար նախատեսված գործիքներ, Advanced Combine Rows, որը կարող է միավորել տողերը կամ կատարել հաշվարկներ ՝ հիմնված Excel- ի առանցքային սյունակի վրա:

Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝（Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)

1. Ընտրեք ձեր օգտագործած տվյալների տիրույթը և կտտացրեք Kutools > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր.

2. Մեջ Advanced Combine Rows պատուհանը, ընտրեք այն սյունակը, որի հիման վրա ցանկանում եք միավորել տողերը և կտտացնել Primary Key այն որպես հիմնական սյունակ դնելու համար:

3. Ընտրեք այն սյունը, որն անհրաժեշտ է միավորել, կտտացրեք Combine, և ընտրեք մեկ սահմանազատիչ, որն օգտագործում եք համակցված բովանդակությունն առանձնացնելու համար:

4: սեղմեք Ok, Արդյունքը ցույց է տրված այսպես.

ՆշումՆախքան կոմունալը կիրառելը, ավելի լավ է ունենալ բնօրինակ տվյալների պատճենը:

  Demo

Գրասենյակի արտադրողականության լավագույն գործիքները

Excel- ի համար նախատեսված Kutools- ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80% -ով

• Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
• Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
• Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
• Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
• Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
• Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
• Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
• Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
• Ավելի քան 300 հզոր առանձնահատկություններ, Աջակցում է Office / Excel 2007-2019 և 365. Աջակցում է բոլոր լեզուները: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հատկություններ ՝ 30-օրյա անվճար փորձաշրջան: 60-օրյա գումարի վերադարձի երաշխիք:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

• Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
• Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
• Բարձրացնում է ձեր արտադրողականությունը 50% -ով և նվազեցնում է ձեզ համար ամեն օր մկնիկի հարյուրավոր կտտոցներ:

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...