Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

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

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

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

Office Tab- ը միացրեք Tabbed խմբագրումը և զննարկումը Office- ում, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք ...
Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով
  • Վերաօգտագործել ցանկացած բան. Ավելացրեք առավել օգտագործված կամ բարդ բանաձևերը, գծապատկերները և ցանկացած այլ բան ձեր նախընտրածներին և հետագայում արագորեն օգտագործեք դրանք:
  • Ավելի քան 20 տեքստի առանձնահատկություններ. Հանեք համարը տեքստային տողից; Հանել կամ հեռացնել տեքստերի մի մասը; Թվերն ու արժույթները վերածեք անգլերեն բառերի:
  • Միաձուլել գործիքներըԲազմաթիվ աշխատանքային գրքեր և թերթեր մեկում; Միավորել բազմաթիվ բջիջներ / տողեր / սյուններ ՝ առանց տվյալների կորստի: Միաձուլեք կրկնօրինակ տողերն ու գումարը:
  • Պառակտման գործիքներՏվյալները պառակտել բազմակի թերթերի ՝ հիմնված արժեքի վրա. Մեկ աշխատանքային գրքույկ ՝ բազմակի Excel, PDF կամ CSV ֆայլեր; Մեկ սյունակ մի քանի սյունակներից:
  • Կպցնել բաց թողնելը Թաքնված / Filտված շարքեր; Հաշվելը և գումարը ըստ Ֆոնի գույնի; Personalանգվածային տարբերակով ստացողներին ուղարկեք անհատականացված էլ.
  • Սուպեր ֆիլտր Ստեղծեք զտման առաջադեմ սխեմաներ և կիրառեք ցանկացած թերթի վրա; Տեսակ ըստ շաբաթվա, օրվա, հաճախականության և ավելին; ֆիլտր համարձակ, բանաձևերով, մեկնաբանությամբ ...
  • Ավելի քան 300 հզոր հատկություններ; Աշխատում է Office 2007-2021 և 365-ի հետ; Աջակցում է բոլոր լեզուներին; Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում:

Ենթադրելով, որ դուք ունեք սեղան, ինչպես ցույց է տրված էկրանի նկարը: Եվ այս մեթոդը կներկայացնի 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 հարմար գործիքներ Excel-ի համար, 30 օրվա ընթացքում անվճար փորձելու առանց սահմանափակման: Ներբեռնեք և անվճար փորձեք հիմա!

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

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

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

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (1)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
VBA օրինակում ամսաթվի սյունակը չի զտվում: Խնդրում եմ, խորհուրդ տուր.
Առայժմ ոչ մի մեկնաբանություն չկա

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից