Potresti usare una macro, eccone una che ho buttato gių al volo:
Codice:
Public Function estrai_sito(sito As String) As String
Dim stringa As String
Dim pos As Integer
sito = Replace(sito, "http://", "")
sito = Replace(sito, "www.", "")
pos = InStrRev(sito, "/")
''Ho trovato il primo "/" da dx
If pos <> 0 Then
sito = Trim(Mid(sito, pos + 1))
End If
estrai_sito = sito
End Function
e nel foglio la chiami cosė:
Codice:
=estrai_sito(cella)
