Ինչպե՞ս Excel- ում կրկնօրինակների հիման վրա բազմաթիվ տողեր միավորել մեկի մեջ:

Միգուցե, ունեք սքրինշոթի հետևյալ տվյալները. Ապրանքի անվան սյունակում կան մի քանի կրկնօրինակ տարրեր, և այժմ դուք պետք է հեռացնեք A սյունակի կրկնօրինակ գրառումները, բայց համատեղեք համապատասխան արժեքները B սյունակում, տեսեք սքրինշոթերը.

Այս խնդիրը լուծելու մի քանի արդյունավետ եղանակներ ունեք:

Միավորել բազմաթիվ կրկնօրինակ տողերը մեկի մեջ VBA կոդի հետ

Միացրեք բազմաթիվ կրկնօրինակ տողեր Excel- ի մեկ Kutools- ի մեջ

Միավորել բազմաթիվ կրկնօրինակ շարքեր և գումարել / միջինացնել արժեքները Excel- ի համար Kutools- ի հետ

Միավորել բազմաթիվ կրկնօրինակ տողերը մեկի մեջ VBA կոդի հետ

Amazարմանալի! Օգտագործելով արդյունավետ ներդիրներ Excel- ում, ինչպիսիք են Chrome- ը, Firefox- ը և Safari- ն:

Խնայեք ձեր ժամանակի 50% -ը և ամեն օր կրճատեք մկնիկի հազարավոր կտտոցներ ձեզ համար:

Հաջորդ VBA կոդը կարող է օգնել ձեզ միավորել կրկնօրինակ տողերը ՝ հիմնվելով A սյունակի արժեքի վրա, և հետևյալ կոդը կիրառվում է միայն երկու սյունակի համար: Այսպիսով, եթե դուք ունեք երկու սյունակի տվյալներ, այս ծածկագիրը ձեզ լավություն կանի:

1, Պահեք պահեք ALT + F11 ստեղները, և այն բացում է Microsoft Visual Basic հավելվածների համար պատուհան.

2: Սեղմեք Տեղադրել > Մոդուլներ, և տեղադրեք հետևյալ կոդը Մոդուլի պատուհան.

VBA կոդ. Միավորել բազմաթիվ տողեր մեկի մեջ

Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    xvalue = arr(i, 1)
    If Dic.Exists(xvalue) Then
        Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
    Else
        Dic(arr(i, 1)) = arr(i, 2)
    End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3, Դրանից հետո սեղմեք F5 ստեղնը, և հուշում է արագ տուփը ՝ հիշեցնելու համար, որ պետք է ընտրել այն տիրույթը, որն անհրաժեշտ է համատեղել: Տեսեք,

4. Եվ այնուհետեւ կտտացրեք OK, B սյունակի արժեքները միավորվել են մեկ գրառման մեջ և բաժանվել բացատներով:

Նշումներ:

1. Այս կոդը կարող է ոչնչացնել բնօրինակ տվյալները, երբ դրանք օգտագործում եք, ավելի լավ է նախ պահուստավորեք տվյալները:

2. Այս կոդը կիրառվում է միայն երկու սյունակի համար, եթե ունեք ավելի քան երկու սյունակ, այս ծածկագիրը կմիավորի միայն առաջին երկու սյունակները և կհեռացնի այլ սյունակների տվյալները: Այս ծածկագիրն օգտագործելիս պետք է զգույշ լինել:

Միացրեք բազմաթիվ կրկնօրինակ տողեր Excel- ի մեկ Kutools- ի մեջ

Հիմա, երբ վերոնշյալ ծածկագիրը որոշակի սահմանափակումներ և ռիսկեր ունի, կա՞ այս գործը ավարտելու հարմար և անվտանգ միջոց: Հետ Excel- ի համար նախատեսված գործիքներ'S Ընդլայնված կոմբինատ տողեր օգտակար, դուք կարող եք արագորեն հեռացնել բազմաթիվ կրկնօրինակ տողեր ձեր կողմից հիմնված սյունակներում և միաձուլվել կամ կատարել որոշ հաշվարկներ այլ գրառումների համար համապատասխան բջիջներում:

Excel- ի համար նախատեսված գործիքներ ներառում է ավելի քան 300 հարմար Excel գործիքներ: Փորձեք առանց սահմանափակումների 30 օրվա ընթացքում: Get it Now.

Excel- ի համար Kutools- ը տեղադրելուց հետո կատարեք հետևյալը.

1, Ընտրեք ընդգրկույթի տվյալները, որոնք ցանկանում եք համատեղել կրկնօրինակները:

2. Այնուհետեւ կտտացրեք Կուտոլս > Բովանդակության փոխարկիչ > Ընդլայնված կոմբինատ տողեր, Տեսեք,

3, Մեջ Ընդլայնված կոմբինատ տողեր երկխոսության տուփ, ընտրեք սյունակի անունը որպես հիմնական սյունակներ, որոնց հիման վրա ցանկանում եք միավորել արժեքները, ապա կտտացնել Հիմնական սյուններ, Տեսեք,

4, Դրանից հետո կտտացրեք այն սյունակին, որը անհրաժեշտ է միավորել դրանց արժեքները մեկ գրառման մեջ և այնուհետև կտտացնել Միավորել գործողությունները եւ ընտրեք Միավորել միայն տարանջատիչով, և ընտրեք մեկ տարանջատիչ, որն անհրաժեշտ է ճիշտ ցուցակից առանձնացնելու համակցված արժեքները: Տեսեք,

5, Պարամետրերն ավարտելուց հետո կտտացրեք OK, և ձեր տվյալները միաձուլվելու են հիմնական սյունակների հիման վրա և բաժանվելու են բաժանարարներով:

Նշում: Եթե ​​Ձեզ անհրաժեշտ չէ մնացած սյունակների գործողությունները սահմանել, պարզապես պահեք լռելյայն վիճակը:

Միավորել բազմաթիվ կրկնօրինակ շարքեր և գումարել / միջինացնել արժեքները Excel- ի համար Kutools- ի հետ

Այս բազմաֆունկցիոնալով Ընդլայնված կոմբինատ տողեր օգտակար, դուք կարող եք համատեղել կրկնօրինակ տողեր և որոշ հաշվարկներ կատարել նաև արժեքների համար:

1, Ընտրեք ընդգրկույթի տվյալները, որոնք ցանկանում եք համատեղել կրկնօրինակները:

2. Գնալ դեպի Ընդլայնված կոմբինատ տողեր երկխոսության տուփ;

• (1.) Ընտրեք սյունակի անունը որպես հիմնական սյունակ, որի հիման վրա ցանկանում եք հաշվարկել սյունակի այլ արժեքներ, ապա կտտացրեք Հիմնական սյուններ;
• (2.) Ընտրեք այն սյունակը, որն անհրաժեշտ է արժեքների որոշ հաշվարկներ կատարելու համար, և այնուհետև կտտացրեք Միավորել գործողությունները > Միավորել հաշվարկել, ապա ընտրեք ձեզ անհրաժեշտ հաշվարկման մեկ տեսակ, այս դեպքում ես ընտրում եմ Գումար, Տեսեք,

3, Եթե ​​Ձեզ անհրաժեշտ չէ մնացած սյունակների գործողությունները սահմանել, պարզապես պահեք լռելյայն վիճակը, ապա կտտացրեք OK, և A սյունակի կրկնօրինակ արժեքները միաձուլվելու են և B սյունակում դրանց համապատասխան արժեքները գումարվելու են: Տեսեք սքրինշոթերը.

Նշումներ:

1. Եթե ստուգում եք Իմ տվյալներն ունեն վերնագրեր տարբերակը, այս օգտակար ծրագիրը կիրառելիս անտեսվում են տիրույթի ձեր վերնագրերը (առաջին շարքը):

2. Օգտագործեք ձևաչափված արժեքներայն կպահպանի արժեքների ձևաչափումը կրկնօրինակ բջիջները համատեղելուց հետո:

3. Այս օգտակար ծրագիրը հասանելի չէ տվյալների զտման համար:

Կտտացրեք ՝ այս Advanced Combine Rows գործառույթի մասին ավելին իմանալու համար:

Առնչվող հոդված:

Միավորել կրկնօրինակ տողերը և գումարել արժեքները

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

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ... 

---

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

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

Կարդալ ավելին... Անվճար ներբեռնում... Գնեք ...