Boa tarde.
Só uma pergunta.
O exemplo postado acima refere-se a 3 células ou é uma única linha de informação ?
Sugiro postar uma planilha de exemplo. Pode ser com dados fictícios Mas Mesma Estrutura e de preferencia com uma demonstração manual do resultado esperado .

gokharol , Bom Dia.

Se o formato for sempre desta forma então usa isso

Se foi útil, clique na mãozinha que fica do lado da ferramenta Citar, é uma forma de agradecimento

Se você Visitante Também gostou e foi útil pode clique na mãozinha que fica do lado da ferramenta Citar, é uma forma de agradecimento

Decio

Complementando.

Eu utilizo o código para ter a função =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

Para aplicar digitar Alt+F11
Inserir -> modulo e colar o código!