Potresti fare un "Testo in colonna" e poi formattare le colonne con 3 cifre
Oppure si potrebbe fare con formule, ma e' molto piu' semplice farlo con una funzione personalizzata, corrispondente a questo codice:
- Codice: Seleziona tutto
Function IPPP(ByVal IPP As String) As String
Dim mySplit, I As Long
'
mySplit = Split("000" & Replace(IPP, ".", ".000", , , vbTextCompare), ".", , vbTextCompare)
For I = 0 To UBound(mySplit)
IPPP = IPPP & "." & Right(mySplit(I), 3)
Next I
IPPP = Mid(IPPP, 2)
End Function
Inserisci il codice in un Modulo standard del vba.
A questo punto avrai a disposizione la funzione IPPP, che partendo da una sintassi tipo 11.222.3.4 restituira' una stringa in formato 011.222.003.004
Se l'indirizzo di partenza e' in A2, la formula da usare e'
- Codice: Seleziona tutto
=IPPP(A2)