Con le funzioni native di excel non so se sia fattibile.

Registra questa funzioncina

codice:
Function splitta(ByVal miastr As String)
Dim stringa As String
Dim indirizzo As Variant

    indirizzo = Split(miastr, ".")
    stringa = ""
    For i = 0 To 2
        stringa = stringa & indirizzo(i) & "."
    Next i
    stringa = Mid(stringa, 1, Len(stringa) - 1)
    
    splitta = stringa

End Function
la richiami normalmente

esempio
=splitta(a1)

e trascina.