в ячейку D2 ми протянуть
Код
=ЕСЛИОШИБКА(ИНДЕКС($A$2:$A$41000;НАИМЕНЬШИЙ(ЕСЛИ(ЕСЛИОШИБКА(ПОИСКПОЗ($A$2:$A$1000;$A$2:$A$1000;0);0)=СТРОКА($A$2:$A$1000)-1;СТРОКА($A$2:$A$1000)-1);СТРОКА(A1)));"")
сделал на 1000 строка в столбце А
Формула массива. Вводится одновременным нажатием Ctrl+Shift+Enter
файл 2 вариант с Power Qeury
[vba]Код
let
Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
#"Измененный тип" = Table.TransformColumnTypes(Источник,{{"Столбец1", type text}}),
#"Удаленные дубликаты" = Table.Distinct(#"Измененный тип")
in
#"Удаленные дубликаты"
[/vba]