Welkom op de Nederland Computer Kennisnetwerk!  
 
Zoeken computer kennis
Home Hardware Netwerken Programmering Software Computerstoring Besturingssysteem
Computer Kennis >> Software >> Microsoft Access >> Content
Hoe kan ik zoeken naar duplicaten in Excel Visual Basic
Microsoft Excel 2010 kunt markeren dubbele waarden met behulp van een vooraf ingestelde voorwaardelijke opmaak commando , maar als je nodig hebt om de duplicaten te vinden met behulp van een macro , kunt u gebruik maken van Visual Basic for Applications ( VBA ) , die is ingebouwd in Microsoft Excel . Terwijl VBA niet een functie die duplicaten te vinden , kunt u de functie AANTAL.ALS benutten om uit te vinden welke cellen dubbele informatie bevatten. Instructies
1

Open de Microsoft Excel 2010 -bestand dat de gegevens die u wilt controleren op duplicaten bevat . Wanneer het werkblad komt , drukt u op " Alt " en " F11 " om de VBA -console te laden . Kopen van 2

Klik met de rechtermuisknop op uw werkblad op de linkerkant van het VBA -scherm . Beweeg de muis over " Insert " en kies " Module . " Dubbelklik op de nieuwe module die een paar regels onder het werkblad weergegeven .

Plaats 3 de cursor in de witte ruimte aan de rechterkant van het scherm . Typ " Sub Dupecheck ( ) " en druk op enter . VBA zal de " End Sub " commando automatisch in voor u .

Plaats 4 cursor op de lijn tussen de " Sub " en " End Sub " lijnen . Voer de volgende regels code : . .

Dim x
zoals lang

Dim endrow
As Long

endrow = Range
( " A50000 " ) End ( xlUp ) Row < br >

Deze code zal twee variabelen te creëren , " endrow " en " x ", en stelt vervolgens de waarde voor " endrow . " Deze code zal doorzoeken 50.000 lijnen in een enkele kolom , maar als je nodig hebt om zo te kijken door meer regels , alleen verhogen 50.000 om het aantal u nodig hebt . Deze code is ook bedoeld om te kijken door middel van kolom " A ", maar u kunt eenvoudig veranderen " A " aan welke kolom letter je nodig hebt .

Place 5 cursor op de volgende regel en voer de volgende code :

Voor x = endrow To 1 Step -1

Als Application.WorksheetFunction.CountIf ( Range ( " A1 : A " . & x ) , Range ( " A " & x ) tekst )

Range > 1 dan
( " A " & x ) . Binnenste kleur = RGB ( 200 , 160 , 35 )

Eind
Als

Volgende x < br > p Dit is de kern van de code die zal kijken door elke cel en bepalen of een identieke cel bestaat erboven . Als het een duplicaat , schakelt de cel achtergrond van een gele kleur . U kunt elke instantie van " A " als u werkt op een andere kolom . Wijzigen U kunt ook de drie nummers veranderen na " Binnenste " om te veranderen wat de kleur van de cel verandert .
6

Klik op de " x " in de rechterbovenhoek van het scherm om de VBA console te sluiten . Klik op het tabblad "Ontwikkelaar " aan de bovenkant van het scherm . Zoek de " Macro " knop aan de linker kant van het lint en klik erop . Selecteer " Dupecheck " uit de lijst met beschikbare macro's en klik op "Run . " Excel zal nu markeren elk duplicaat in de kolom met gegevens .

Previous: Next:
  Microsoft Access
·Hoe kan ik Excel spreadsheets …
·Hoe maak je een WBS maken in E…
·Hoe maak je een standaard form…
·Hoe Microsoft Access-database …
·Hoe maak je een Excel -werkbla…
·Hoe je afbeeldingen en tekst P…
·Geavanceerde Microsoft Excel T…
·Hoe kan ik gegevens downloaden…
·SQL analytische functies in Mi…
  Related Articles
Hoe maak je een Tilde gebruiken in een W…
Hoe kan ik een Umlaut gebruiken in een W…
Hoe maak je een Holiday Nieuwsbrief op u…
Hoe maak je een viervoudige Wenskaart ma…
Hoe maak je een Tent - Fold Wenskaart Ma…
Hoe te Spelling en grammatica fouten te …
Hoe kan ik een document Zoom in Word 200…
Hoe je tekst rond een afbeelding in Word…
Hoe je de uitlijning van de tekst wijzig…
  Software Articles
·Hoe MTS bestanden kijken 
·TurboCAD Constraint Tutorial 
·Hoe te Encryption verwijderen in Excel 2…
·EPF File Extension 
·Hoe te converteren naar lijntekening in …
·Hoe te Installeer Microsoft Ultimate Ste…
·Hoe maak je een perspectief kiezen in Pr…
·Computer Mic Effects 
·Hoe kan ik een achtergrond in Photoshop …
Copyright © Computer Kennis http://www.nldit.com