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

Cum se elimină toate duplicatele, dar se păstrează doar unul în Excel?

Acest tutorial introduce trucurile pentru a elimina toate valorile duplicate dintr-o listă, dar păstrați doar una în Excel, citiți detaliile:

Eliminați toate duplicatele, dar păstrați doar unul cu funcția Eliminare duplicate

Eliminați toate duplicatele, dar păstrați doar unul cu VBA

Eliminați toate duplicatele, dar păstrați doar unul cu Kutools pentru Excel idee bună3

Combinați toate rândurile duplicate și păstrați datele cu Kutools pentru Excel idee bună3


În Excel, caracteristica Eliminare duplicat vă poate ajuta să eliminați toate, dar să păstrați o valoare duplicat.

1. Selectați lista de date de care aveți nevoie și faceți clic pe Date > Eliminați duplicatele. Vedeți captura de ecran:

doc eliminați duplicatul păstrați unul 1

2. Apoi în Eliminați duplicatele caseta de dialog, verificați numele coloanei din care doriți să eliminați duplicatele și, dacă datele dvs. au antet, verificați Datele mele au anteturi opțiune, de asemenea. Vedeți captura de ecran:

doc eliminați duplicatul păstrați unul 2

3. clic OK. Și apare un dialog pentru a vă spune câte duplicate au fost eliminate, doar închideți-l. Și acum toate duplicatele au fost eliminate, dar păstrează doar unul în listă.

doc eliminați duplicatul păstrați unul 3


Dacă sunteți interesat de VBA, aici pot introduce și un cod VBA pentru a rezolva această sarcină.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicațiefereastra s.

2. clic Insera > Module, și lipiți mai jos VBA la nou Module fereastră.

VBA: Eliminați toate duplicatele, dar păstrați unul.

Sub RemoveAllDeplicateButOne()
    Dim LR As Long: LR = Range("A" & Rows.Count).End(xlUp).Row
    ActiveSheet.Range("A1:A" & LR).RemoveDuplicates Columns:=1, Header:=Name
End Sub

3. presa F5 tasta sau faceți clic Alerga pentru a executa VBA, iar duplicatele din lista din coloana A au fost eliminate, dar păstrați unul.

Sfat: În VBA de mai sus, A indică coloana A, iar A1: A indică intervalul listei, le puteți schimba după cum aveți nevoie.


Există un utilitar puternic în Kutools pentru Excel numit Selectați celule duplicate și unice poate selecta sau evidenția rapid toate duplicatele, cu excepția primei, apoi le puteți elimina.

Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. 

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați intervalul de date și faceți clic pe Kutools > Selectați > Selectați celule duplicate și unice. Vedeți captura de ecran:

doc elimina dulicate păstrează unul 15

2. În dialogul afișat, verificați Duplicate (cu excepția primei) și faceți clic pe Ok. Vedeți captura de ecran:

doc eliminați duplicatul păstrați unul 5

3. Apoi apare un dialog pentru a vă reaminti numărul de celule selectate. Și doar faceți clic OK să-l închidă. Vedeți captura de ecran:

doc eliminați duplicatul păstrați unul 6

4. Și toate duplicatele, dar primul sunt selectate, apăsați Șterge cheie pentru a le șterge.

doc eliminați duplicatul păstrați unul 7

Sfat: De asemenea, puteți elimina toate duplicatele, dar păstrați unul cu Selectați celule duplicate și unice asa:

Selectați toate valorile unice, inclusiv primele duplicate, apoi copiați-le apăsând Ctrl + C și lipiți într-o altă locație până la Ctrl + V.

doc eliminați duplicatul păstrați unul 8doc eliminați duplicatul păstrați unul 9

Dacă aveți unele date și ceea ce doriți este să combinați rândurile duplicate, atunci păstrați datele corespunzătoare, așa cum se arată în imaginea de mai jos, puteți utiliza Kutools pentru Excel'S Rânduri combinate avansate Funcția.

doc eliminați duplicatul păstrați unul 10

După instalare gratuită Kutools pentru Excel, faceți următoarele:

1. Selectați datele și faceți clic pe Kutools > Merge & Split > Rânduri combinate avansate. Vedeți captura de ecran:

doc elimina dulicate păstrează unul 16

2. În Combinați rândurile pe baza coloanei , selectați coloana din care doriți să eliminați duplicatul și faceți clic pe Cheia principala pentru a o face ca coloana cheii primare. Vedeți captura de ecran:

doc eliminați duplicatul păstrați unul 12

3. Apoi selectați coloana pe care doriți doar să păstrați datele și apoi faceți clic pe Combina, și selectați un delimitator din listă. Vedeți captura de ecran:

doc eliminați duplicatul păstrați unul 13

4. clic Ok, iar rândurile duplicate sunt combinate și păstrează datele corespunzătoare.

doc eliminați duplicatul păstrați unul 14


Articole relative:


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 (0)
Încă nu există evaluări. Fii primul care evaluează!
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