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

Cum se elimină rândurile duplicate și se păstrează cele mai mari valori numai în Excel?

De exemplu, aveți un tabel de achiziții în Excel ca prima captură de ecran afișată. Acum trebuie să eliminați rândurile duplicate pe baza coloanei Fructe și să păstrați cele mai mari valori ale fructelor corespunzătoare în coloana Sumă, așa cum este afișată a doua captură de ecran. Vă puteți gândi la orice soluție? Acest articol va împărtăși două trucuri pentru a-l rezolva.

Eliminați rândurile duplicate și păstrați cele mai mari valori numai cu VBA

Eliminați rândurile duplicate și păstrați cele mai mari valori numai cu Kutools pentru Excel

Eliminați cu ușurință rândurile duplicate pe baza criteriilor dintr-o singură coloană și păstrați doar cele mai mari valori în Excel

Kutools pentru Excel Rânduri combinate avansate utilitarul poate ajuta utilizatorii Excel să afle cu ușurință valoarea maximă a valorii minime a fiecărui element dintr-o altă coloană.

anunț combinat avansat rânduri max

Acest utilitar Advanced Combine Rows poate combina, de asemenea, rânduri și valori separate prin mărcile specificate, sau combina rânduri și poate calcula sumele acestora, numărul de apariții, valorile maxime / minime, medii etc.

Fila Office Activați editarea și navigarea cu file în Office și faceți munca mult mai ușoară ...
Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%
  • Reutilizați orice: Adăugați cele mai utilizate sau complexe formule, diagrame și orice altceva la preferatele dvs. și reutilizați-le rapid în viitor.
  • Peste 20 de caracteristici text: Extrageți numărul din șirul de text; Extrageți sau eliminați o parte din texte; Conversia numerelor și valutelor în cuvinte în limba engleză.
  • Instrumente de îmbinare: Mai multe cărți de lucru și foi într-unul; Combinați mai multe celule / rânduri / coloane fără a pierde date; Combinați rândurile duplicate și suma.
  • Instrumente divizate: Împărțiți datele în mai multe foi bazate pe valoare; Un registru de lucru pentru mai multe fișiere Excel, PDF sau CSV; O coloană la mai multe coloane.
  • Lipiți săriți Rânduri ascunse / filtrate; Număr și sumă de Culoarea fundalului; Trimiteți e-mailuri personalizate către mai mulți destinatari în bloc.
  • Super Filtru: Creați scheme avansate de filtrare și aplicați oricăror foi; Sortează pe săptămână, zi, frecvență și multe altele; Filtru prin îndrăznețe, formule, comentarii ...
  • Peste 300 de caracteristici puternice; Funcționează cu Office 2007-2021 și 365; Suporta toate limbile; Implementare ușoară în întreprinderea sau organizația dvs.

Să presupunem că aveți un tabel așa cum este prezentat mai jos. Și această metodă va introduce o macrocomandă VBA pentru a elimina rândurile duplicate pe baza unei anumite coloane și pentru a păstra cele mai mari valori numai într-o altă coloană din Excel. Vă rugăm să faceți următoarele:

1. apasă pe Alt + F11 simultan pentru a deschide fereastra Microsoft Visual Basic pentru aplicații.

2. clic Insera > Moduleși lipiți următorul cod într-o fereastră nouă a modulului de deschidere.

VBA: eliminați rândurile duplicate și păstrați cele mai mari valori

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. apasă pe F5 tasta sau faceți clic pe Alerga pentru a rula acest VBA.

4. Acum apare o casetă de dialog. Selectați coloanele în care veți elimina rândurile duplicate și rezervați cele mai mari valori și dați clic pe OK butonul.

În cazul nostru, vom elimina rândurile duplicate după Coloana Fructelor și vom păstra cele mai mari valori în Coloana Suma, prin urmare, selectez coloana Fructe și coloana Suma așa cum se arată mai sus.

Apoi, veți vedea că rândurile duplicate sunt eliminate pe baza coloanei Fructe, iar cele mai mari valori ale fructelor corespunzătoare sunt păstrate în coloana Suma. Vedeți captura de ecran:

notițe:

(1) Intervalul specificat trebuie să înceapă cu coloana cu care veți elimina rândurile duplicate.

(2) Acest VBA poate păstra cele mai mari valori numai în coloană chiar în spatele coloanei cu care ați eliminat rândurile duplicate.

(3) Acest VBA nu funcționează în Microsoft Excel 2007.


VBA de mai sus poate să nu fie suficient de ușor pentru unii utilizatori și poate păstra doar cele mai mari valori în coloana din spatele coloanei criteriilor. Dar Kutools pentru Excel Rânduri combinate avansate utilitarul vă va ajuta să rezolvați cu ușurință această problemă cu ușurință.

Kutools pentru Excel - Include peste 300 de instrumente utile pentru Excel. Probă gratuită cu funcții complete 30-zi, nu este nevoie de card de credit! Încercare gratuită acum!

1. Selectați tabelul pentru care veți elimina rândurile duplicate și veți păstra cele mai mari valori (selectați A1: C24 în cazul nostru) și faceți clic Kutools > Conţinut > Rânduri combinate avansate.

2. În fereastra de dialog Combinare rânduri bazate pe coloană, vă rugăm să configurați după cum urmează:

(1) Selectați coloana Fructe (cu care veți elimina rândurile duplicate), apoi faceți clic pe Cheia principala buton;

(2) Selectați coloana Sumă (în care veți păstra cele mai mari valori), apoi faceți clic pe calculati > max.

(3) Specificați regulile de combinație pentru alte coloane după cum aveți nevoie.

doc elimina duplicatele păstrează cea mai mare valoare 2

3. Faceți clic pe Ok buton. Și apoi veți vedea că toate rândurile duplicate sunt eliminate pe baza Coloanei de fructe și numai valorile maxime ale fructelor corespunzătoare sunt păstrate în coloana Cantitate. Vedeți captura de ecran:

Rânduri combinate avansate utilitarul Kutools pentru Excel poate combina cu ușurință rânduri cu o coloană și apoi poate calcula alte coloane și pe baza acestor coloane, cum ar fi Suma, Numărul, Max, Min, Produs etc. Faceți clic pentru o perioadă de încercare gratuită de 60 de zile, fără limitări!


Kutools pentru Excel include mai mult de 300 de instrumente la îndemână pentru Excel, gratuite pentru a încerca fără limitări în 30 de zile. Descărcați și încercați gratuit acum!

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

  • reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
  • Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
  • Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
  • Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
  • Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
  • Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
  • Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
  • Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
  • Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.
fila kte 201905

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
fundul officetab
Comentarii (1)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
în exemplul VBA, coloana de dată nu filtrează. vă rugăm consultaţi.
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL