VBA Ta bort dubbletter - Hur tar jag bort duplicerade värden i Excel VBA?

Innehållsförteckning

Ta bort dubbletter i VBA Excel

Duplicera värden krävs ofta inte i excel, speciellt när du vill ha unika värden. Vi har vanligtvis en annan uppsättning data att arbeta med, och vi ser en massa dubbla värden i den.

Jag hoppas att du är bekant med att ta bort dubbletter i Excel-kalkylbladet, om inte något att oroa sig för. Vi visar ett enkelt exempel för dig. Även i VBA kan vi utföra metoden för att ta bort dubbletter.

Så det har tagit bort alla dubbletter av rubriken "Region". På samma sätt kan vi göra denna uppgift med hjälp av VBA-kod.

Hur tar jag bort dubbletter av VBA-kodning?

För att ta bort dubbla värden först måste vi nämna det intervall vi hänvisar till. Då kan vi komma åt metoden "Ta bort dubbletter". Så syntaxen kommer att vara som följer.

(Kolumn): Vilken kolumn i urvalet behöver vi för att ta bort dubbletter? Vi måste nämna kolumnnumret för det valda intervallet.

(Rubrik): Området du har valt har rubriker eller inte. Vi har tre alternativ att arbeta med här.

  • xlJa: Om data har rubriker kan du välja detta.
  • xlNo: Om data inte har rubriker kan du välja detta.
  • xlGuess: Det här alternativet gör att Excel kan gissa rubrikerna på data.

Så med hjälp av dessa parametrar kan vi ta bort dubbletter med bara ett klick på en knapp utan att svettas.

I avsnittet nedan kommer jag att visa dig några av exemplen för VBA ta bort dubbletter. Följ stegen noggrant för att skriva koden på egen hand.

Exempel på Ta bort duplicerade värden i VBA-kodning

Nedan följer exemplen på Ta bort duplikat i värden VBA.

VBA Ta bort dubbletter - Exempel nr 1

Tänk också på nedanstående data för detta exempel.

Från ovanstående data måste vi ta bort "Region" -kolumn dubbletter, så följ stegen nedan för att skriva koden.

Steg 1: Starta underproceduren genom att ge en makrokod ett namn.

Steg 2: Nämn dataområdet med hjälp av objektet VBA Range .

Koda:

Sub Ta bort_Duplicates_Example1 () Område ("A1: C9"). Avsluta sub

Steg 3: Efter att ha nämnt metoden för åtkomst till VBA “ RemoveDuplicates ”.

Koda:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates End Sub

Steg 4: Första argumentet i vilken kolumn vi behöver ta bort dubblettvärdena. I det här exemplet, från den första kolumnen, måste vi ta bort dubbletterna.

Koda:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Column: = 1, End Sub

Steg 5: Nästa sak är om data har rubriker eller inte. I det här fallet har vi rubriker, så välj “xlYes”.

Koda:

Sub Remove_Duplicates_Example1 () Range ("A1: C9"). RemoveDuplicates Column: = 1, Rubrik: = xl Ja Slut Sub

Kör den här koden. Det kommer att VBA ta bort dubbletter från den valda regionen.

This is an explicit way of referring to the range of cells. If you wish to select the range on our own and then remove duplicates, then we need to use the variable to work with. In the below example, I will show you how to use variables in VBA.

VBA Remove duplicates - Example #2

In the above example, we have specifically supplied the range of cells. Now we will see how to work with the selection of our own cells.

For example, I have a few sets of data, as shown in the below image.

Each time I cannot specify the range of cells explicitly, so we will assign the selection as the range.

Step 1: Declare the variable as Range.

Code:

Sub Remove_Duplicates_Example2() Dim Rng As Range End Sub

Step 2: Range is an object. We will set the range as our selection.

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.

Vi har duplicerade värden i första och fjärde kolumnen. Så vi tar bort från dessa kolumner. Använd koden nedan för att VBA för att ta bort dubbletter.

Koda:

Sub Remove_Duplicates_Example3 () Dim Rng As Range Set Rng = Range ("A1: D9") Rng.RemoveDuplicates Column: = Array (1, 4), Header: = xlYes End Sub

Du kan ladda ner VBA Ta bort duplikat Excel här. VBA Ta bort duplikat Excel-mall

Intressanta artiklar...