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 izbrisati edinstvene vrednosti iz stolpca v Excelu?

Ponavadi večina od nas želi odstraniti podvojene vrednosti iz stolpca, včasih pa boste morda želeli odstraniti edinstvene vrednosti, ki se pojavijo samo enkrat v stolpcu. Ta vadnica govori o trikovih, s katerimi lahko odstranite edinstvene vrednosti samo iz stolpca v Excelu.

Izbrišite vrednosti unqiue z VBA v Excelu

Izbrišite vrednosti unqiue z orodji Kutools za Excel


puščica modra desno mehurček Izbrišite vrednosti unqiue z VBA v Excelu


Uporaba VBA lahko hitro izbriše vse edinstvene vrednosti iz enega stolpca.

1. Pritisnite Alt + F11 za prikaz Microsoft Visual Basic za aplikacije okno.

2. V oknu kliknite Vstavi > Moduli da prikažete novo okno modula, nato pa v okno modula kopirajte naslednjo kodo VBA.

VBA: Izbrišite edinstvene vrednosti iz stolpca.

Sub DeleteUnique()
'Updateby20140617
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim Dic As Variant
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)
Set Dic = CreateObject("Scripting.Dictionary")
Arr = WorkRng.Value
For i = 1 To UBound(Arr, 1)
    xValue = Arr(i, 1)
    Dic(xValue) = Dic(xValue) + 1
Next
WorkRng.ClearContents
Arr = WorkRng.Value
xIndex = 1
For Each xKey In Dic.keys
    xValue = Dic(xKey)
    If xValue > 1 Then
        For i = 1 To xValue
            Arr(xIndex, 1) = xKey
            xIndex = xIndex + 1
        Next
    End If
Next
WorkRng.Value = Arr
End Sub
3. klik Run gumb za zagon kode VBA in a KutoolsforExcel pogovorno okno izbere, da izberete obseg dela. Prikaz slike:

doc-delete-unique-1

4. klik OK, in vse edinstvene vrednosti se izbrišejo.


puščica modra desno mehurček Izbrišite vrednosti unqiue z orodji Kutools za Excel

Če niste seznanjeni z VBA, lahko uporabite funkcijo Kutools for Excel za Select Duplicate & Unique Cells, da odstranite edinstvene vrednosti v programu Excel.

Kutools za Excel vključuje več kot 300 priročno orodje Excel. Prosti brez omejitev v 30 dneh. Get it now

1. Izberite stolpec, iz katerega želite izbrisati edinstvene vrednosti, in kliknite Kutools > Izberite Orodja > Izberite podvojene in enolične celice. Prikaz slike:

doc-delete-unique-2

2. V pop-out pogovornem oknu preverite Edinstvene vrednosti in kliknite Ok, nato pa zaprite to pogovorno okno. Prikaz slike:

doc-delete-unique-3

3. Nato se prikažejo vse vrednosti, ki so bile izbrane samo enkrat. Z desno miškino tipko kliknite Brisanje v kontekstnem meniju. Prikaz slike:

doc-delete-unique-4

4. V Ljubljani Brisanje pogovorno okno, preverite celotno vrstico in kliknite OK. Prikaz slike:

doc-delete-unique-5

Zdaj lahko vidite, da so edinstvene vrednosti odstranjene.

doc-delete-unique-6 doc-arrow doc-delete-unique-7

Nasvet: Če želite samo odstraniti celično vsebino, lahko kliknete Počisti vsebino iz kontekstnega menija v koraku 3.

Tukaj lahko kliknete, če želite izvedeti več informacij o možnostih Izberi podvojene in enolične celice.


Relativni členi:


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.
    Mort W · 2 years ago
    VBA code does not work....I use option explicit and while I Dim xValue as Variant, keeps saying variable not defined.
    I'd say a good 80% of copied code from net does not work at first shot.
  • To post as a guest, your comment is unpublished.
    Mistereri · 3 years ago
    You are a life saver. God bless you
  • To post as a guest, your comment is unpublished.
    Rossini · 4 years ago
    How would one tweak the VBA code to delete the entire row based on unique value of one field only?

    The Kutools for Excel allow deletion of the entire row, but the code deletes only the unique values from one field.

    Thank you,