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ă.
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.
Eliminați rândurile duplicate și păstrați cele mai mari valori numai cu VBA
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.
Eliminați rândurile duplicate și păstrați cele mai mari valori numai cu Kutools pentru Excel
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.
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!
Demo: eliminați rândurile duplicate și păstrați cele mai mari valori numai în Excel
Cele mai bune instrumente de productivitate de birou
Î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 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!