РемовеДуплицатес у ВБА Екцел
Двоструке вредности често нису потребне у Екцелу, посебно када желите да се рачунају јединствене вредности. Обично имамо другачији скуп података за рад и у њему видимо гомилу дуплираних вредности.
Надам се да сте упознати са уклањањем дупликата у Екцел радном листу, ако не и због чега треба бринути. Показаћемо вам једноставан пример за вас. И у ВБА можемо извршити методу уклањања дупликата.
Дакле, уклонио је све дупликате вредности наслова „Регија“. Слично томе, овај задатак можемо обавити уз помоћ ВБА кода.
Како уклонити двоструке вредности у ВБА кодирању?
Да бисмо прво уклонили дупле вредности, морамо да поменемо опсег на који се позивамо. Тада можемо приступити методи „Уклони дупликате“. Дакле, синтакса ће бити следећа.
(Колона): Коју колону избора морамо да уклонимо дупликате? Морамо напоменути број колоне изабраног опсега.
(Заглавље): Опсег који сте изабрали садржи заглавља или не. Овде имамо три могућности за рад.
- клДа: Ако подаци имају заглавља, онда то можете одабрати.
- клНе: Ако подаци немају заглавља, онда можете да изаберете ово.
- клГуесс: Ова опција ће омогућити екцелу да погађа заглавља података.
Дакле, користећи ове параметре, можемо уклонити дупликате само једним кликом на дугме, а да се не ознојимо.
У одељку доле ћу вам показати неке примере уклањања дупликата помоћу ВБА. Пажљиво следите кораке да бисте сами написали код.
Примери уклањања двоструких вредности у ВБА кодирању
Испод су примери уклањања дупликата у вредностима ВБА.
ВБА Уклањање дупликата - Пример # 1
Узмите у обзир податке у наставку и за овај пример.
Из горњих података морамо уклонити дупликате колоне „Регион“, па следите кораке у наставку да бисте написали код.
Корак 1: Покрените потпроцедура давањем имена макро коду.
Корак 2: Спомените опсег података помоћу објекта ВБА Ранге .
Шифра:
Подухват Ремове_Дуплицатес_Екампле1 () Опсег ("А1: Ц9"). Енд Суб
Корак 3: Након помена методе приступа ВБА „ РемовеДуплицатес “.
Шифра:
Подухват Ремове_Дуплицатес_Екампле1 () Распон ("А1: Ц9"). РемовеДуплицатес Енд Суб
Корак 4: Први аргумент у којој колони треба да уклонимо дупле вредности. У овом примеру из прве колоне морамо да уклонимо дупликате.
Шифра:
Подухват Ремове_Дуплицатес_Екампле1 () Опсег ("А1: Ц9"). РемовеДуплицатес колоне: = 1, крај Суб
Корак 5: Следећа ствар је да ли подаци имају заглавља или не. У овом случају имамо заглавља, па одаберите „клИес“.
Шифра:
Суб Уклони_Дупликати_Пример1 () Опсег ("А1: Ц9"). Уклони дупликате Колоне: = 1, Заглавље: = клДа Заврши Суб
Покрените овај код. ВБА ће уклонити дупликате из изабраног региона.
Ово је експлицитан начин позивања на опсег ћелија. Ако желите сами да одаберете опсег, а затим уклоните дупликате, тада ћемо морати да користимо променљиву за рад. У доњем примеру, показаћу вам како да користите променљиве у ВБА.
ВБА Уклањање дупликата - Пример # 2
У горњем примеру, посебно смо навели низ ћелија. Сада ћемо видети како да радимо са избором сопствених ћелија.
На пример, имам неколико скупова података, као што је приказано на доњој слици.
Сваки пут не могу експлицитно да наведем опсег ћелија, па ћемо доделити избор као опсег.
Корак 1: Прогласите променљиву као опсег .
Шифра:
Суб Ремове_Дуплицатес_Екампле2 () Дим Рнг Ас Ранге Енд Суб
Корак 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.
У првој и четвртој колони имамо дуплиране вредности. Па ћемо уклонити из ових колона. Користите доњи код за ВБА да бисте уклонили дупликате.
Шифра:
Суб Ремове_Дуплицатес_Екампле3 () Дим Рнг Ас Ранге Сет Рнг = Ранге ("А1: Д9") Рнг.РемовеДуплицатес Цолумнс: = Арраи (1, 4), Хеадер: = клИес Енд Суб
Овде можете преузети овај ВБА Ремове Дуплицатес Екцел. ВБА Уклањање дупликата Екцел предлошка
