Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как удалить повторяющиеся строки и сохранить самые высокие значения только в Excel?

Например, у вас есть таблица покупок в Excel в качестве первого снимка экрана. Теперь вам нужно удалить повторяющиеся строки на основе столбца Fruit и сохранить самые высокие значения соответствующих плодов в столбце «Сумма» в качестве второго скриншота. Любое решение, о котором вы думаете? В этой статье будут представлены два трюка, чтобы решить эту проблему.

Удалите повторяющиеся строки и сохраняйте самые высокие значения только с помощью VBA

Удалите повторяющиеся строки и сохраняйте самые высокие значения только с помощью Kutools for Excel

Легко удалять повторяющиеся строки на основе критериев в одном столбце и сохранять только самые высокие значения в Excel

Kutools для Excel Расширенные ряды комбинирования утилита может помочь пользователям Excel быстро узнать максимальное значение минимального значения каждого элемента в другом столбце с легкостью. Полнофункциональная бесплатная пробная версия 60-day!

расширенные комбинации объявлений

Эта утилита Advanced Combine Rows также может комбинировать строки и отдельные значения с помощью указанных меток или комбинировать строки и вычислять их суммы, количество вхождений, максимальные / минимальные значения, средние значения и т. Д.

Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.


Предположим, что у вас есть таблица, показанная ниже. И этот метод представит макрос VBA для удаления повторяющихся строк на основе определенного столбца и сохранит самые высокие значения только в другом столбце в Excel. Пожалуйста, сделайте следующее:

1. нажмите другой + F11 чтобы открыть окно Microsoft Visual Basic для приложений.

2. Нажмите Вставить > модуль, и вставьте следующий код в новое окно модуля открытия.

VBA: удалите повторяющиеся строки и сохраните самые высокие значения

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 Кнопка.

В нашем случае мы удалим повторяющиеся строки Fruit Column и сохраняем самые высокие значения в столбце Amount, поэтому я выбираю столбец Fruit и столбец Amount, как показано выше.

Затем вы увидите, что повторяющиеся строки удаляются на основе столбца Fruit, а самые высокие значения соответствующих плодов хранятся в столбце «Сумма». Смотрите скриншот:

Примечания:

(1) Указанный диапазон должен начинаться с столбца, в котором вы удаляете дублированные строки.

(2) Этот VBA может поддерживать только самые высокие значения в столбце сразу за столбцом, который вы удалили, дублирует строки.

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


Вышеупомянутый VBA может быть нелегким для некоторых пользователей, и он может хранить только самые высокие значения в столбце за столбцом критериев. Но Kutools для Excel Расширенные ряды комбинирования утилита поможет вам легко решить эту проблему легко.

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

2. В открывшемся диалоговом окне «Объединить строки на основе столбца» настройте следующим образом:

(1) Выберите столбец Fruit (который вы удалите дубликаты строк), а затем нажмите Основной ключ кнопка;

(2) Выберите столбец «Сумма» (который будет содержать самые высокие значения), а затем нажмите Рассчитать > Максимум.

(3) Укажите правила комбинации для других столбцов, которые вам нужны.

doc удаляет дубликаты с максимальным значением 2

3. Нажмите Ok кнопка. И тогда вы увидите, что все повторяющиеся строки удаляются на основе Фруктовой колонны, и только максимальные значения соответствующих плодов хранятся в столбце Сумма. Смотрите скриншот:

Расширенные ряды комбинирования утилита Kutools for Excel может легко комбинировать строки по одному столбцу, а затем вычислять другие столбцы на основе этих столбцов, например Sum, Count, Max, Min, Product и т. д. Нажмите для бесплатной пробной версии 60-day без ограничений!


В этом видео, Kutools Kutools Plus вкладки добавляются Kutools for Excel, Если это необходимо, пожалуйста, нажмите для 60-дневная бесплатная пробная версия без ограничений!

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

Вкладка «Office» предоставляет интерфейс с вкладками для Office и упрощает работу

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.