Если домены, то какая проблема - берем слева все до первой одиночной "косой" - /. Как вариант. Или уточняйте хотелку - с реальным файлом-примером (см. Правила, пп 2.2, 2.3)...
нет файл-примера,вариант UDF в столбце B или UDF aaa
Код
Function aaa$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "[^/]+": .Global = True
aaa = .Execute(t)(0) & "/" & "/" & .Execute(t)(1) & "/"
End With
End Function
Код
Function bbb$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "http://.+?(?=/)"
bbb = .Execute(t)(0) & "/"
End With
End Function