Z łatwością usuwaj zduplikowane wiersze na podstawie kryteriów w jednej kolumnie i zachowuj tylko najwyższe wartości w programie Excel

Przypuśćmy, że masz tabelę pokazaną na poniższym zrzucie ekranu. Ta metoda wprowadzi makro VBA, aby usunąć zduplikowane wiersze na podstawie określonej kolumny i zachować najwyższe wartości tylko w innej kolumnie w programie Excel. Wykonaj następujące czynności:

1. wciśnij inny + F11 klawisze jednocześnie, aby otworzyć okno Microsoft Visual Basic for Applications.

2. kliknij wstawka > Modułi wklej następujący kod do nowego otwierającego okna modułu.

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. wciśnij F5 lub kliknij run przycisk, aby uruchomić ten VBA.

4. Teraz pojawia się okno dialogowe. Wybierz kolumny, według których chcesz usunąć zduplikowane wiersze, i zarezerwuj najwyższe wartości, a następnie kliknij OK przycisk.

W naszym przypadku usuniemy zduplikowane wiersze według kolumny owoców i zachowamy najwyższe wartości w kolumnie Amount, dlatego wybieram kolumnę Fruit i Amount, jak pokazano na powyższym zrzucie ekranu.

Następnie zobaczysz, że zduplikowane wiersze są usuwane na podstawie kolumny Owoce, a najwyższe wartości odpowiednich owoców są przechowywane w kolumnie Kwota. Zobacz zrzut ekranu:

Uwagi:

(1) Określony zakres musi zaczynać się od kolumny, według której usuniesz zduplikowane wiersze.

(2) Ten VBA może zachować tylko najwyższe wartości w kolumnie tuż za kolumną, według której usunięto zduplikowane wiersze.

(3) Ten VBA nie działa w programie Microsoft Excel 2007.

Powyższy VBA może nie być wystarczająco łatwy dla niektórych użytkowników i może zachować najwyższe wartości tylko w kolumnie za kolumną kryteriów. Ale Kutools dla Excela Zaawansowane wiersze łączenia narzędzie pomoże ci łatwo rozwiązać ten problem.

1. Wybierz tabelę, z której chcesz usunąć zduplikowane wiersze i zachowaj najwyższe wartości (w naszym przypadku wybierz A1: C24) i kliknij Kutools > Treść > Zaawansowane wiersze łączenia.

2. W otwartym oknie dialogowym Połącz wiersze na podstawie kolumny skonfiguruj w następujący sposób:

(1) Wybierz kolumnę Owoce (według której usuniesz zduplikowane wiersze), a następnie kliknij Główny klucz przycisk;

(2) Wybierz kolumnę Kwota (w której zachowasz najwyższe wartości), a następnie kliknij Obliczać > Max.

(3) Określ reguły kombinacji dla innych kolumn, jeśli potrzebujesz.

3. Kliknij Ok przycisk. Następnie zobaczysz, że wszystkie zduplikowane wiersze są usuwane na podstawie kolumny owoców i tylko maksymalne wartości odpowiednich owoców są przechowywane w kolumnie Ilość. Zobacz zrzut ekranu:

Połączenia Zaawansowane wiersze łączenia narzędzie Kutools dla programu Excel może z łatwością łączyć wiersze według jednej kolumny, a następnie obliczać inne kolumny również na podstawie tych kolumn, takie jak Suma, Liczba, Max, Min, Produkt itp. Kliknij na 60-dniowy bezpłatny okres próbny, bez ograniczeń!