EXCEL 2007 -> odstranění duplicit

[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!

[Reklama]

[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?

[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 :)

[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!

[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í.

[wecker]

Super funguje, diky moc. Jeste by bylo super kdyby to odmazalo cely radek, ale to uz se da nastavit ve filtru :-)

[franticek]

Ahoj.
Mazání celého řádku nedoporučuji z níže uvedeného důvodu:

podotykam, ze duplicitni jmena nemuseji byt na stejnem radku...

[kuchyn]

Zdravím,
omlouvám se za odmlku a posílám makro na odstranění duplicit ve dvou sloupcích.