Sub Z_Becka_Do_Acka_Jedinecne() Range("B1").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ActiveCell.Offset(0, -1).Range("A1").Select Selection.End(xlDown).Select ActiveCell.Offset(1, 0).Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Columns("A:A").Select ActiveSheet.Range("A:A").RemoveDuplicates Columns:=1, Header:=xlNo Range("A1").Select End Sub
EXCEL VBA kod porovnanie hodnot v dvoch stlpcoch