Лесно премахвайте дублиращи се редове въз основа на критерии в една колона и запазвайте само най-високите стойности в 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 бутон.

В нашия случай ще премахнем дублиращите се редове по колона „Плодове“ и ще запазим най-високите стойности в колоната „Количество“, затова избирам колоната „Плодове“ и колоната „Количество“, както е показано на екранната снимка по-горе.

След това ще видите, че дублиращите се редове се премахват въз основа на колоната „Плодове“, а най-високите стойности на съответните плодове се запазват в колоната „Количество“. Вижте екранна снимка:

бележки:

(1) Посоченият диапазон трябва да започва с колоната, от която ще премахнете дублиращите се редове.

(2) Тази VBA може да запази само най-високите стойности в колоната точно зад колоната, от която сте премахнали дублиращи се редове.

(3) Този VBA не работи в Microsoft Excel 2007.

Горният VBA може да не е достатъчно лесен за някои потребители и може да запази най-високите стойности само в колона зад колона с критерии. Но Kutools за Excel Разширено комбиниране на редове помощната програма ще ви помогне лесно да разрешите този проблем лесно.

1. Изберете таблицата, която ще премахнете дублиращите се редове и ще запазите най-високите стойности (изберете A1: C24 в нашия случай), и щракнете върху Kutools > съдържание > Разширено комбиниране на редове.

2. В отварящия се диалогов прозорец Комбиниране на редове въз основа на колона, моля, конфигурирайте както следва:

(1) Изберете колона „Плодове“ (от която ще премахнете дублиращите се редове) и след това щракнете върху Първичен ключ бутон;

(2) Изберете колоната Сума (в която ще запазите най-високите стойности) и след това щракнете Изчисли > макс.

(3) Посочете правила за комбиниране за други колони, както ви е необходимо.

3. Щракнете върху Ok бутон. И тогава ще видите, че всички дублиращи се редове са премахнати въз основа на колоната с плодове и само максималните стойности на съответните плодове се запазват в колоната с количество. Вижте екранна снимка:

- Разширено комбиниране на редове помощната програма на Kutools за Excel може лесно да комбинира редове с една колона и след това да изчисли други колони въз основа на тези колони, като сума, брой, макс, мин, продукт и т.н. Кликнете за 60-дневен безплатен пробен период, без ограничение!