Microsoft Excel 2010 kan fremhæve dublerede værdier ved hjælp af en forudindstillet betinget formatering kommando , men hvis du har brug for at finde dubletter ved hjælp af en makro , kan du bruge Visual Basic for Applications ( VBA ) , som er indbygget i Microsoft Excel . Mens VBA ikke har en funktion, der vil finde dubletter , kan du udnytte funktionen TÆL.HVIS til at finde ud af, hvilke celler indeholder dublerede oplysninger . Instruktioner
1
Åbn Microsoft Excel 2010 -fil, der indeholder de data , du ønsker at tjekke for dubletter. Når regnearket kommer op , tryk på " Alt" og " F11 " for at indlæse VBA -konsollen.
2
Højreklik på regnearket i venstre side af VBA -skærmen. Bevæg musen over "Indsæt" og vælg " Modul ". Dobbeltklik på det nye modul , der vises et par linjer under regnearket.
3
Placer markøren i det hvide rum på højre side af skærmen. Skriv " Sub Dupecheck ( )" og tryk enter. VBA vil automatisk ind i " End Sub " kommando for dig.
4
Placer markøren på linien mellem "Sub " og " End Sub" linjer. Indtast følgende linjer kode :. .
Dim x As Long
Dim EndRow As Long
EndRow = Range (" A50000 " ) End ( xlUp ) Række < br >
Denne kode vil oprette to variabler , " EndRow " og " x " og derefter etablerer værdien for " EndRow ". Denne kode vil søge gennem 50.000 linjer i en enkelt kolonne , men hvis du har brug for at så se gennem flere linier , bare øge 50.000 til uanset antal, du har brug for. Denne kode er også designet til at se gennem kolonnen " A ", men du kan bare ændre "A" til uanset kolonnebogstav du har brug for .
5.
Sæt markøren på den næste linje , og indtaste følgende kode : Hej
x = EndRow Til 1 Step -1
p Hvis Application.WorksheetFunction.CountIf ( Range (" A1: A". & x ) , Range (" A " & x ) Tekst )> 1 Så
Range (" A " & x ) . Interior.Color = RGB ( 200 , 160 , 35)
End If
Next x < br > p Dette er kernen i den kode, der vil se gennem hver celle og afgøre, om en identisk celle eksisterer over det. Hvis den finder en dublet , vil det dreje cellebaggrunden en gul farve. Du kan ændre alle forekomster af "A" , hvis du arbejder på en anden kolonne. Du kan også ændre de tre tal efter " Interior.color " for at ændre , hvad farve cellen vender.
6
Klik på " x " i øverste højre hjørne af skærmen for at lukke VBA -konsollen . Klik på " Udvikler "-fanen øverst på skærmen . Find " Macro " knappen på venstre side af båndet , og klik på det. Vælg " Dupecheck " fra listen over tilgængelige makroer og klik på " Kør". Excel vil nu fremhæve enkelte eksemplarer i kolonnen af data.