Tweet

Duplicitní hodnoty - odebrat - Excel VBA

Úvod do odebrání duplicit

Potřebuji využít Odebrání duplicitních hodnot z tabulky. Ať pro jeden sloupec (asi nejčastější volba v mém případě) tak i pro celou tabulku a u té na základě jednoho sloupce, nebo přes více sloupců.

Zdrojové data

Předpokládám, že máte následující tabulku, kterou potřebujete "pročistit".

Jméno	Příjmení
Pavel	Lasák
Pavel	Lasák
Pavel	Lasak
Iva	Malá
Iva	Velká
Iva	Malá

Co se v článku dozvíte

Přehled kapitol:

• Trocha teorie k RemoveDuplicates
• Duplicity jeden sloupec
• Duplicity tabulky - jeden sloupec
• Duplicity tabulky - více sloupců
• Ke stažení
• Související články

Trocha teorie k RemoveDuplicates

Syntaxe

RemoveDuplicates(Columns, Header)

Parametry:

• Columns - povinné
• Header - nepovinné (xlYes, xlNo)

Duplicity jeden sloupec

Potřebuji odebrat duplicity ve sloupci A, rozsah A5:A11, kdy tabulka obsahuje záhlaví:

Range("$A$5:$A$11").RemoveDuplicates Columns:=1, Header:=xlYes

Duplicity tabulky - jeden sloupec

Odebrat duplicity nad celou tabulkou podle jednoho sloupce. Navíc tabulka (data) jsou bez záhlaví.

Range("$A$5:$B$11").RemoveDuplicates Columns:=2, Header:=xlNo Range("$A$5:$B$11").RemoveDuplicates Columns:=1, Header:=xlNo

Duplicity tabulky - více sloupců

Odebrat duplicity nad tabulou pro více sloupců (tabulka obsahuje záhlaví):

Range("$A$5:$B$11").RemoveDuplicates Columns:=Array(1, 2), Header:=xlYes

Ke stažení

Soubor ke stažení zdarma je v přípravě.

Závěrem

Jak řešíte duplicity vy? Máte něěajký tip, trik?

Článek byl aktualizován: 19.09.2020 11:07

Odměna

Ušetřil vám tento web čas, peníze? Pomohl vyřešit problém? Jste ochotni poskytnout symbolickou odměnu na další rozvoj? Vybrte si formu odměny, která vám vyhovuje.

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře zatím nejsou

Můžete být prvními co zanechají smysluplný komentář.