Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս արագ միավորել տողերը ՝ հիմնվելով մեկ սյունակի արժեքի վրա, ապա որոշ հաշվարկներ անել Excel- ում:

Օրինակ, դուք ունեք տվյալների մի շարք, և մեկ սյունակում կան կրկնօրինակներ, այժմ դուք ցանկանում եք միացնել շարքերի հիմքերը A սյունակը (ունի կրկնօրինակներ), ապա կատարել որոշ հաշվարկներ մեկ այլ սյունակի վրա `միավորված շարքերի հիման վրա, ինչպես ցույց է տրված նկարում.

Excel- ում չկա մեկ սյունակի արժեքի հիման վրա շարքերը միաձուլելու արագ մեթոդ, բայց այստեղ ես ներկայացնում եմ
հնարքներ, որոնք կարող են օգնել ձեզ միավորել կրկնօրինակ տողերը, ապա գումարել կամ կատարել այլ հաշվարկներ մեկ այլ սյունակում:


նետ կապույտ աջ պղպջակ Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա գումարները գումարեք VBA- ի հետ

Կա VBA կոդ, որը կարող է օգնել ձեզ միավորել կրկնօրինակ տողերը, ապա գումարել մեկ այլ սյունակի արժեքներ:

Ներդիրով զննում և խմբագրում բազմաթիվ Excel աշխատանքային գրքեր / Word փաստաթղթեր ՝ Firefox, Chrome, Internet Explore 10:

Ձեզ կարող է ծանոթ լինել Firefox / Chrome / IE- ում մի քանի վեբ էջեր դիտելու և դրանց միջև փոխելու միջոցով ՝ հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ Office Tab- ն աջակցում է նմանատիպ վերամշակման, որը թույլ է տալիս թերթել բազմաթիվ Excel գրքեր կամ Word փաստաթղթեր մեկ Excel պատուհանում կամ Word պատուհանում և հեշտությամբ փոխել նրանց միջև ՝ կտտացնելով դրանց ներդիրներին: Սեղմեք անվճար 30Office Tab-ի օրական փորձարկում:

ot գերազանցել

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- ն գործարկելու կոճակ, և աշխատելու համար տվյալների տիրույթ ընտրելու համար բացվում է երկխոսություն: տե՛ս սքրինշոթը.

doc սյունակները մի սյունակի հիման վրա 3

3. Աշխատանքային տիրույթ ընտրելուց հետո կտտացրեք OK, Այժմ տվյալները միավորվել են ըստ առաջին սյունակի և ամփոփում են արժեքները երկրորդ սյունակում:

doc սյունակները մի սյունակի հիման վրա 4

ՆշումԱյս VBA կոդը պարզապես կարող է ճիշտ աշխատել, երբ միաձուլվում են առաջին սյունակի և երկրորդ սյունակի գումարային արժեքների վրա:


նետ կապույտ աջ պղպջակ Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա արժեքներն ամփոփեք Advanced Combine Rows- ի հետ

Եթե ​​ծանոթ չեք VBA կոդին, կարող եք օգտագործել այն Ընդլայնված կոմբինատ տողեր երրորդ մասի հավելյալ գործիքի առանձնահատկություն - Excel- ի համար նախատեսված գործիքներ հեշտությամբ և արագորեն միավորել կրկնօրինակների շարքերը, ապա արժեքներն ամփոփել մեկ այլ սյունակում:

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

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

doc առաջադեմ կոմբինատ 1

2. Դրանից հետո բացվող երկխոսության մեջ ընտրեք այն սյունակը, որի հիման վրա միաձուլելու եք այլ սյունակները, ապա կտտացրեք Հիմնական Բանալին և կտտացրեք մեկ այլ սյունակի վրա և կտտացրեք Հաշվել Ապա ընտրեք Գումար.

ԱկնարկԵթե ​​ձեր ընտրած տիրույթն ունի վերնագրեր, ստուգեք Իմ տվյալներն ունեն վերնագրերեւ ստուգեք Օգտագործեք ձևաչափված արժեքներ միաձուլումից հետո կպահպանի ձևաչափումը:

doc սյունակները մի սյունակի հիման վրա 6

3. Այնուհետեւ կտտացրեք Ok, Այժմ տվյալները միավորվել են ՝ հիմնվելով առաջնային սյունակի վրա, և մեկ այլն ամփոփվում է: Տեսեք,

doc սյունակները մի սյունակի հիման վրա 7


նետ կապույտ աջ պղպջակ Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա կատարեք այլ գործողություններ այլ սյունակների վրա `Ընդլայնված կոմբինատ շարքերով:

Ընդլայնված կոմբինատ տողեր հզոր է, քանի որ այն ոչ միայն կարող է միավորել կրկնօրինակ տողերը մեկ սյունակում, ապա գումարել մեկ այլ սյունակ, այլ նաև կարող է միավորել կրկնօրինակ տողերը մեկ սյունակում, ապա կատարել տարբեր գործողություններ այլ սյունակների վրա:

Ենթադրենք, ես ունեմ տվյալների մի շարք, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, և ես ուզում եմ և՛ միավորել սյունակում B սյունակում, և՛ C սյունակում գումարել արժեքները ՝ հիմնվելով A սյունակի վրա:
doc սյունակները մի սյունակի հիման վրա 8

Այն բանից հետո անվճար տեղադրում Excel- ի համար նախատեսված գործիքներ, խնդրում ենք վարվել ինչպես ստորև ՝

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

doc առաջադեմ կոմբինատ 1

2. Մեջ Միավորել շարքերը ՝ հիմնվելով սյունակի վրա երկխոսություն, արա՛ այսպիսիներով.

(1) Կտտացրեք այն սյունակին, որի վրա ցանկանում եք միավորել, և կտտացրեք Առաջնային բանալին;

doc սյունակները մի սյունակի հիման վրա 10

(2) Կտտացրեք այն սյունակին, որը ցանկանում եք միավորել տվյալները և կտտացնել Միավորել, ապա ցուցակից ընտրեք Ձեզ անհրաժեշտ մեկ տարանջատիչ.

doc սյունակները մի սյունակի հիման վրա 11

(3) Կտտացրեք այն սյունակին, որը ցանկանում եք ամփոփել արժեքները և կտտացնել Հաշվելեւ ընտրեք Գումար.

doc սյունակները մի սյունակի հիման վրա 12

3: սեղմեք Ok, Այժմ արդյունքը կարող եք տեսնել ստորև.

doc սյունակները մի սյունակի հիման վրա 13

հետ Ընդլայնված կոմբինատ տողեր առանձնահատկությունը, դուք նաև կարող եք միավորել տողերը մեկ սյունակի հիման վրա, ապա հաշվել, միջինացնել, 1-ին կամ վերջին տվյալները պահել այլ սյունակներում: 

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

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup    Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar    Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները    Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն


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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I have the same/similar question. I am trying to sum all of the columns to the right of the reference cell but it only sums the one. How do I get it to sum all those to the right individually?
This comment was minimized by the moderator on the site
Hey, your module used to work for big tables as well (eg. you want to sum up according to Year but you have Sales 1, Sales 2, Sales 3....etc). But now it only gets the first column right (Sales 1) and all others are not summed correctly. Did you change anything?
Thanks!
This comment was minimized by the moderator on the site
Hi, IK, maybe you can use the sumproduct function SUMPRODUCT((A2:A10=”Pen”)*(B2:E10)) to calculate them one by one. A2:A10 is the range contain the lookup value, pen is the criterion, B2:E10 is range that you want to sum based on criterion.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations