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

Ինչպե՞ս հեռացնել կրկնօրինակ շարքերը և պահպանել բարձրագույն արժեքները միայն Excel- ում:

Օրինակ, Excel- ում դուք ունեք գնման աղյուսակ, ինչպես ցույց է տրված առաջին սքրինշոթը: Այժմ դուք պետք է հեռացնեք Կրկնօրինակ տողերը, հիմնվելով Մրգերի սյունակի վրա, և համապատասխան պտուղների ամենաբարձր արժեքները պահել Գումարի սյունակում, ինչպես ցույց է տրված երկրորդ սքրինշոթը: Anyանկացած լուծում կարող եք մտածել: Այս հոդվածը կիսելու է այն լուծելու երկու հնարք:

Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները միայն VBA- ի միջոցով

Հեռացրեք կրկնօրինակ շարքերը և պահեք ամենաբարձր արժեքները միայն Excel- ի համար նախատեսված Kutools- ի միջոցով

Հեշտությամբ հեռացրեք կրկնօրինակ շարքերը ՝ հիմնվելով մեկ սյունակի չափանիշների վրա և պահպանեք միայն Excel- ի ամենաբարձր արժեքները

Excel- ի համար նախատեսված գործիքներ Ընդլայնված կոմբինատ տողեր օգտակար ծրագիրը կարող է օգնել Excel- ի օգտվողներին արագորեն պարզել մեկ այլ սյունակում յուրաքանչյուր ապրանքի նվազագույն արժեքի առավելագույն արժեքը հեշտությամբ:

գովազդի առաջադեմ միավորել տողերի առավելագույնը

Այս Advanced Combine Rows կոմունալը կարող է նաև միավորել տողերն ու առանձին արժեքները նշված նշանների միջոցով, կամ միավորել տողերը և հաշվարկել դրանց գումարները, դեպքերի քանակը, առավելագույն / նվազագույն արժեքները, միջինները և այլն:


Ենթադրելով, որ դուք ունեք սեղան, ինչպես ցույց է տրված էկրանի նկարը: Եվ այս մեթոդը կներկայացնի 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-ում:


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

Excel- ի համար նախատեսված գործիքներ - Փաթեթավորված ավելի քան 300 հիմնական գործիքներով Excel-ի համար: Վայելեք լիարժեք հնարավորություններով 30-օրյա ԱՆՎՃԱՐ փորձարկում՝ առանց կրեդիտ քարտի պահանջի: Ներբեռնել հիմա!

1. Ընտրեք աղյուսակը, որը դուք կհեռացնեք կրկնօրինակ տողերից և կպահեք ամենաբարձր արժեքները (մեր դեպքում ընտրեք A1: C24) և կտտացրեք Կուտոլս > Պարունակություն > Ընդլայնված կոմբինատ տողեր.

2. Սյունակի երկխոսության վրա հիմնված Միավորել շարքերը բացելու մեջ կազմաձևեք հետևյալը.

(1) Ընտրեք Մրգերի սյունը (որով դուք կհեռացնեք կրկնօրինակների շարքերը) և կտտացրեք այն Առաջնային բանալին կոճակ;

(2) Ընտրեք Գումարի սյունը (որի մեջ կպահեք ամենաբարձր արժեքները) և կտտացրեք Հաշվել > Max.

(3) Նշեք այլ սյունակների համակցման կանոններ, որքան ձեզ հարկավոր է:

doc հեռացնել կրկնօրինակները պահում են ամենաբարձր արժեքը 2

3. Սեղմեք Ok կոճակ Եվ ապա կտեսնեք, որ բոլոր կրկնօրինակ տողերը հանվում են ՝ հիմնվելով Մրգերի սյունակի վրա, և Գումար սյունակում պահվում են համապատասխան մրգերի միայն առավելագույն արժեքները: Տեսեք,

The Ընդլայնված կոմբինատ տողեր Excel- ի համար Kutools- ի օգտակարությունը կարող է հեշտությամբ միավորել տողերը մեկ սյունակի միջոցով, ապա հաշվարկել այս սյունակների հիման վրա նաև այլ սյունակներ, ինչպիսիք են Sum, Count, Max, Min, Product և այլն: Կտտացրեք 60-օրյա անվճար փորձաշրջանի, առանց սահմանափակումների:


Excel- ի համար նախատեսված գործիքներ300-ից ավելի հարմար գործիքներ ձեր մատների տակ: Այսօր սկսեք ձեր 30-օրյա անվճար փորձաշրջանը՝ առանց գործառույթների սահմանափակումների: Download Now!

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

🤖 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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
in VBA example, the date column doesn't filter. please advise.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations