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


Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա գումարները գումարեք VBA- ի հետ
Կա VBA կոդ, որը կարող է օգնել ձեզ միավորել կրկնօրինակ տողերը, ապա գումարել մեկ այլ սյունակի արժեքներ:
Ներդիրով զննում և խմբագրում բազմաթիվ Excel աշխատանքային գրքեր / Word փաստաթղթեր ՝ Firefox, Chrome, Internet Explore 10: |
Դուք կարող եք ծանոթ լինել Firefox/Chrome/IE-ում բազմաթիվ վեբէջեր դիտելուն և դրանց միջև հեշտությամբ սեղմելով համապատասխան ներդիրները: Այստեղ, Office Tab աջակցում է նմանատիպ մշակմանը, որը թույլ է տալիս թերթել Excel-ի մի քանի աշխատանքային գրքեր կամ Word փաստաթղթեր մեկ Excel պատուհանում կամ Word պատուհանում և հեշտությամբ անցնել դրանց միջև՝ սեղմելով դրանց ներդիրները: Սեղմեք անվճար 30-օրյա դատավարություն Office 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 կոդին, կարող եք օգտագործել այն Ընդլայնված կոմբինատ տողեր երրորդ մասի հավելյալ գործիքի առանձնահատկություն - Kutools for Excel հեշտությամբ և արագորեն միավորել կրկնօրինակների շարքերը, ապա արժեքներն ամփոփել մեկ այլ սյունակում:
Այն բանից հետո անվճար տեղադրում Kutools for ExcelԽնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք այն տվյալները, որոնք ցանկանում եք օգտագործել և կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, Տեսեք,
2. Դրանից հետո բացվող երկխոսության մեջ ընտրեք այն սյունակը, որի հիման վրա միաձուլելու եք այլ սյունակները, ապա կտտացրեք Հիմնական Բանալին և կտտացրեք մեկ այլ սյունակի վրա և կտտացրեք Հաշվել Ապա ընտրեք Գումար.
ԱկնարկԵթե ձեր ընտրած տիրույթն ունի վերնագրեր, ստուգեք Իմ տվյալներն ունեն վերնագրերեւ ստուգեք Օգտագործեք ձևաչափված արժեքներ միաձուլումից հետո կպահպանի ձևաչափումը:
3. Այնուհետեւ կտտացրեք Ok, Այժմ տվյալները միավորվել են ՝ հիմնվելով առաջնային սյունակի վրա, և մեկ այլն ամփոփվում է: Տեսեք,
Միաձուլեք տողերը մեկ սյունակի հիման վրա, ապա կատարեք այլ գործողություններ այլ սյունակների վրա `Ընդլայնված կոմբինատ շարքերով:
Ընդլայնված կոմբինատ տողեր հզոր է, քանի որ այն ոչ միայն կարող է միավորել կրկնօրինակ տողերը մեկ սյունակում, ապա գումարել մեկ այլ սյունակ, այլ նաև կարող է միավորել կրկնօրինակ տողերը մեկ սյունակում, ապա կատարել տարբեր գործողություններ այլ սյունակների վրա:
Ենթադրենք, ես ունեմ տվյալների մի շարք, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը, և ես ուզում եմ և՛ միավորել սյունակում B սյունակում, և՛ C սյունակում գումարել արժեքները ՝ հիմնվելով A սյունակի վրա:
Այն բանից հետո անվճար տեղադրում Kutools for ExcelԽնդրում ենք վարվել ինչպես ստորև ՝
1. Ընտրեք տվյալների տիրույթը և կտտացրեք Կուտոլս > Միաձուլում և պառակտում > Ընդլայնված կոմբինատ տողեր, Տեսեք,
2. Մեջ Միավորել շարքերը ՝ հիմնվելով սյունակի վրա երկխոսություն, արա՛ այսպիսիներով.
(1) Կտտացրեք այն սյունակին, որի վրա ցանկանում եք միավորել, և կտտացրեք Առաջնային բանալին;
(2) Կտտացրեք այն սյունակին, որը ցանկանում եք միավորել տվյալները և կտտացնել Միավորել, ապա ցուցակից ընտրեք Ձեզ անհրաժեշտ մեկ տարանջատիչ.
(3) Կտտացրեք այն սյունակին, որը ցանկանում եք ամփոփել արժեքները և կտտացնել Հաշվելեւ ընտրեք Գումար.
3: սեղմեք Ok, Այժմ արդյունքը կարող եք տեսնել ստորև.
հետ Ընդլայնված կոմբինատ տողեր առանձնահատկությունը, դուք նաև կարող եք միավորել տողերը մեկ սյունակի հիման վրա, ապա հաշվել, միջինացնել, 1-ին կամ վերջին տվյալները պահել այլ սյունակներում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel հմտությունները Kutools for Excel, և փորձիր արդյունավետություն, ինչպես երբեք: Kutools for Excel Առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab Ներդիրներով ինտերֆեյսը Office է բերում և ձեր աշխատանքը շատ ավելի հեշտացնում
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
