Note: The other languages of the website are Google-translated. Back to English
Մուտք  \/ 
x
or
x
Գրանցում  \/ 
x

or

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

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

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

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

Խմբավորեք և միացեք Advanced Combine Rows- ովլավ գաղափար 3


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

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

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

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

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

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

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

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

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


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

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

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

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

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

փաստաթուղթը միավորված ըստ 9 խմբի

4. Մամուլ F5 բանալին և ելնող երկխոսության մեջ ընտրեք ձեր օգտագործած տվյալների տիրույթը:
փաստաթուղթը միավորված ըստ 10 խմբի

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

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


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

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

Excel- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: 

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

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

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

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

փաստաթուղթը միավորված ըստ 15 խմբի doc սլաք աջ փաստաթուղթը միավորված ըստ 16 խմբի

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

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


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

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

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

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

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