Kako odstraniti dvojnike, vendar obdržati prvi primerek v Excelu?
Recimo, na vašem delovnem listu je seznam vrednosti, ki vsebuje nekaj dvojnikov, zdaj morate odstraniti dvojnike, vendar obdržite prvo vrstico, kjer je najdena podvojena vrednost. V tem članku vam bomo pokazali dva načina odstranjevanja dvojnikov, vendar obdržite prvi primerek v Excelu.
Odstranite dvojnike, vendar obdržite prvo stopnjo s kodo VBA
Odstranite dvojnike, vendar obdržite prvi primerek s programom Kutools za Excel
Odstranite dvojnike, vendar obdržite prvo stopnjo s kodo VBA
Spodnjo kodo VBA lahko zaženete, da odstranite dvojnike, vendar prvo stopnjo shranite v stolpec.
1. Pritisnite druga + F11 da odprete Microsoft Visual Basic za aplikacije pogovorno okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije pogovorno okno, kliknite Vstavi > Moduli. Nato kopirajte in prilepite spodnjo kodo v okno s kodo.
Koda VBA: odstranite dvojnike, vendar obdržite prvo stopnjo
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. Pritisnite F5 tipko za zagon kode. V pojavnem oknu KutoolsforExcel v pogovornem oknu izberite obseg, za katerega želite odstraniti dvojnike, in nato kliknite OK . Oglejte si posnetek zaslona:
Zdaj lahko vidite vse podvojene vrstice, razen da so prvi zapisi odstranjeni iz izbranega obsega stolpcev. Oglejte si posnetek zaslona:
Odstranite dvojnike, vendar obdržite prvi primerek s programom Kutools za Excel
Poleg kode VBA lahko uporabite Izberite Podvojene in edinstvene celice uporabnost Kutools za Excel dodatek za enostavno odstranjevanje dvojnikov, vendar obdrži prve primerke v Excelu.
Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.
1. Izberite obseg, za katerega želite odstraniti dvojnike, vendar obdržite prve primerke. Nato kliknite Kutools > Izberite > Izberite Podvojene in edinstvene celice.
2. V Ljubljani Izberite Podvojene in edinstvene celice v pogovornem oknu izberite Dvojniki (razen prvega) in nato kliknite OK . Oglejte si posnetek zaslona:
3. V nadaljevanju Izberite Podvojene in edinstvene celice pogovorno okno, kliknite OK.
4. Zdaj so dvojniki izbrani, razen prvih primerkov, pritisnite Brisanje tipko, da odstranite izbrane dvojnike.
Opombe: Če želite izbrisati podvojene vrstice, morate samo preveriti Izberite celotne vrstice možnost v Izberite Podvojene in edinstvene celice pogovorno okno in nato uporabite Brisanje ukaz menija z desnim klikom, da odstranite celotne podvojene vrstice.
Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.
Odstranite dvojnike, vendar obdržite prvi primerek s programom Kutools za Excel
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!