Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako odstraniti dvojnike, vendar hranite prvi primer v Excelu?

Recimo, da v vašem delovnem listu obstaja seznam vrednosti, ki vsebuje nekaj dvojnikov, zdaj pa morate odstraniti dvojnike, vendar obdržati prvo vrstico, v kateri je najdena podvojena vrednost. V tem članku vam bomo pokazali dva načina odstranjevanja dvojnikov, vendar v Excelu hranite prvi primer.

Odstranite podvojene kopije, vendar najprej ohranite kodo VBA

Odstranite podvojene datoteke, vendar ob prvem primerku z Kutools za Excel


Preprosto označite vse podvojene ali edinstvene vrednosti na seznamu

z Kutools za Excel's Izberite podvojene in enolične celice uporabnost, lahko hitro izberete vse podvojene ali uqique vrednosti na seznamu v Excelu.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačno preskusno različico zdaj


Odstranite podvojene kopije, vendar najprej ohranite kodo VBA


Zaženite spodnjo kodo VBA, da odstranite podvojene enote, vendar prvega primerka shranite v stolpcu.

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 kode.

VBA koda: odstranite dvojnike, vendar ob prvem primerku

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 ključ za zagon kode. Pri pojavu KutoolsforExcel v pogovornem oknu, izberite obseg, ki ga želite odstraniti, in kliknite OK gumb. Prikaz slike:

Sedaj si lahko ogledate vse podvojene vrstice, razen če so iz izbranega stolpca odstranjeni prvi zapisi. Prikaz slike:


Odstranite podvojene datoteke, vendar ob prvem primerku z Kutools za Excel

Poleg kode VBA lahko uporabite tudi Izberite podvojene in enolične celice uporabnost Kutools za Excel dodatek za preprosto odstranjevanje dvojnikov, vendar ohranite prve primere v Excelu.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, brezplačno lahko poskusite brez omejitev v 60 dneh.

1. Izberite obseg, v katerem želite odstraniti dvojnike, vendar najprej shranite primere. Nato kliknite Kutools > Izberite > Izberite podvojene in enolične celice. Prikaz slike:

2. V Ljubljani Izberite podvojene in enolične celice pogovorno okno, izberite Podvojeni (razen 1st eden) in nato kliknite OK gumb. Prikaz slike:

doc odstraniti dvojnike1

3. V nadaljevanju Izberite podvojene in enolične celice pogovorno okno, kliknite OK.

doc odstraniti dvojnike1

4. Zdaj so izbrani dvojniki razen prvih primerkov, prosimo pritisnite Brisanje ključ, da odstranite izbrane dvojnike.

Opombe: Če želite izbrisati podvojene vrstice, morate le preveriti Izberite vse vrste vrstic možnost v Izberite podvojene in enolične celice pogovorno okno in nato uporabite Brisanje ukaz desnega klika, da odstranite celotne podvojene vrstice.

Nasvet.Če želite imeti brezplačen preskus tega pripomočka, pojdite na brezplačno prenesete programsko opremo najprej in pojdite, da uporabite operacijo v skladu z zgornjimi koraki.


Odstranite podvojene datoteke, vendar ob prvem primerku z Kutools za Excel

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 60 dneh. Prenesite brezplačen preskus zdaj!


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lelouch · 2 years ago
    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?