När du skapar rader och kolumner i Excel , kan du sluta med flera kopior av ett objekt , speciellt om du listar låtar . Användarna har möjlighet att filtrera dessa och ta bort dem genom Excel- verktyg . Men när ett kalkylblad är lång och ständigt förändras , kan du köra en liten Visual Basic Script ( VBScript ) för att få Excel att identifiera dubbletter och ta bort den snabbt . Instruktioner
1
Öppna databladet i Excel .
2
Tryck " Alt " och " F11 " för att öppna Visual Basic Editor .
3
Välj " Infoga"-fliken från det övre verktygsfältet och välj
4
Klistra in följande kod i rutan som visas " modul . " : " Option Explicit
Sub DeleteDups ( ) katalog
Dim x As LongDim LastRow As Long
LastRow = Range ( " A65536 " ) . End ( xlUp ) . RowFor x = LastRow Till 1 Step - 1Om Application . WorksheetFunction.CountIf ( Range ( " A1 : A " . & x ) , Range ( " A " & x ) Text ) . > 1 ThenRange ( " A " & x ) EntireRow.DeleteEnd IfNext x
End Sub "
5
Stäng fönstret genom att klicka på " X " i övre högra hörnet .
6
Testa funktionen genom att lägga till data till kolumn A. Duplicera vissa data avsiktligt .
7
Välj " Makron " uppifrån verktygsfältet och välj " DeleteDups " och tryck på " Enter ".
