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.
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)
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:
2. Izberite ves obseg podatkov, vključno s celico formule, in kliknite datum > filter omogočiti filter funkcijo. Oglejte si posnetek zaslona:
3. Kliknite Ikona filtra v stolpcu D (stolpec s formulo) in preverite TURE s spustnega seznama si oglejte posnetek zaslona:
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:
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.
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
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:
4. klik OK, zdaj so podvojene vrednosti odstranjene iz izbora in pustijo prazne celice.
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:
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:
Zdaj je bil rezultat prikazan takole:
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:
2. V Ljubljani Izberite Podvojene in edinstvene celice pogovorno okno, preverite Dvojniki (razen prvega) možnost v Pravilo odsek. Oglejte si posnetek zaslona:
3. klik Ok, odpre se pogovorno okno, ki vas opozori, koliko dvojnikov je bilo izbranih, kliknite OK da ga zaprete. Oglejte si posnetek zaslona:
4. Nato pritisnite Brisanje , da odstranite izbrane podvojene vrednosti.
Odstranite dvojnike, vendar ohranite preostanek vrstice
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!