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

Hogyan lehet eltávolítani az ismétlődő sorokat, és a legnagyobb értékeket csak az Excelben lehet megtartani?

Például van egy vásárlási táblázat az Excelben, mint az első képernyőkép. Most el kell távolítania az ismétlődő sorokat a Gyümölcs oszlop alapján, és a megfelelő gyümölcs legmagasabb értékét meg kell tartania az Összeg oszlopban, a második képernyőképként. Van valami megoldás? Ez a cikk két trükköt fog megosztani a megoldáshoz.

Távolítsa el az ismétlődő sorokat, és a legmagasabb értékeket csak VBA-val őrizze meg

Távolítsa el az ismétlődő sorokat, és a legmagasabb értékeket csak a Kutools for Excel alkalmazással őrizze meg

Könnyen eltávolíthatja az ismétlődő sorokat egy oszlop kritériumai alapján, és csak az Excel legmagasabb értékeit őrizheti meg

Kutools for Excel's Haladó kombinált sorok segédprogram segítségével az Excel felhasználók könnyedén megismerhetik az egyes elemek maximális minimumértékét egy másik oszlopban.

hirdetés speciális kombinált sorai max

Ez a Haladó sorok kombinálása segédprogram egyesítheti a sorokat és az értékeket külön jelöléssel, vagy egyesítheti a sorokat, és kiszámíthatja azok összegét, előfordulások számát, maximális / minimum értékeket, átlagokat stb.

Az Office fül lehetővé teszi a füles szerkesztést és böngészést az Office-ban, és sokkal könnyebbé teszi a munkáját ...
A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet
  • Bármely újrafelhasználása: Adja hozzá a leggyakrabban használt vagy összetett képleteket, diagramokat és bármi mást a kedvenceihez, és a későbbiekben gyorsan használja fel újra.
  • Több mint 20 szöveges szolgáltatás: Szám kivonása a szöveges karakterláncból; Bontsa ki vagy távolítsa el a szövegek egy részét; Számok és pénznemek konvertálása angol szavakká.
  • Eszközök egyesítése: Több munkafüzet és lap egybe; Egyesítsen több cellát / sort / oszlopot adatok elvesztése nélkül; Az ismétlődő sorok és összeg összevonása.
  • Felosztott eszközök: Az adatok felosztása több lapra az érték alapján; Egy munkafüzet több Excel, PDF vagy CSV fájlhoz; Egy oszlop több oszlopra.
  • Ugrás beillesztése Rejtett / szűrt sorok; Gróf és összeg háttérszínnel; Személyre szabott e-maileket küldhet több címzettnek tömegesen.
  • Szuper szűrő: Hozzon létre speciális szűrősémákat, és alkalmazza azokat bármilyen lapra; Fajta hét, nap, gyakoriság és egyebek szerint; Szűrő félkövérrel, képletekkel, megjegyzésekkel ...
  • Több mint 300 hatékony funkció; Működik az Office 2007-2021 és 365 verziókkal; Támogatja az összes nyelvet; Könnyű üzembe helyezés a vállalkozásban vagy szervezetben.

Tegyük fel, hogy van egy táblázata az alábbi képernyőképen. Ez a módszer egy VBA makrót vezet be, amely eltávolítja az ismétlődő sorokat egy adott oszlop alapján, és a legnagyobb értékeket csak az Excel egy másik oszlopában tartja. Kérjük, tegye a következőket:

1. megnyomni a más + F11 gombokat egyidejűleg a Microsoft Visual Basic for Applications ablak megnyitásához.

2. kettyenés betétlap > Modulok, és illessze be a következő kódot a Module új ablakba.

VBA: Távolítsa el az ismétlődő sorokat, és őrizze meg a legmagasabb értékeket

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. megnyomni a F5 vagy kattintson a gombra futás gombra a VBA futtatásához.

4. Most megjelenik egy párbeszédpanel. Válassza ki azokat az oszlopokat, amelyekkel eltávolítja a duplikált sorokat, és fenntartja a legmagasabb értékeket, majd kattintson a gombra OK gombot.

Esetünkben eltávolítjuk az ismétlődő sorokat Gyümölcs oszloponként, és megtartjuk a legmagasabb értékeket az Összeg oszlopban, ezért a Gyümölcs oszlopot és az Összeget oszlopot választom a fenti képernyőképen.

Ekkor látni fogja, hogy a Gyümölcs oszlop alapján eltávolítják az ismétlődő sorokat, és a megfelelő gyümölcs legmagasabb értékei az Összeg oszlopban maradnak. Lásd a képernyőképet:

Megjegyzések:

(1) A megadott tartománynak azzal az oszloppal kell kezdődnie, amellyel eltávolítja a duplikált sorokat.

(2) Ez a VBA csak a legmagasabb értékeket tudja megtartani abban az oszlopban, amely közvetlenül az oszlop mögött távolította el a sorokat.

(3) Ez a VBA nem működik a Microsoft Excel 2007 rendszerben.


Előfordulhat, hogy a fenti VBA nem elég egyszerű néhány felhasználó számára, és csak a kritérium oszlop mögött tudja megtartani a legmagasabb értékeket az oszlopban. De Kutools for Excel's Haladó kombinált sorok segédprogram segítségével könnyedén megoldhatja ezt a problémát.

Kutools az Excel számára - Több mint 300 praktikus Excel-eszközt tartalmaz. Teljes szolgáltatás ingyenes próbaverzió 30-nap, nem kell hitelkártya! Ingyenes próba most!

1. Válassza ki azt a táblázatot, amelyből eltávolítja az ismétlődő sorokat, és megtartja a legmagasabb értékeket (esetünkben válassza az A1: C24 értéket), majd kattintson Kutools > Tartalom > Haladó kombinált sorok.

2. A Megnyitó sorok összevonása oszlop alapján párbeszédpanelen kérjük, konfigurálja a következőket:

(1) Válassza a Gyümölcs oszlopot (amely alapján eltávolítja a sorok duplikátumát), majd kattintson a gombra Elsődleges kulcs gomb;

(2) Válassza ki az Összeg oszlopot (amelyben a legmagasabb értékeket fogja megtartani), majd kattintson Számít > max.

(3) Adjon meg kombinációs szabályokat más oszlopokhoz, amire szüksége van.

doc duplikátumok eltávolítása megtartja a 2. legnagyobb értéket

3. Kattintson a Ok gomb. És akkor látni fogja, hogy az összes ismétlődő sor eltávolításra kerül a Gyümölcs oszlop alapján, és az Összeg oszlopban csak a megfelelő gyümölcs maximális értékei maradnak. Lásd a képernyőképet:

A Haladó kombinált sorok A Kutools for Excel segédprogramja könnyedén egyesítheti a sorokat egy oszloponként, majd ezen oszlopok alapján kiszámolhat más oszlopokat is, például a Sum, Count, Max, Min, Product stb. Kattintson 60 napos ingyenes próbaidőszakra, korlátozás nélkül!


Kutools az Excel számára több mint 300 praktikus eszközt tartalmaz az Excel számára, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Letöltés és ingyenes próba most!

A legjobb irodai termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (1)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
VBA példában a dátum oszlop nem szűr. kérlek adj tanácsot.
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi