Excel - najít unikátní záznam

[Petrásek]

Dobrý den.
Mám na jednom listě dva sloupce s čísli, sloupec A a sloupec C.
Ve sloupci A jsou čísla, která se nebudou nikdy opakovat.
Ve sloupci C jsou čísla, která se nebudou nikdy opakovat.
Potřebuji do sloupce E vypsat pouze ta čísla, která jsou ve sloupci C a nejsou ve sloupci A, ta čísla, která jsou shodná v obou sloupcích nevypisovat.
Namáte někdo nápad, jak toto vyřešit?

[Reklama]

[cmuch]

Vítej na PC-Help

Tady je jedno makro, které vlož do příslušného listu.

Kód: Vybrat vše

Sub VzhledatJedinecne()

 Dim oblast As Range, oblast2 As Range, Cll As Range, vysledek As Variant

 Set oblast1 = Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
 Set oblast2 = Range("C1:C" & Cells(Rows.Count, "C").End(xlUp).Row)

 For Each Cll In oblast2

   With oblast1
     Set vysledek = .Find(Cll.Value, LookIn:=xlValues, LookAt:=xlWhole)
   End With

   If vysledek Is Nothing Then

     Cells(Cells(Rows.Count, "E").End(xlUp).Row + 1, "E") = Cll.Value
   End If

   Set vysledek = Nothing
 Next
End Sub


[Petrásek]

Super, mnohokráte děkuji, tohle bych dohromady nedal.