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


Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա գումարները գումարեք VBA- ի հետ
Կա VBA կոդ, որը կարող է օգնել ձեզ միավորել կրկնօրինակ տողերը, ապա գումարել մեկ այլ սյունակի արժեքներ:
Ներդիրով զննում և խմբագրում բազմաթիվ Excel աշխատանքային գրքեր / Word փաստաթղթեր ՝ Firefox, Chrome, Internet Explore 10: |
Ձեզ կարող է ծանոթ լինել Firefox / Chrome / IE- ում մի քանի վեբ էջեր դիտելու և դրանց միջև փոխելու միջոցով ՝ հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել բազմաթիվ Excel գրքեր կամ Word փաստաթղթեր մեկ Excel պատուհանում կամ Word պատուհանում և հեշտությամբ փոխել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին: Սեղմեք անվճար 30Office Tab-ի օրական փորձարկում: |
![]() |
1. Մամուլ F11 + Alt հնարավորություն տալու ստեղները Microsoft Visual Basic հավելվածների համար պատուհանը, ապա կտտացրեք Տեղադրել > Մոդուլներ և պատճենեք և կպցրեք VBA կոդի տակ նորում Մոդուլներ պատուհան.
VBA. Միաձուլեք տողերը ՝ հիմնվելով մեկ սյունակի արժեքի վրա
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub
2. Մամուլ F5 կամ սեղմեք Վազում VBA- ն գործարկելու կոճակ, և աշխատելու համար տվյալների տիրույթ ընտրելու համար բացվում է երկխոսություն: տե՛ս սքրինշոթը.
3. Աշխատանքային տիրույթ ընտրելուց հետո կտտացրեք OK, Այժմ տվյալները միավորվել են ըստ առաջին սյունակի և ամփոփում են արժեքները երկրորդ սյունակում:
ՆշումԱյս VBA կոդը պարզապես կարող է ճիշտ աշխատել, երբ միաձուլվում են առաջին սյունակի և երկրորդ սյունակի գումարային արժեքների վրա:
Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա արժեքներն ամփոփեք Advanced Combine Rows- ի հետ
Եթե ծանոթ չեք VBA կոդին, կարող եք օգտագործել այն Ընդլայնված կոմբինատ տողեր երրորդ մասի հավելյալ գործիքի առանձնահատկություն - Excel- ի համար նախատեսված գործիքներ հեշտությամբ և արագորեն միավորել կրկնօրինակների շարքերը, ապա արժեքներն ամփոփել մեկ այլ սյունակում:
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք այն տվյալները, որոնք ցանկանում եք օգտագործել և կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, Տեսեք,
2. Դրանից հետո բացվող երկխոսության մեջ ընտրեք այն սյունակը, որի հիման վրա միաձուլելու եք այլ սյունակները, ապա կտտացրեք Հիմնական Բանալին և կտտացրեք մեկ այլ սյունակի վրա և կտտացրեք Հաշվել Ապա ընտրեք Գումար.
ԱկնարկԵթե ձեր ընտրած տիրույթն ունի վերնագրեր, ստուգեք Իմ տվյալներն ունեն վերնագրերեւ ստուգեք Օգտագործեք ձևաչափված արժեքներ միաձուլումից հետո կպահպանի ձևաչափումը:
3. Այնուհետեւ կտտացրեք Ok, Այժմ տվյալները միավորվել են ՝ հիմնվելով առաջնային սյունակի վրա, և մեկ այլն ամփոփվում է: Տեսեք,
Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա կատարեք այլ գործողություններ այլ սյունակների վրա `Ընդլայնված կոմբինատ շարքերով:
Ընդլայնված կոմբինատ տողեր հզոր է, քանի որ այն ոչ միայն կարող է միավորել կրկնօրինակ տողերը մեկ սյունակում, ապա գումարել մեկ այլ սյունակ, այլ նաև կարող է միավորել կրկնօրինակ տողերը մեկ սյունակում, ապա կատարել տարբեր գործողություններ այլ սյունակների վրա:
Ենթադրենք, ես ունեմ տվյալների մի շարք, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, և ես ուզում եմ և՛ միավորել սյունակում B սյունակում, և՛ C սյունակում գումարել արժեքները ՝ հիմնվելով A սյունակի վրա:
Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք տվյալների տիրույթը և կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, Տեսեք,
2. Մեջ Միավորել շարքերը ՝ հիմնվելով սյունակի վրա երկխոսություն, արա՛ այսպիսիներով.
(1) Կտտացրեք այն սյունակին, որի վրա ցանկանում եք միավորել, և կտտացրեք Առաջնային բանալին;
(2) Կտտացրեք այն սյունակին, որը ցանկանում եք միավորել տվյալները և կտտացնել Միավորել, ապա ցուցակից ընտրեք Ձեզ անհրաժեշտ մեկ տարանջատիչ.
(3) Կտտացրեք այն սյունակին, որը ցանկանում եք ամփոփել արժեքները և կտտացնել Հաշվելեւ ընտրեք Գումար.
3: սեղմեք Ok, Այժմ արդյունքը կարող եք տեսնել ստորև.
հետ Ընդլայնված կոմբինատ տողեր առանձնահատկությունը, դուք նաև կարող եք միավորել տողերը մեկ սյունակի հիման վրա, ապա հաշվել, միջինացնել, 1-ին կամ վերջին տվյալները պահել այլ սյունակներում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
- Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
- Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
- Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
- Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
- Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
- Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
- Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
- Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
- Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:

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



