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:
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.
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
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...
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!