Verwijderen Duplicaten in VBA Excel
Dubbele waarden zijn vaak niet vereist in Excel, vooral als u unieke waarden wilt laten tellen. We hebben meestal een andere set gegevens om mee te werken, en we zien er een heleboel dubbele waarden in.
Ik hoop dat je bekend bent met het verwijderen van duplicaten in Excel-werkblad, zo niet niets om je zorgen over te maken. We laten u een eenvoudig voorbeeld zien. Ook in VBA kunnen we de methode voor het verwijderen van duplicaten uitvoeren.
Het heeft dus alle dubbele waarden van de kop "Regio" verwijderd. Evenzo kunnen we deze taak uitvoeren met behulp van VBA-code.
Hoe verwijder je dubbele waarden in VBA-codering?
Om eerst dubbele waarden te verwijderen, moeten we het bereik vermelden waarnaar we verwijzen. Vervolgens hebben we toegang tot de methode "Duplicaten verwijderen". De syntaxis is dus als volgt.
(Column): Welke kolom van de selectie hebben we nodig om duplicaten te verwijderen? We moeten het kolomnummer van het geselecteerde bereik vermelden.
(Koptekst): het bereik dat u hebt geselecteerd, heeft kopteksten of niet. We hebben hier drie opties om mee te werken.
- xlYes: Als de gegevens headers hebben, kunt u dit selecteren.
- xlNo: Als de gegevens geen headers hebben, kunt u dit selecteren.
- xlGuess: Met deze optie kan de Excel de kopteksten van de gegevens raden.
Dus met behulp van deze parameters kunnen we duplicaten verwijderen met slechts een klik op een knop zonder ons zweet te breken.
In het onderstaande gedeelte zal ik u enkele van de voorbeelden laten zien om VBA duplicaten te verwijderen. Volg de stappen zorgvuldig om de code zelf te schrijven.
Voorbeelden van het verwijderen van dubbele waarden in VBA-codering
Hieronder staan de voorbeelden van Duplicaat verwijderen in waarden VBA.
VBA Verwijder duplicaten - Voorbeeld # 1
Overweeg ook de onderstaande gegevens voor dit voorbeeld.
Van de bovenstaande gegevens moeten we duplicaten van de kolom 'Regio' verwijderen, dus volg de onderstaande stappen om de code te schrijven.
Stap 1: Start de subprocedure door een macrocode een naam te geven.
Stap 2: Noem het gegevensbereik met behulp van het VBA Range-object .
Code:
Sub Remove_Duplicates_Example1 () Bereik ("A1: C9"). Einde Sub
Stap 3: Na het vermelden van het bereik, ga je naar de VBA- methode “ RemoveDuplicates ”.
Code:
Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates End Sub
Stap 4: Eerste argument in welke kolom we de dubbele waarden moeten verwijderen. In dit voorbeeld moeten we uit de eerste kolom de duplicaten verwijderen.
Code:
Sub Remove_Duplicates_Example1 () Bereik ("A1: C9"). RemoveDuplicates Kolommen: = 1, End Sub
Stap 5: Het volgende is of gegevens kopteksten hebben of niet. In dit geval hebben we kopteksten, dus selecteer 'xlYes'.
Code:
Sub Remove_Duplicates_Example1 () Bereik ("A1: C9"). RemoveDuplicates Kolommen: = 1, Header: = xlYes End Sub
Voer deze code uit. Het zal VBA duplicaten uit de geselecteerde regio verwijderen.
Dit is een expliciete manier om naar het celbereik te verwijzen. Als u het bereik zelf wilt selecteren en vervolgens duplicaten wilt verwijderen, moeten we de variabele gebruiken om mee te werken. In het onderstaande voorbeeld laat ik je zien hoe je variabelen in VBA kunt gebruiken.
VBA Verwijder duplicaten - Voorbeeld # 2
In bovenstaand voorbeeld hebben we specifiek het celbereik geleverd. Nu zullen we zien hoe we kunnen werken met de selectie van onze eigen cellen.
Ik heb bijvoorbeeld een paar sets gegevens, zoals weergegeven in de onderstaande afbeelding.
Elke keer dat ik het celbereik niet expliciet kan specificeren, zullen we de selectie als het bereik toewijzen.
Stap 1: Declareer de variabele als bereik .
Code:
Sub Remove_Duplicates_Example2 () Dim Rng As Range End Sub
Stap 2: Bereik is een object. We zullen het bereik instellen als onze selectie.
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection End Sub
Step 3: Now, instead of a range of cells, we can use the variable “rng.”
Code:
Sub Remove_Duplicates_Example2() Dim Rng As Range Set Rng = Selection Rng.RemoveDuplicates Columns:=1, Header:=xlYes End Sub
Before we run the code, we need to select the range of cells first. Then we can remove duplicates from the selected range of cells.
VBA Remove Duplicates from Multiple Columns - Example #3
We can also use VBA to remove duplicate values from excel columns as well. In order to remove multiple columns, we need to use Array and mention the column numbers.
For example, look at the example data image.
We hebben dubbele waarden in de eerste kolom en de vierde kolom. Dus we zullen uit deze kolommen verwijderen. Gebruik de onderstaande code voor VBA om duplicaten te verwijderen.
Code:
Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Kolommen: = Array (1, 4), Header: = xlYes End Sub
U kunt deze VBA Duplicaten verwijderen Excel hier downloaden. VBA Verwijder duplicaten Excel-sjabloon
