Denne metoden vil innføre en VBA-makro for å fjerne dupliserte rader basert på en bestemt kolonne og holde høyeste verdiene bare i en annen kolonne i Excel. Gjør følgende:
1. Trykk Alt + F11 tastene samtidig for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > Modul, og lim inn følgende kode inn nye åpningen modulen vindu
VBA. Fjerne dupliserte rader og holde høyeste verdiene
Public Sub DelDupes () Dim xFilterRg Som RangeDim xCriteriaRg Som RangeDim xAddress Som StringDim xSUpdate Som BooleanOn Error CV NextxAddress = Application.ActiveWindow.RangeSelection.AddressSet xFilterRg = Application.InputBox ("Velg et område:", "Kutools for Excel", xAddress,,,,, 8) Hvis xFilterRg Er Ingenting Deretter Avslutt undergruppe xFilterRg = Application.Intersect (ActiveSheet.UsedRange, xFilterRg) Hvis xFilterRg Er Nothing Then Exit SubOn Error GoTo 0xSUpdate = Application.ScreenUpdatingApplication.ScreenUpdating = FalseSet xCriteriaRg = ActiveSheet.Cells (1, xFilterRg.Column + xFilterRg.Columns.Count) .Resize (2) xCriteriaRg. Resize (1) .Offset (1) .Formula = "= ANTALL.HVIS (" & xFilterRg (2, 1) .Address & ":" & _xFilterRg (2, 1) .Address (usann, usann) & " "& _xFilterRg (2, 1) .Address (usann, usann) &") > 1 "Med xFilterRg.Sort NØKKEL1: = xFilterRg.Cells (1, 1) .Offset (0, 1), bestilling1: = xlDescending, Header: = xlYes.AdvancedFilter Handling: = xlFilterInPlace, CriteriaRange:=xCriteriaRg.Offset(1).SpecialCells(xlCellTypeVisible).EntireRow.Delete.Parent.ShowAllDataEnd WithxCriteriaRg.ClearApplication.ScreenUpdating = xSUpdateEnd Sub
3. Trykk F5 eller klikk på knappen Kjør for å kjøre denne VBA.
4. Nå en dialogboks kommer ut. Vennligst velg kolonnene du vil fjerne duplikater rader av og forbeholder høyeste verdiene i, og klikk på OK-knappen.
I vårt tilfelle, vil vi fjerne dupliserte rader ved Frukt søyle og holde høyeste verdiene i kolonnen Beløp, derfor jeg velger Frukt kolonnen og kolonnen Beløp som ovenfor skjermbilde vist.
Da vil du se like rader fjernes basert på frukt kolonnen, og høyeste verdiene av tilsvarende frukter oppbevares i kolonnen Beløp . Se skjermbilde:
Notater.
(1) Den angitte området må begynne med kolonnen du vil fjerne dupliserte rader ved
(2) Dette VBA kan bare holde de høyeste verdiene i kolonnen rett bak kolonnen du fjernet duplikater rader av.
(3) Dette VBA fungerer ikke i Microsoft Excel 2007.
Fjerne dupliserte rader og holde høyeste verdiene bare med Kutools for Excel
Listen VBA kan være ikke lett nok for enkelte brukere, og det kan bare holde høyeste verdiene i kolonne bak kriterier kolonne. Men Kutools for Excel Advanced Kombiner Rows verktøyet vil hjelpe deg enkelt løse dette problemet enkelt
Kutools for Excel -. Kombinerer Mer enn 120 avanserte funksjoner og verktøy for Microsoft Excel
Gå til DownloadFree Trial 60 daysPurchasePayPal /MyCommerce
1 . Velg tabellen du vil fjerne dupliserte rader og holde høyeste verdiene (velg A1: C24 i vårt tilfelle), og klikk Kutools > Innhold > Avansert Kombiner rader.
2. I åpnings Kombiner Rader Basert på Column dialogboksen, kan du konfigurere slik:
(1) Valg Frukt kolonne (som du vil fjerne duplikater rader), og klikk deretter på Primary Key knappen;
< p> (2) Velg kolonnen Beløp (som du vil holde høyeste verdiene i), og klikk deretter Beregn > Maks.
(3) Spesifiser kombinasjons regler for andre kolonner som du trenger.
3. Klikk på OK-knappen. Og da vil du se alle dupliserte rader fjernes basert på frukt Column og bare maks verdier av tilsvarende frukt er holdt i kolonnen Beløp. Se skjermbilde:
Avansert Kombiner Rows nytten av Kutools for Excel kan enkelt kombinere rader med én kolonne, og deretter beregne andre kolonner basert på denne søyler samt, for eksempel Sum, Antall, Max, Min, Product, etc. Klikk for 60-dagers gratis prøveversjon, ingen begrensning! Anmeldelser