Salt la conținutul principal

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.


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 - Dotat cu peste 300 de instrumente esențiale pentru Excel. Bucurați-vă de o încercare GRATUITĂ completă de 30 de zile, fără card de credit necesar! Descarcă 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: Peste 300 de instrumente la îndemână la îndemână! Începeți astăzi perioada de încercare gratuită de 30 de zile, fără limitări ale funcțiilor. Descarcă acum!

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
in VBA example, the date column doesn't filter. please advise.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations