Ինչպե՞ս Excel- ում խմբի հիման վրա շարքերը միավորել մեկ բջիջի մեջ:
Ահա երկու սյունակի տիրույթ, մեկը դասերի ցուցակն է, իսկ մյուսը ՝ ուսանողների անունների ցուցակը: Ինչպես տեսնում եք, որոշ ուսանողներ նույն դասարանում են, ոմանք `ոչ: Այժմ ես ուզում եմ նույն դասարանում սովորող ուսանողներին միացնել մեկ բջիջի, ինչպես ցույց է տրված նկարներից ներքևում: Ինչպե՞ս կարող եմ արագ կարգավորել այն Excel- ում:
Խմբավորեք և միացրեք բանաձեւերով և Filտիչ գործառույթով
Խմբավորեք և միացեք 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- ի համար նախատեսված գործիքներ, ավելի քան 300 հարմար գործառույթներ, ավելի հեշտացնում է ձեր գործերը: |
Տեղադրելուց հետո Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝(Անվճար ներբեռնեք Kutools- ի համար Excel- ը հիմա!)
1. Ընտրեք ձեր օգտագործած տվյալների տիրույթը և սեղմեք Kutools > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր.
2. Մեջ Advanced Combine Rows պատուհանում ընտրեք այն սյունակը, որի հիման վրա ցանկանում եք միավորել տողերը և սեղմել Primary Key այն որպես հիմնական սյունակ սահմանելու համար:
3. Ընտրեք այն սյունակը, որը դուք պետք է համատեղեք, սեղմեք Combine, և ընտրեք մեկ սահմանազատիչ, որն օգտագործում եք համակցված բովանդակությունը առանձնացնելու համար:
4: սեղմեք Ok. Արդյունքը ցուցադրվում է այսպես.
ՆշումՆախքան կոմունալ ծրագիրը կիրառելը, ավելի լավ է ունենաք բնօրինակ տվյալների պատճենը:
Demo
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: