Ինչպե՞ս Excel- ում կրկնօրինակների հիման վրա բազմաթիվ տողեր միավորել մեկի մեջ:
Միգուցե, ունեք սքրինշոթի հետևյալ տվյալները. Ապրանքի անվան սյունակում կան մի քանի կրկնօրինակ տարրեր, և այժմ դուք պետք է հեռացնեք A սյունակի կրկնօրինակ գրառումները, բայց համատեղեք համապատասխան արժեքները B սյունակում, տեսեք սքրինշոթերը.
 |
 |
 |
Այս խնդիրը լուծելու մի քանի արդյունավետ եղանակներ ունեք:
Միավորել բազմաթիվ կրկնօրինակ տողերը մեկի մեջ VBA կոդի հետ
Միացրեք բազմաթիվ կրկնօրինակ տողեր Excel- ի մեկ Kutools- ի մեջ
Միավորել բազմաթիվ կրկնօրինակ շարքեր և գումարել / միջինացնել արժեքները Excel- ի համար Kutools- ի հետ
Միավորել բազմաթիվ կրկնօրինակ տողերը մեկի մեջ VBA կոդի հետ
Հաջորդ 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-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
