Cum se elimină duplicatele, dar se păstrează prima instanță în Excel?
Să presupunem că există o listă de valori în foaia de lucru care conține câteva duplicate, acum trebuie să eliminați duplicatele, dar păstrați primul rând unde se găsește valoarea duplicată. În acest articol, vă vom arăta două metode de eliminare a duplicatelor, dar păstrați prima instanță în Excel.
Eliminați duplicatele, dar păstrați prima instanță cu codul VBA
Eliminați duplicatele, dar păstrați prima instanță cu Kutools pentru Excel
Eliminați duplicatele, dar păstrați prima instanță cu codul VBA
Puteți rula codul VBA de mai jos pentru a elimina duplicatele, dar păstrați prima instanță într-o coloană.
1. presa Alt + F11 pentru a deschide Microsoft Visual Basic pentru aplicații căsuță de dialog.
2. În Microsoft Visual Basic pentru aplicații casetă de dialog, faceți clic pe Insera > Module. Apoi copiați și lipiți codul de mai jos în fereastra codului.
Cod VBA: eliminați duplicatele, dar păstrați prima instanță
Sub TrimExcessSpaces()
Dim Rng As Range
Dim WorkRng As Range
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
For Each Rng In WorkRng.Cells
dic(Rng.Value) = ""
Next
WorkRng.ClearContents
WorkRng.Range("A1").Resize(UBound(dic.Keys) + 1, 1) = Application.WorksheetFunction.Transpose(dic.Keys)
End Sub
3. presa F5 tasta pentru a rula codul. În pop-up KutoolsforExcel caseta de dialog, selectați intervalul pe care doriți să îl eliminați, apoi faceți clic pe OK buton. Vedeți captura de ecran:
Acum puteți vedea toate rândurile duplicate, cu excepția primelor înregistrări care sunt eliminate din intervalul de coloane selectat. Vedeți captura de ecran:
Eliminați duplicatele, dar păstrați prima instanță cu Kutools pentru Excel
Pe lângă codul VBA, puteți utiliza fișierul Selectați celule duplicate și unice utilitatea Kutools pentru Excel program de completare pentru a elimina cu ușurință duplicatele, dar păstrează primele instanțe în Excel.
Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.
1. Selectați intervalul pe care doriți să îl eliminați, dar păstrați primele instanțe. Apoi apasa Kutools > Selectați > Selectați celule duplicate și unice.
2. În Selectați celule duplicate și unice caseta de dialog, selectați Duplicate (cu excepția primei) , apoi faceți clic pe OK buton. Vedeți captura de ecran:
3. În cele ce urmează Selectați celule duplicate și unice casetă de dialog, faceți clic pe OK.
4. Acum duplicatele sunt selectate, cu excepția primelor instanțe, vă rugăm să apăsați pe Șterge tasta pentru a elimina duplicatele selectate.
notițe: Dacă doriți să ștergeți rândurile duplicate, trebuie doar să verificați Selectați rânduri întregi opțiune în Selectați celule duplicate și unice caseta de dialog, apoi aplicați Șterge comanda din meniul clic dreapta pentru a elimina întregul rând duplicat.
Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.
Eliminați duplicatele, dar păstrați prima instanță cu Kutools pentru 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!