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

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.

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.

A fenti VBA nem biztos, hogy elég egyszerű egyes felhasználók számára, és csak a legmagasabb értékeket tudja megtartani a feltétel oszlop mögötti oszlopban. De Kutools for Excel Haladó kombinált sorok segédprogram segítségével könnyedén megoldhatja ezt a problémát.

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.

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 kombinálhatja a sorokat egy oszloppal, majd az oszlopok alapján más oszlopokat is kiszámíthat, mint például: Összeg, Szám, Max, Min., Termék stb. Kattintson 60 napos ingyenes próbaidőszakra, korlátozás nélkül!