Ugrás a tartalomra

Hogyan lehet eltávolítani az ismétlődéseket, de első példányt megtartani az Excelben?

Tegyük fel, hogy a munkalapon van egy értéklista, amely néhány duplikátumot tartalmaz, most el kell távolítania a duplikátumokat, de meg kell tartania az első sort, ahol a duplikált érték található. Ebben a cikkben kétféle módszert mutatunk be a másolatok eltávolítására, de az Excel első példányát megtartva.

Távolítsa el az ismétlődéseket, de az első példányt tartsa meg VBA kóddal
Távolítsa el a duplikációkat, de tartsa meg az első példányt a Kutools for Excel segítségével


Távolítsa el az ismétlődéseket, de az első példányt tartsa meg VBA kóddal

Az alábbi VBA kód futtatásával eltávolíthatja a duplikátumokat, de az első példányt egy oszlopban tarthatja.

1. nyomja meg más + F11 megnyitni Microsoft Visual Basic for Applications párbeszédablak.

2. Ban,-ben Microsoft Visual Basic for Applications párbeszédpanelen kattintson a gombra betétlap > Modulok. Ezután másolja és illessze be az alábbi kódot a kódablakba.

VBA kód: távolítsa el az ismétlődéseket, de őrizze meg az első fokot

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. nyomja meg F5 gombot a kód futtatásához. A felbukkanóban KutoolsforExcel párbeszédpanelen válassza ki azt a tartományt, amelyet el szeretne távolítani az ismétlésekből, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Most láthatja az összes ismétlődő sort, kivéve az első rekordok eltávolítását a kijelölt oszloptartományból. Lásd a képernyőképet:


Távolítsa el a duplikációkat, de tartsa meg az első példányt a Kutools for Excel segítségével

A VBA kód mellett használhatja a Válassza az Ismétlődő és egyedi cellák lehetőséget hasznossága Kutools az Excel számára bővítmény a duplikátumok egyszerű eltávolításához, de az első példányokat megtartja az Excelben.

Alkalmazás előtt Kutools az Excel számáraKérjük, először töltse le és telepítse.

1. Válassza ki azt a tartományt, amelyből el szeretné távolítani a másolatokat, de megtartja az első példányokat. Ezután kattintson a gombra Kutools > választ > Válassza az Ismétlődő és egyedi cellák lehetőséget

2. Ban,-ben Válassza az Ismétlődő és egyedi cellák lehetőséget párbeszédpanelen válassza a ikont Másolatok (az 1. kivételével) lehetőséget, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

doc eltávolítja az ismétlődéseket1

3. A következőkben Válassza az Ismétlődő és egyedi cellák lehetőséget párbeszédpanelen kattintson a gombra OK.

doc eltávolítja az ismétlődéseket1

4. Most az első példányok kivételével a duplikátumok kiválasztva vannak, kérjük, nyomja meg a gombot töröl gombot a kijelölt duplikátumok eltávolításához.

Megjegyzések: Ha törölni szeretné az ismétlődő sorokat, akkor csak ellenőriznie kell Válassza ki a teljes sorokat lehetőség a Válassza az Ismétlődő és egyedi cellák lehetőséget párbeszédpanelt, majd alkalmazza a töröl parancsot a jobb egérgombbal a teljes duplikált sorok eltávolításához.

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Távolítsa el a duplikációkat, de tartsa meg az első példányt a Kutools for Excel segítségével

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to do something similar but not quite. I am trying to take the following where I indicates the next cell John I Red John I Blue John I Yellow Joe I Red Joe I Blue Joe I Yellow and turn it into John I Red I Blue I Yellow Joe I Red I Blue I Yellow Can you help on just keeping the first duplicate in a single cell only?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations