Не вижу ничего трудного
ПРАВСИМВ(A1;ДЛСТР(A1)-ПОИСК(".";A1))
Учитывая, что у вас еще будут адреса без домена 2го уровня, напишите в формуле доп условие, иначе получите .com .ru итд.
A1 ячейка изначального значения. Дубли стандартными средствами: выделяете столбец Данные -> Удалить дубли.
UPD
Вот держи кусок формулы, просто прогони несколько раз для нужного результата, а то я уже запутался там.
=ЕСЛИОШИБКА(ЕСЛИ(ПОИСК("."; ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(".";ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(".";A2;1));1));1);ПРАВСИМВ(A2;ДЛСТР(A2)-ПОИСК(".";A2;1));A2);A2)
Сначала прогонишь, результат будет в колонке B, потом прогоняешь колонку B и выводишь в C.