Preskoči na glavno vsebino

Kako odstraniti dvojnike, a obdržati ostale vrednosti vrstic v Excelu?

V Excelu bo odstranil vse podvojene vrednosti in se premaknil navzgor, ko uporabite funkcijo Odstrani dvojnike, kot je prikazano posnetek zaslona 1. V nekaterih primerih boste morda želeli odstraniti dvojnike, vendar boste ostale vrednosti vrstic ohranili, kot je prikazano na sliki 2 Zdaj bom v tem primeru predstavil nekaj trikov za brisanje dvojnikov, ostalo pa v Excelu.

doc odstrani dvojnike obdrži ostalo 1 doc odstrani dvojnike obdrži ostalo 2

Odstranite dvojnike, ostale vrednosti vrstic pa obdržite s filtrom (3 koraki)

Odstranite dvojnike, obdržite pa ostale vrednosti vrstic z VBA (4 koraki)

Odstranite dvojnike, obdržite pa ostale vrednosti vrstic s Kutools za Excel (2 koraka)dobra ideja3


Odstranite dvojnike, ostale vrednosti vrstic pa obdržite s filtrom

S formulo in funkcijo filtriranja lahko hitro odstranite dvojnike, vendar ohranite počitek.

1. Izberite prazno celico poleg obsega podatkov, na primer D2, vnesite formulo = A3 = A2, povlecite ročico za samodejno polnjenje navzdol do celic, ki jih potrebujete. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 3

2. Izberite ves obseg podatkov, vključno s celico formule, in kliknite datum > filter omogočiti filter funkcijo. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 4

3. Kliknite Ikona filtra v stolpcu D (stolpec s formulo) in preverite TURE s spustnega seznama si oglejte posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 5

4. klik OK, nato so bili vsi dvojniki na seznamu in izberite vse podvojene vrednosti, pritisnite Brisanje tipko, da jih odstranite. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 6

5. klik datum > filter onemogočiti filterin po potrebi odstranite formule. Vidite lahko, da so bili vsi dvojniki odstranjeni, ostale vrednosti pa so v vrstici.
doc odstrani dvojnike obdrži ostalo 7


Odstranite dvojnike, ostale vrednosti vrstic pa obdržite z VBA

V Excelu obstaja koda VBA, ki lahko tudi odstrani dvojnike, vendar obdrži preostale vrednosti vrstic.

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

2. klik Vstavi > module in spodnjo kodo prilepite v Moduli.

VBA: Odstranite dvojnike, obdržite pa ostale vrednosti vrstic

Sub RemoveDuplicates()
'UpdatebyExtendoffice20160918

    Dim xRow As Long
    Dim xCol As Long
    Dim xrg As Range
    Dim xl As Long
    On Error Resume Next
    Set xrg = Application.InputBox("Select a range:", "Kutools for Excel", _
                                    ActiveWindow.RangeSelection.AddressLocal, , , , , 8)

    xRow = xrg.Rows.Count + xrg.Row - 1
    xCol = xrg.Column
    'MsgBox xRow & ":" & xCol
    Application.ScreenUpdating = False
    For xl = xRow To 2 Step -1
        If Cells(xl, xCol) = Cells(xl - 1, xCol) Then
            Cells(xl, xCol) = ""
        End If
    Next xl
    Application.ScreenUpdating = True
    
End Sub

doc odstrani dvojnike obdrži ostalo 8

3. Pritisnite F5 za zagon kode, se odpre pogovorno okno, ki vas opomni, da izberete obseg, iz katerega želite odstraniti podvojene vrednosti. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 9

4. klik OK, zdaj so podvojene vrednosti odstranjene iz izbora in pustijo prazne celice.
doc odstrani dvojnike obdrži ostalo 10


Odstranite dvojnike, obdržite pa ostale vrednosti vrstic s programom Kutools za Excel

Če imate Kutools za Excel - nameščeno priročno in zmogljivo orodje za dodajanje, ki ga lahko hitro odstranite, vendar ohranite vrednosti počitka ali vrstic na dva načina.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Excel, naredite spodaj :(Brezplačno prenesite Kutools za Excel zdaj!)

1. način Spoji iste celice (2 koraka)

1. Izberite podvojene vrednosti in kliknite Kutools > Spoji in razdeli > Spoji iste celice. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 11

2. Potem so bile podvojene vrednosti združene v eno celico. In kliknite HOME > Spoji in centriraj > Odklopite celice, da jih razdelite. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 12

Zdaj je bil rezultat prikazan takole:
doc odstrani dvojnike obdrži ostalo 13

2. način Izberite podvojene in edinstvene celice (4 koraki)

1. Izberite seznam podatkov, s katerih želite odstraniti dvojnike, in kliknite Kutools > Izberite > Izberite Podvojene in edinstvene celice. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 14

2. V Ljubljani Izberite Podvojene in edinstvene celice pogovorno okno, preverite Dvojniki (razen prvega) možnost v Pravilo odsek. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 15

3. klik Ok, odpre se pogovorno okno, ki vas opozori, koliko dvojnikov je bilo izbranih, kliknite OK da ga zaprete. Oglejte si posnetek zaslona:
doc odstrani dvojnike obdrži ostalo 16

4. Nato pritisnite Brisanje , da odstranite izbrane podvojene vrednosti.

doc odstrani dvojnike obdrži ostalo 17

Nasvet: z Kutools za ExcelJe Napredne kombinirane vrstice lahko združite podvojene vrednosti in nato naredite nekaj izračunov v drugem stolpcu, kot je prikazano na spodnjem posnetku zaslona. V celoti deluje brez omejitev v 30 dneh,prosim prenesite in si zagotovite brezplačno preskusno različico zdaj
doc odstrani dvojnike obdrži ostalo 18

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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

zavihek kte 201905


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!
Comments (14)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
iNFORMATION IS VERY USEFUL.SAVED A LOT OF TIME

THANKS.
This comment was minimized by the moderator on the site
It help me after long search thank bro
This comment was minimized by the moderator on the site
Thank you so much! This was very helpful!!
This comment was minimized by the moderator on the site
i would use the formula =A3<>A2 (not equal to ) so that it show up on top vs. last one on bottom.
This comment was minimized by the moderator on the site
i tried the formula =A2=A1, it also got the result of show up on top.
This comment was minimized by the moderator on the site
i tried the formula =A1=A2, it also get the same result of show up on top
This comment was minimized by the moderator on the site
the true false really helped!
This comment was minimized by the moderator on the site
The True/False solution is a smart trick. Thanks
This comment was minimized by the moderator on the site
Is it possible to merge the like cells without the Kutools add-in?
This comment was minimized by the moderator on the site
This comment was minimized by the moderator on the site
In the first method, instead of =A3=A2, you can do =A2=A1 to keep the first instance and delete the rest of the duplicates.
This comment was minimized by the moderator on the site
yes it works
This comment was minimized by the moderator on the site
Thank you for this comment! Exactly what I was looking for!
This comment was minimized by the moderator on the site
Thank you for this tutorial, it saves me from tons of work removing duplicates.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations