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

Як видалити повторювані рядки та зберегти найвищі значення лише в Excel?

Наприклад, у вас є таблиця покупок в Excel, як перший знімок екрана. Тепер вам потрібно видалити повторювані рядки на основі стовпця Фрукти та зберегти найвищі значення відповідних фруктів у стовпці Сума, як показано на другому знімку екрана. Будь-яке рішення ви можете придумати? Ця стаття поділиться двома трюками для її вирішення.

Видаліть повторювані рядки та зберігайте найвищі значення лише за допомогою VBA

Видаліть повторювані рядки та зберігайте найвищі значення лише за допомогою Kutools для Excel

Легко видаляйте повторювані рядки на основі критеріїв в одному стовпці та зберігайте лише найвищі значення в Excel

Kutools для Excel Розширені комбіновані ряди Утиліта може допомогти користувачам Excel швидко з легкістю з’ясувати максимальне значення мінімального значення кожного елемента в іншому стовпці.

оголошення розширені комбіновані рядки макс

Ця утиліта Advanced Combine Rows також може поєднувати рядки та відокремлювати значення за заданими позначками, або об'єднувати рядки та обчислювати їх суми, кількість випадків, максимальне / мінімальне значення, середні значення тощо.

Вкладка Office Увімкніть редагування та перегляд вкладок в Office та значно спростіть свою роботу ...
Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%
  • Повторне використання будь-чого: Додайте найбільш уживані або складні формули, діаграми та будь-що інше до вибраного та швидко використовуйте їх у майбутньому.
  • Більше 20 функцій тексту: Витяг номера з текстового рядка; Витяг або видалення частини текстів; Перетворення чисел і валют в англійські слова.
  • Злиття інструментів: Кілька робочих книжок та аркушів в одне ціле; Об’єднати кілька клітинок / рядків / стовпців без втрати даних; Об’єднати повторювані рядки та суму.
  • Розділити інструменти: Розділити дані на кілька аркушів на основі значення; Одна робоча книга до декількох файлів Excel, PDF або CSV; Один стовпець на кілька стовпців.
  • Пропустити вставку Приховані / відфільтровані рядки; Граф і сума за кольором тла; Надіслати персоналізовані електронні листи кільком одержувачам масово.
  • Суперфільтр: Створюйте розширені схеми фільтрів і застосовуйте їх до будь-яких аркушів; сортувати за тижнями, днями, періодичністю тощо; фільтр жирним шрифтом, формули, коментар ...
  • Понад 300 потужних функцій; Працює з Office 2007-2021 і 365; Підтримує всі мови; Легке розгортання на вашому підприємстві чи в організації.

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

1 Натисніть кнопку інший + F11 одночасно відкрити вікно Microsoft Visual Basic for Applications.

2. клацання Insert > Модуліта вставте наступний код у нове вікно модуля, що відкривається.

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 і зберігатимемо найвищі значення в стовпці Сума, тому я вибираю стовпець Fruit та стовпець Amount, як показано на скріншоті вище.

Тоді ви побачите, що повторювані рядки видаляються на основі стовпця Фрукти, а найвищі значення відповідних фруктів зберігаються в стовпці Сума. Дивіться знімок екрана:

примітки:

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

(2) Цей VBA може зберігати лише найвищі значення в стовпці відразу за стовпцем, яким ви видалили дублікати рядків.

(3) Цей VBA не працює в Microsoft Excel 2007.


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

Kutools для Excel - Включає понад 300 зручних інструментів для Excel. Повна безкоштовна пробна версія 30-день, кредитна картка не потрібна! Безкоштовна пробна версія зараз!

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

2. У діалоговому вікні "Об'єднати рядки на основі стовпця" відкрийте наступне:

(1) Виберіть стовпець "Фрукти" (за допомогою якого ви видалите дублікати рядків), а потім клацніть на Первинний ключ кнопка;

(2) Виберіть стовпець Сума (у якому ви будете зберігати найвищі значення), а потім натисніть Обчислювати > Макс.

(3) Вкажіть правила комбінування для інших стовпців, як вам потрібно.

doc видалити дублікати зберегти найвище значення 2

3. Натисніть Ok кнопку. І тоді ви побачите, що всі повторювані рядки видаляються на основі стовпця «Фрукти», а в стовпці «Кількість» зберігаються лише максимальні значення відповідних фруктів. Дивіться знімок екрана:

повне г, повне г,, показали, від, номер, XNUMX Розширені комбіновані ряди Утиліта Kutools для Excel може легко поєднувати рядки за одним стовпцем, а потім обчислювати й інші стовпці, базуючись на цих стовпцях, такі як Сума, Кількість, Макс, Мінімум, Продукт тощо. Клацніть на 60-денну безкоштовну пробну версію, без обмежень!


Kutools для Excel включає більше 300 зручних інструментів для Excel, які можна спробувати без обмежень протягом 30 днів. Завантажте та безкоштовно пробну версію зараз!

Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (1)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
у прикладі VBA стовпець дати не фільтрується. Порадьте, будь ласка.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL