Stránka 1 z 1

EXCEL 2007 -> odstranění duplicit

Napsal: 01 čer 2011 09:23
od wecker
Zdravím, potřeboval bych pomoc v Excelu 2007:

mám dva sloupce jmen, kde jsou duplicity (např. novák je v obou sloupcích)

a já potřebuji tyto jména, která jsou v obou sloupcích odstranit

Nevíte prosím někdo jak na to??
Díky!

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 01 čer 2011 16:29
od kuchyn
Zdravím,
zajímalo by mě, jestli chcete odstranit duplicity přímo v obou sloupcích nebo vytvořit vedle popř. na jiném listu opět oba sloupce bez duplicit?

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 02 čer 2011 07:57
od mejlacz
Já bych se přimlouval za odstranění duplicit v novém listě. Určitě bych makro využil také. Mě by se zároveň hodilo i smazání celého řádku, kde se duplicity nacházejí, ale to bych si případně zkusil dodělat sám, alespoň bych se ponořil do světa maker :)

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 02 čer 2011 12:24
od wecker
je mi jedno jestli to pujde na novy list, potrebuji odstranit duplicity z obou sloupcu (tzn. když novák je ve sloupci A i ve sloupci B, tak odstranit oba dva zaznamy) - podotykam, ze duplicitni jmena nemuseji byt na stejnem radku...
DIKY MOC, jestli mi nekdo poradite!

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 08 čer 2011 13:13
od franticek
Ahoj.

Pakliže předpokládám, že ta duplicita se může vyskytnout pouze jednou v daném sloupci, lze použít toto makro daného excelsheetu:

Kód: Vybrat vše

Sub find()
Dim r1 As Range
Dim r2 As Range

'nastav si požadované sloupce(každý zvlášť)
Set r1 = Range("A1:A3")
Set r2 = Range("B1:B2")

'vypni refresh
Application.ScreenUpdating = False

'pro každý řádek prvního sloupce
For Each cl1 In r1.Cells
    'projdi všechny řádky druhého sloupce
    For Each cl2 In r2.Cells
        'pokud se hodnoty rovnají
        If cl1.Value = cl2.Value Then
            'tak je vymaž
            cl1.Value = ""
            cl2.Value = ""
            'a ukonči prohledávání druhého sloupce
            Exit For
        End If
    Next
Next

'zapni refresh
Application.ScreenUpdating = true
End Sub


Asi by šla použít sofistikovanější metoda jako je Find, ale takto je to jednoduché na další úpravy i pochopení.

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 09 čer 2011 10:27
od wecker
Super funguje, diky moc. Jeste by bylo super kdyby to odmazalo cely radek, ale to uz se da nastavit ve filtru :-)

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 13 čer 2011 08:34
od franticek
Ahoj.
Mazání celého řádku nedoporučuji z níže uvedeného důvodu: :smile:
podotykam, ze duplicitni jmena nemuseji byt na stejnem radku...

Re: EXCEL 2007 -> odstranění duplicit

Napsal: 13 čer 2011 10:58
od kuchyn
Zdravím,
omlouvám se za odmlku a posílám makro na odstranění duplicit ve dvou sloupcích.