Ինչպե՞ս հեռացնել կրկնօրինակ շարքերը և պահպանել բարձրագույն արժեքները միայն Excel- ում:
Օրինակ, Excel- ում դուք ունեք գնման աղյուսակ, ինչպես ցույց է տրված առաջին սքրինշոթը: Այժմ դուք պետք է հեռացնեք Կրկնօրինակ տողերը, հիմնվելով Մրգերի սյունակի վրա, և համապատասխան պտուղների ամենաբարձր արժեքները պահել Գումարի սյունակում, ինչպես ցույց է տրված երկրորդ սքրինշոթը: Anyանկացած լուծում կարող եք մտածել: Այս հոդվածը կիսելու է այն լուծելու երկու հնարք:
Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները միայն VBA- ի միջոցով
Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները միայն Excel- ի համար նախատեսված Kutools- ի միջոցով
Հեշտությամբ հեռացրեք կրկնօրինակ շարքերը ՝ հիմնվելով մեկ սյունակի չափանիշների վրա և պահպանեք միայն Excel- ի ամենաբարձր արժեքները
Excel- ի համար նախատեսված գործիքներ Ընդլայնված կոմբինատ տողեր օգտակար ծրագիրը կարող է օգնել Excel- ի օգտվողներին արագորեն պարզել մեկ այլ սյունակում յուրաքանչյուր ապրանքի նվազագույն արժեքի առավելագույն արժեքը հեշտությամբ:
Այս Advanced Combine Rows կոմունալը կարող է նաև միավորել տողերն ու առանձին արժեքները նշված նշանների միջոցով, կամ միավորել տողերը և հաշվարկել դրանց գումարները, դեպքերի քանակը, առավելագույն / նվազագույն արժեքները, միջինները և այլն:
Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները միայն VBA- ի միջոցով
Ենթադրելով, որ դուք ունեք սեղան, ինչպես ցույց է տրված էկրանի նկարը: Եվ այս մեթոդը կներկայացնի VBA մակրո ՝ որոշակի սյունակի վրա հիմնված կրկնօրինակ շարքերը հեռացնելու և բարձրագույն արժեքները միայն Excel- ի մեկ այլ սյունակում պահելու համար: Խնդրում ենք անել հետևյալը.
1. Սեղմեք ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:
2: սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը նոր բացվող Մոդուլի պատուհանում:
VBA. Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները
Public Sub DelDupes()
Dim xFilterRg As Range
Dim xCriteriaRg As Range
Dim xAddress As String
Dim xSUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xFilterRg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If xFilterRg Is Nothing Then Exit Sub
Set xFilterRg = Application.Intersect(ActiveSheet.UsedRange, xFilterRg)
If xFilterRg Is Nothing Then Exit Sub
On Error GoTo 0
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
Set xCriteriaRg = ActiveSheet.Cells(1, xFilterRg.Column + xFilterRg.Columns.Count).Resize(2)
xCriteriaRg.Resize(1).Offset(1).Formula = "=COUNTIF(" & xFilterRg(2, 1).Address & ":" & _
xFilterRg(2, 1).Address(False, False) & "," & _
xFilterRg(2, 1).Address(False, False) & ")>1"
With xFilterRg
.Sort key1:=xFilterRg.Cells(1, 1).Offset(0, 1), order1:=xlDescending, Header:=xlYes
.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=xCriteriaRg
.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
.Parent.ShowAllData
End With
xCriteriaRg.Clear
Application.ScreenUpdating = xSUpdate
End Sub
3. Սեղմեք F5 ստեղնը կամ սեղմել Վազում այս VBA- ն գործարկելու կոճակը:
4. Այժմ դուրս է գալիս երկխոսության տուփ: Խնդրում ենք ընտրել այն սյունակները, որոնցով կհեռացնեք կրկնօրինակների շարքերը և դրանցում կպահպանեք ամենաբարձր արժեքները, և կտտացրեք այն OK կոճակը:
Մեր դեպքում, մենք կջնջենք կրկնօրինակ տողերը ըստ Մրգային սյունակի և կպահպանենք ամենաբարձր արժեքները Գումարի սյունակում, հետևաբար ես ընտրում եմ Մրգերի սյունը և Գումարի սյունը, ինչպես ցույց է տրված նկարում:
Դրանից հետո կտեսնեք, որ կրկնօրինակ շարքերը հանվում են Մրգերի սյունակի հիման վրա, և համապատասխան մրգերի ամենաբարձր արժեքները պահվում են Գումարի սյունակում: Տեսեք,
Notes:
(1) Նշված տիրույթը պետք է սկսվի այն սյունակից, որով դուք կհեռացնեք կրկնօրինակ շարքերը:
(2) Այս VBA- ն կարող է պահպանել միայն ամենաբարձր արժեքները սյունակում հենց այն սյունակի ետևում, որի միջոցով դուք հեռացրել եք կրկնօրինակ շարքերը:
(3) Այս VBA- ն չի աշխատում Microsoft Excel 2007-ում:
Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները միայն Excel- ի համար նախատեսված Kutools- ի միջոցով
Վերոհիշյալ VBA- ն որոշ օգտվողների համար կարող է բավականաչափ դյուրին լինել, և այն կարող է միայն պահպանել չափանիշների սյունակի ետևում գտնվող սյունակի բարձրագույն արժեքները: Բայց Excel- ի համար նախատեսված Kutools Ընդլայնված կոմբինատ տողեր օգտակարությունը կօգնի ձեզ հեշտությամբ լուծել այս խնդիրը հեշտությամբ:
Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!
1. Ընտրեք աղյուսակը, որը դուք կհեռացնեք կրկնօրինակ տողերից և կպահեք ամենաբարձր արժեքները (մեր դեպքում ընտրեք A1: C24) և կտտացրեք Կուտոլս > Պարունակություն > Ընդլայնված կոմբինատ տողեր.
2. Սյունակի երկխոսության վրա հիմնված Միավորել շարքերը բացելու մեջ կազմաձևեք հետևյալը.
(1) Ընտրեք Մրգերի սյունը (որով դուք կհեռացնեք կրկնօրինակների շարքերը) և կտտացրեք այն Առաջնային բանալին կոճակ;
(2) Ընտրեք Գումարի սյունը (որի մեջ կպահեք ամենաբարձր արժեքները) և կտտացրեք Հաշվել > Max.
(3) Նշեք այլ սյունակների համակցման կանոններ, որքան ձեզ հարկավոր է:
3. Սեղմեք Ok կոճակ Եվ ապա կտեսնեք, որ բոլոր կրկնօրինակ տողերը հանվում են ՝ հիմնվելով Մրգերի սյունակի վրա, և Գումար սյունակում պահվում են համապատասխան մրգերի միայն առավելագույն արժեքները: Տեսեք,
The Ընդլայնված կոմբինատ տողեր Excel- ի համար Kutools- ի օգտակարությունը կարող է հեշտությամբ միավորել տողերը մեկ սյունակի միջոցով, ապա հաշվարկել այս սյունակների հիման վրա նաև այլ սյունակներ, ինչպիսիք են Sum, Count, Max, Min, Product և այլն: Կտտացրեք 60-օրյա անվճար փորձաշրջանի, առանց սահմանափակումների:
Դեմո. Հեռացնել կրկնօրինակ շարքերը և պահպանել բարձրագույն արժեքները միայն Excel- ում
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: