VBA Премахване на дубликати - Как да премахна дублиращи се стойности в Excel VBA?

Съдържание

RemoveDuplicates във VBA Excel

Дублиращите се стойности често не се изискват в Excel, особено когато искате да имате брой уникални стойности. Обикновено имаме различен набор от данни, с които да работим и виждаме куп дублиращи се стойности в него.

Надявам се, че сте запознати с премахването на дубликати в работния лист на Excel, ако не и с какво да се притеснявате. Ще ви покажем един прост пример за вас. Във VBA също можем да изпълним метода за премахване на дубликати.

И така, премахна всички дублиращи се стойности на заглавието „Регион“. По същия начин можем да изпълним тази задача с помощта на VBA код.

Как да премахна дублиращи се стойности в кодирането на VBA?

За да премахнем първо дублиращи се стойности, трябва да споменем диапазона, за който говорим. Тогава можем да осъществим достъп до метода „Премахване на дубликати“. Така че синтаксисът ще бъде както следва.

(Колона): Коя колона от селекцията трябва да премахнем дубликати? Трябва да споменем номера на колоната на избрания диапазон.

(Header): Избраният от вас диапазон има заглавки или не. Имаме три възможности за работа тук.

  • xlДа: Ако данните имат заглавки, можете да изберете това.
  • xlНе: Ако данните нямат заглавки, можете да изберете това.
  • xlGuess: Тази опция ще позволи на Excel да отгатне заглавията на данните.

Така че, използвайки тези параметри, можем да премахнем дубликати само с едно щракване на бутон, без да нарушаваме потта си.

В раздела по-долу ще ви покажа някои от примерите за премахване на дубликати на VBA. Следвайте внимателно стъпките, за да напишете кода сами.

Примери за премахване на дублиращи се стойности в кодирането на VBA

По-долу са примерите за премахване на дубликат в стойности VBA.

VBA Премахване на дубликати - Пример # 1

Обмислете и данните по-долу за този пример.

От горните данни трябва да премахнем дубликати на колона „Регион“, така че следвайте стъпките по-долу, за да напишете кода.

Стъпка 1: Стартирайте подпроцедурата, като дадете име на макрокода.

Стъпка 2: Споменете диапазона от данни, като използвате обекта VBA Range .

Код:

Sub Remove_Duplicates_Example1 () Диапазон ("A1: C9"). Крайна под

Стъпка 3: След споменаване на метода за премахване на дублирания на VBA за обхвата .

Код:

Sub Remove_Duplicates_Example1 () Диапазон ("A1: C9"). RemoveDuplicates End Sub

Стъпка 4: Първи аргумент, в коя колона трябва да премахнем дублиращите се стойности. В този пример от първата колона трябва да премахнем дубликатите.

Код:

Sub Remove_Duplicates_Example1 () Диапазон ("A1: C9"). RemoveDuplicates Columns: = 1, End Sub

Стъпка 5: Следващото нещо е дали данните имат заглавки или не. В този случай имаме заглавки, така че изберете „xlYes“.

Код:

Sub Remove_Duplicates_Example1 () Диапазон ("A1: C9"). RemoveDuplicates Колони: = 1, Header: = xl Да Край Sub

Изпълнете този код. Той ще премахне дубликати от избрания регион.

Това е изричен начин за препращане към диапазона от клетки. Ако искате сами да изберете диапазона и след това да премахнете дубликати, тогава трябва да използваме променливата, за да работим с нея. В примера по-долу ще ви покажа как да използвате променливи във VBA.

VBA Премахване на дубликати - Пример # 2

В горния пример ние специално предоставихме гамата от клетки. Сега ще видим как да работим с избора на нашите собствени клетки.

Например имам няколко набора от данни, както е показано на изображението по-долу.

Всеки път, когато не мога да посоча изрично диапазона от клетки, така че ще присвоим селекцията като диапазон.

Стъпка 1: Декларирайте променливата като Range .

Код:

Sub Remove_Duplicates_Example2 () Dim Rng As Range End Sub

Стъпка 2: Обхватът е обект. Ще зададем диапазона като наш избор.

Код:

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.

Имаме дублирани стойности в първата колона и четвъртата колона. Така че ще премахнем от тези колони. Използвайте кода по-долу за VBA, за да премахнете дубликати.

Код:

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

Можете да изтеглите този VBA Премахване на дубликати Excel тук. VBA Премахване на дублиращи се шаблони на Excel

Интересни статии...