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

Jak usunąć zduplikowane wiersze i zachować najwyższe wartości tylko w programie Excel?

Na przykład masz tabelę zakupów w programie Excel, jak pokazano na pierwszym zrzucie ekranu. Teraz musisz usunąć zduplikowane wiersze na podstawie kolumny Owoce i zachować najwyższe wartości odpowiednich owoców w kolumnie Ilość, jak pokazano na drugim zrzucie ekranu. Jakieś rozwiązanie, które możesz wymyślić? W tym artykule przedstawimy dwie sztuczki, aby go rozwiązać.

Usuń zduplikowane wiersze i zachowaj najwyższe wartości tylko w VBA

Usuń zduplikowane wiersze i zachowaj najwyższe wartości tylko z Kutools for Excel

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

Kutools dla Excela Zaawansowane wiersze łączenia narzędzie może pomóc użytkownikom programu Excel szybko znaleźć maksymalną wartość minimalnej wartości każdego elementu w innej kolumnie.

ad zaawansowane łączenie wierszy maks

To narzędzie Zaawansowane łączenie wierszy może również łączyć wiersze i oddzielne wartości według określonych znaków lub łączyć wiersze i obliczać ich sumy, liczbę wystąpień, wartości maksymalne / minimalne, średnie itp.

Karta Office Włącz edycję i przeglądanie na kartach w pakiecie Office i znacznie ułatw swoją pracę ...
Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%
  • Wykorzystaj wszystko ponownie: Dodaj najczęściej używane lub złożone formuły, wykresy i wszystko inne do ulubionych i szybko wykorzystaj je ponownie w przyszłości.
  • Ponad 20 funkcji tekstowych: Wyodrębnij liczbę z ciągu tekstowego; Wyodrębnij lub usuń część tekstów; Konwertuj liczby i waluty na angielskie słowa.
  • Narzędzia do scalania: Wiele skoroszytów i arkuszy w jeden; Scal wiele komórek / wierszy / kolumn bez utraty danych; Połącz zduplikowane wiersze i sumę.
  • Podziel narzędzia: Podziel dane na wiele arkuszy na podstawie wartości; Jeden skoroszyt do wielu plików Excel, PDF lub CSV; Jedna kolumna na wiele kolumn.
  • Wklej pomijanie Ukryte / filtrowane wiersze; Policz i suma według koloru tła; Wysyłaj spersonalizowane wiadomości e-mail do wielu odbiorców zbiorczo.
  • Super filtr: Twórz zaawansowane schematy filtrów i stosuj do dowolnych arkuszy; Sortuj według tygodnia, dnia, częstotliwości i nie tylko; Filtruj pogrubieniem, formułami, komentarzem ...
  • Ponad 300 zaawansowanych funkcji; Współpracuje z Office 2007-2021 i 365; Obsługuje wszystkie języki; Łatwe wdrażanie w przedsiębiorstwie lub organizacji.

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.

VBA: Usuń zduplikowane wiersze i zachowaj najwyższe wartości

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.

Kutools dla programu Excel - Zawiera ponad 300 przydatnych narzędzi dla programu Excel. Pełna wersja bezpłatnej wersji próbnej 30-dzień, karta kredytowa nie jest wymagana! Bezpłatna wersja próbna teraz!

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.

doc usuń duplikaty zachowaj najwyższą wartość 2

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:

Podróż Ruta de la Plata w liczbach 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ń!


Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi dla programu Excel, które można bezpłatnie wypróbować bez ograniczeń przez 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (1)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
w przykładzie VBA kolumna daty nie jest filtrowana. proszę doradź.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL