Jak odstranit duplicitní řádky v Excelu.

Množily se mi dotazy, jak vyřešit výmaz duplikátních záznamů v Excelu.

Napsal jsem proto funkci, která vrací řádky, které jsou totožné pouze jednou.Jak že to vlasně funguje?
Z listu, který chci vyčistit spustím makro CopyOnlyUniq.To vytvoří další list se jménem NovyList, do kterého přenese opakující se řádky pouze jednou.

Řádky musí být schodné opravdu ve všech sloupcích!
Otestováno na Word2000 CZ.
Kód makra je hodně komentovaný, takže myslím že není třeba se dále rozepisovat.

Sub CopyOnlyUniq() 
  Dim nsht As Worksheet 
  Dim osht As Worksheet 
  
  'Aktivni sheet ulozit
  Set osht = ActiveSheet 
  'Cely sheet vybrat
  Cells.Select 
  'Nastavit rozsireny filtr
  '   Na unikatni zaznamy
  Selection.AdvancedFilter Action:=xlFilterInPlace, _
                           Unique:=True 
  'Zobrazi se jen unikatni zaznamy
  'ty zkopirujeme
  Cells.Select 
  Selection.Copy 
  'Vytvorime novy sheet
  Set nsht = Sheets.Add 
  'Pojmenujeme ho NovyList
  nsht.Name = "NovyList" 
  'Vybereme ho 
  nsht.Select 
  Range("A1").Select 
  'A zkopirujeme do neho pouze unikatni zaznamy
  Selection.PasteSpecial Paste:=xlAll, _
                         Operation:=xlNone, _
                         SkipBlanks:=True, _ 
                         Transpose:=False 
  'Na puvodnim sheetu zrusime filtr
  osht.ShowAllData 
End Sub