Bom dia joaorlneto
Com certeza existem outras maneiras, mas segue minha contribuição...
Incluído a função por V.B.A. =lfRetiraNumeros()
Public Function lfRetiraNumeros(ByVal vValor As String) As String
Application.Volatile
Dim vQtdeCaract As Long
Dim vControle As Boolean
vQtdeCaract = Len(vValor)
vControle = False
For i = 1 To vQtdeCaract
If IsNumeric(Mid(vValor, i, 1)) Then
If vControle = True And lfRetiraNumeros <> vbNullString Then
lfRetiraNumeros = lfRetiraNumeros + " "
End If
vControle = False
lfRetiraNumeros = lfRetiraNumeros & Mid(vValor, i, 1)
Else
vControle = True
End If
Next
lfRetiraNumeros = Replace(Trim(lfRetiraNumeros), " ", "/")
End Function
_______________________________________________________________________________________________
Carlos Santos
* Marque o tópico como Resolvido se foi solucionado seu problema.
Postado : 16/02/2018 7:04 am