Kako izbrisati edinstvene vrednosti iz stolpca v Excelu?
Običajno večina od nas želi odstraniti podvojene vrednosti iz stolpca, včasih pa boste morda želeli odstraniti edinstvene vrednosti, ki so v stolpcu prikazane le enkrat. Ta vadnica govori o trikih za odstranjevanje edinstvenih vrednosti samo iz stolpca v Excelu.
Vrednosti unqiue izbrišite z VBA v Excelu
Vrednosti unqiue izbrišite s programom Kutools for Excel
- Ponovno uporabi vse: Med priljubljene dodajte najbolj uporabljene ali zapletene formule, grafikone in kar koli drugega ter jih v prihodnosti hitro ponovno uporabite.
- Več kot 20 besedilnih funkcij: Izvleček številke iz besedilnega niza; Izvleči ali odstrani del besedil; Pretvorite številke in valute v angleške besede.
- Združi orodja: Več delovnih zvezkov in listov v eno; Združi več celic / vrstic / stolpcev brez izgube podatkov; Združi podvojene vrstice in vsoto.
- Razdeljena orodja: Razdeli podatke na več listov na podlagi vrednosti; En delovni zvezek v več datotek Excel, PDF ali CSV; En stolpec na več stolpcev.
- Prilepi preskoči Skrite / filtrirane vrstice; Štetje in vsota glede na Barva ozadja; V večjem obsegu pošiljajte osebna e-poštna sporočila več prejemnikom.
- Super filter: Ustvarite napredne filtrirne sheme in uporabite za vse liste; Razvrščanje po tednih, dnevih, pogostosti in še več; filter s krepkim tiskom, formule, komentar ...
- Več kot 300 zmogljivih funkcij; Deluje z Office 2007-2021 in 365; Podpira vse jezike; Enostavna uvedba v vašem podjetju ali organizaciji.
Vrednosti unqiue izbrišite z VBA v Excelu
Z uporabo VBA lahko iz enega stolpca hitro izbrišete vse edinstvene vrednosti.
1. Pritisnite Alt + F11 za prikaz Microsoft Visual Basic za aplikacije okno.
2. V oknu kliknite Vstavi > Moduli za prikaz novega okna modula, nato v okno modula kopirajte naslednjo kodo VBA.
VBA: iz stolpca izbrišite enolične vrednosti.
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
4. klik OK, in vse enolične vrednosti se izbrišejo.
Vrednosti unqiue izbrišite s programom Kutools for Excel
Če VBA ne poznate, lahko za odstranitev edinstvenih vrednosti v Excelu uporabite funkcijo Kutools for Excel s funkcijo Select Duplicate & Unique Cells.
Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now
1. Izberite stolpec, iz katerega želite izbrisati unikatne vrednosti, in kliknite Kutools > Izberite Orodja > Izberite Podvojene in edinstvene celice. Oglejte si posnetek zaslona:
2. V pojavnem oknu potrdite Samo edinstvene vrednosti in kliknite Okin nato zaprite to pogovorno okno. Oglejte si posnetek zaslona:
3. Potem so vse vrednosti prikazane samo enkrat. In z desno miškino tipko kliknite Brisanje v priročnem meniju. Oglejte si posnetek zaslona:
4. V Ljubljani Brisanje pogovorno okno, preverite Celotna vrstica in kliknite OK. Oglejte si posnetek zaslona:
Zdaj lahko vidite, da so edinstvene vrednosti odstranjene.
|
|
|
Nasvet: Če želite samo odstraniti vsebino celice, lahko kliknete Počisti vsebino iz kontekstnega menija v 3. koraku.
Za več informacij o Izberite podvojene in edinstvene celice lahko kliknete tukaj.
Relativni članki:
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
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!
