ВБА Уклони дупликате

Екцел има функцију која се користи за уклањање дупликата вредности из изабраних ћелија, редова или табеле. Шта ако овај процес аутоматизујемо у ВБА? Да, поступак уклањања дупликата може се аутоматизовати у ВБА у облику макронаредбе. У процесу уклањања дупликата, након што је завршен, јединствене вредности остају на листи или табели. Ово се може догодити уз помоћ функције уклањања дупликата у ВБА.

Како се користи Екцел ВБА Уклањање дупликата?

Научићемо како користити ВБА Ремове Дуплицатес с неколико примера у екцелу.

Овде можете преузети овај ВБА Уклонити дупликате Екцел предлошка овде - ВБА Уклони дупликате Екцел предлошка

Пример # 1 - уклањање дупликата ВБА

Имамо листу бројева од 1 до 5 до реда 20 само у колони А. Као што можемо видети на слици испод, сви се бројеви понављају више пута.

Сада је наш задатак да ВБА уклонимо дупликат са листе. За то идите на ВБА прозор притиском на тастер Ф11.

У овом примеру ћемо видети основну употребу начина на који ВБА Ремове Дуплицатес може радити за бројеве. За то нам је потребан Модул.

Корак 1: Отворите нови модул из менија Уметање који се налази на картици Уметање.

Корак 2: Једном када је отворен упишите подкатегорију ВБА Ремове Дуплицате као што је приказано испод.

Шифра:

 Суб ВБАРемовеДуплицате1 () Крај Суб

Корак 3: У процесу уклањања дупликата прво морамо одабрати податке. За то ћемо у ВБА функцији Селецтион све док не падне да одабере комплетну листу података као што је приказано у наставку.

Шифра:

 Суб ВБАРемовеДуплицате1 () Избор. Заврши (клДовн) .Изаберите Крај Суб

Корак 4: Сада ћемо одабрати опсег одабраних ћелија или ступаца А. Ићи ће према доље док не будемо добили податке у одређеној колони. Не само до 20. реда.

Шифра:

 Под ВБАРемовеДуплицате1 () Селецтион.Енд (клДовн) .Одаберите опсег (Селецтион, Селецтион.Енд (клУп)). Селецт Енд Суб

Корак 5: Сада одаберите опсег ћелија на тренутно отвореном листу како је приказано у наставку. Ово ће активирати комплетну колону. Одабрали смо колону А до краја.

Шифра:

 Под ВБАРемовеДуплицате1 () Селецтион.Енд (клДовн) .Одаберите опсег (Селецтион, Селецтион.Енд (клУп)). Одаберите АцтивеСхеет.Ранге ("А: А"). Енд Суб

Корак 6: Сада користите функцију РемовеДуплицате овде. Ово ће активирати наредбу за уклањање дупликата из секвенце колона 1. Ако постоји више ступаца, тада ће се број додати и одвојити зарезима у заградама као (1, 2, 3, …).

Шифра:

 Под ВБАРемовеДуплицате1 () Селецтион.Енд (клДовн) .Селектри опсег (Селецтион, Селецтион.Енд (клУп)). Селецт АцтивеСхеет.Ранге ("А: А") РемовеДуплицатетес Цолумн: = 1, Енд Суб

Корак 7: Сада ћемо користити наредбу Хеадер која ће померити курсор до горње ћелије листа, која се углавном налази у заглављу било које табеле.

Шифра:

 Под ВБАРемовеДуплицате1 () Селецтион.Енд (клДовн) .Селектри опсег (Селецтион, Селецтион.Енд (клУп)). Селецт АцтивеСхеет.Ранге ("А: А") РемовеДуплицатес Цолумн: = 1, Хеадер: = клИес Енд Суб

Корак 8: Сада саставите кораке кода притиском на тастер Ф8. Након завршетка кликните на дугме Плаи да бисте покренули код као што је приказано у наставку.

Као што видимо, дупликат број избрисан је из колоне А и преостаје једино јединствено бројање.

Пример # 2 - Уклањање дупликата ВБА

У овом примеру ћемо видети како уклонити дупликате вредности из више ступаца. За ово ћемо размотрити исту дупликатну листу кориштену у примеру-1. Али на нови начин смо додали још 2 ступца истих вредности као што је приказано у наставку.

Ово је друга метода са мало другачијом структуром кода.

Корак 1: Отворите нови модул у ВБА и напишите подкатегорију у ВБА Ремове Дуплицате. Ако је могуће, тада му додајте редни број, тако да ће бити боље одабрати прави код за покретање.

Шифра:

 Суб ВБАРемовеДуплицате2 () Крај Суб

Корак 2: Прво одаберите комплетан лист у ВБА као што је приказано у наставку.

Шифра:

 Суб ВБАРемовеДуплицате2 () Целлс.Селецт Енд Суб

Корак 3: Сада одаберите тренутно отворени лист командом АцтивеСхеет и одаберите колоне А до Ц као што је приказано у наставку.

Шифра:

 Под ВБАРемовеДуплицате2 () Целлс.Селецт АцтивеСхеет.Ранге ("А: Ц"). Енд Суб

Корак 4: Сада изаберите команду РемовеДуплицатес и након тога изаберите низ ступаца од 1 до 3 као што је приказано у наставку.

Шифра:

 Под ВБАРемовеДуплицате2 () Целлс.Селецт АцтивеСхеет.Ранге ("А: Ц") РемовеДуплицатес Цолумн: = Арраи (1, 2, 3), Енд Суб

Корак 5: При последњој употреби наредба заглавља која се укључује у поступак уклањања дупликата као клИес као што је приказано у наставку.

Шифра:

 Под ВБАРемовеДуплицате2 () Целлс.Селецт АцтивеСхеет.Ранге ("А: Ц") РемовеДуплицатес Цолумн: = Арраи (1, 2, 3), Хеадер: = клИес Енд Суб

Корак 6: Сада саставите комплетан код и покрените. Као што видимо ниже, комплетан лист је одабран, али дупликатне вредности се уклањају из колона А, Б и Ц, водећи само јединствени број.

Пример # 3 - ВБА Уклони дупликате

Ово је још једна метода уклањања дупликата, што је најједноставнији начин уклањања дупликата у ВБА. За то ћемо користити податке које смо видели у примеру-1 и такође приказане у даљем тексту.

Корак 1: Сада пређите на ВБА и поново напишите подкатегорију ВБА Ремове Дуплицатес. Дали смо редослед сваког кода за који смо показали да има правилан запис.

Шифра:

 Суб ВБАРемовеДуплицате3 () Крај Суб

Корак 2: Ово је прилично сличан образац који смо видели у примеру-2, али је пречац за писање кода за уклањање дупликата. За ово прво директно започните с одабиром распона колоне као што је приказано у наставку. Задржали смо границу до 100. ћелије колоне А почевши од 1, а следи тачка (.)

Шифра:

 Под ВБАРемовеДуплицате3 () распон ("А1: А100"). Енд Суб

Корак 3: Сада одаберите наредбу РемовеДуплицатес као што је приказано у наставку.

Шифра:

 Под ВБАРемовеДуплицате3 () Опсег ("А1: А100") РемовеДуплицатес Енд Суб

Корак 4: Сада изаберите ступце А као наредбу Ступци са редоследом од 1. А након тога укључују заглавље одабраних колона као и доле приказане слике.

Шифра:

 Под ВБАРемовеДуплицате3 () Опсег ("А1: А100") УклониДупликате Ступце: = 1, Заглавље: = клДа Крај Пот

Корак 5: Сада га компајлирајте притиском на тастер Ф8 и покрените. Видећемо да је наш код уклонио дупликатне бројеве из колоне А и задржавају се само јединствене вредности.

Предности ВБА уклањања дупликата

  • Корисно је за брзо уклањање дупликата у било којем распону ћелија.
  • Лако је имплементирати.
  • Када радите на огромном скупу података, где уклањање дупликата постаје тешко ручно и обеси датотеке, а ВБА Ремове Дуплицатес делује у секунди и даје нам јединствене вредности.

Против ВБА Уклањање дупликата

  • Није корисно користити ВБА Ремове Дуплицатес за врло мале податке, јер би то лако могло учинити функцијом Уклони дупликат доступном на траци менија Подаци.

Ствари које треба запамтити

  • Распон се може одабрати на два начина. Једном када се изабере граница ћелија као што је приказано у примеру-1, а остало је одабир комплетне колоне до краја као што је приказано у примеру-1.
  • Проверите да ли је датотека сачувана у Мацро-омогућеном Екцелу, што ће нам омогућити да писани код користимо више пута без губитка.
  • Можете задржати вриједност функције Хеадер као Иес, јер ће се и заглавље бројати, док уклањате дупликате вриједности. Ако нема дуплиране вредности са именом имена заглавља, задржавање тога броја „ Но“ неће штетити.

Препоручени чланци

Ово је водич за уклањање дупликата ВБА. Овде смо расправљали о томе како користити Екцел ВБА Ремове Дуплицатес заједно са практичним примерима и довнлоад-ом Екцел предлошка. Можете и да прођете кроз друге наше предложене чланке -

  1. Рад са ВБА Ацтиве Целл
  2. Брисање реда у ВБА
  3. Како се користи Екцел ВБА Транспосе?
  4. Како поправити грешку 1004 помоћу ВБА

Категорија:

ВБА