Hur tar jag bort unika värden från en kolumn i Excel?
Vanligtvis vill de flesta av oss ta bort dubbla värden från en kolumn, men ibland kanske du vill ta bort de unika värdena som bara visas en gång i kolumnen. Denna handledning talar om tricks för dig att bara ta bort unika värden från en kolumn i Excel.
Ta bort unqiue-värden med VBA i Excel
Ta bort unqiue-värden med Kutools för Excel
Ta bort unqiue-värden med VBA i Excel
Att använda VBA kan snabbt ta bort alla unika värden från en kolumn.
1. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.
2. Klicka på i fönstret Insert > Modulerna för att visa ett nytt modulfönster och kopiera sedan följande VBA-kod till modulfönstret.
VBA: Ta bort unika värden från en kolumn.
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. klick Körning knappen för att köra VBA-koden och en KutoolsforExcel dialogrutan dyker upp för att välja ett intervall som ska fungera. Se skärmdump:
4. klick OK, och alla unika värden raderas.
Ta bort unqiue-värden med Kutools för Excel
Om du inte är bekant med VBA kan du överväga att använda Kutools för Excel Välj funktionen Duplicera och unika celler för att ta bort de unika värdena i Excel.
Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu
1. Markera den kolumn du vill ta bort de unika värdena från och klicka på Kutools > Välj Verktyg > Välj Duplicera och unika celler. Se skärmdump:
2. Kontrollera i popup-dialogrutan Endast unika värden och klicka Okoch stäng sedan denna dialog. Se skärmdump:
3. Då visas alla värden bara en gång har valts. Och högerklicka för att klicka Radera i snabbmenyn. Se skärmdump:
4. I Radera dialogrutan, markera Hela raden och klicka OK. Se skärmdump:
Nu kan du se de unika värdena tas bort.
Tips: Om du bara vill ta bort cellinnehållet kan du klicka Rensa innehåll från snabbmenyn i steg 3.
Du kan klicka här för att få mer information om Select Duplicate & Unique Cells.
Relativa artiklar:
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!