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

Ենթադրելով, որ դուք ունեք սեղան, ինչպես ցույց է տրված էկրանի նկարը: Եվ այս մեթոդը կներկայացնի VBA մակրո ՝ որոշակի սյունակի վրա հիմնված կրկնօրինակ շարքերը հեռացնելու և բարձրագույն արժեքները միայն Excel- ի մեկ այլ սյունակում պահելու համար: Խնդրում ենք անել հետևյալը.

1. Սեղմեք ալտ + F11 միաժամանակ ստեղներ ՝ Microsoft Visual Basic հավելվածների համար պատուհանը բացելու համար:

2: սեղմեք Տեղադրել > Մոդուլներև տեղադրեք հետևյալ կոդը նոր բացվող Մոդուլի պատուհանում:

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 Ընդլայնված կոմբինատ տողեր օգտակարությունը կօգնի ձեզ հեշտությամբ լուծել այս խնդիրը հեշտությամբ:

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

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

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

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

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

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

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