Excel - extrae y separa digitos de una celda

bienas tardes tengo la siguiente situacion:
en celda A1
CAJA 33 ACOMODAR EN EL PASILLO 142 RACK 22

Quisiera extraer solo los números que vienen en esa celda pero separados por un espacio
es decir: 33 142 22
gRCIAS.

Hola Daniel,

Para esto es necesario trabajar con una UDF ó función personalizada.

Asigna en un módulo la siguiente función y en la celda donde desees ver el resultado colocas la fórmula =fnGetNumberString(C3), en donde C3 es la celda de ejemplo que contiene la cadena CAJA 33 ACOMODAR EN EL PASILLO 142 RACK 22

------------------------------------------------------------------------------------------------------------------------------------------------>

Function fnGetNumberString(strData As String)

Dim n As Integer, i As Integer
Dim strNumberData As String, strPar As String

'vars
n = Len(strData)

'get string number data
For i = 1 To n

'get character
strPar = Mid(strData, i, 1)

'check numeric data
If IsNumeric(strPar) Then

If strNumberData = Empty Then
strNumberData = strPar
Else
strNumberData = strNumberData & strPar
End If

Else

'check and asign space character
If Left(strNumberData, 1) <> Chr(32) Or Right(strNumberData, 1) <> Chr(32) Then
strNumberData = strNumberData & Chr(32)
End If

End If

Next i

'check left space character
If Left(strNumberData, 1) = Chr(32) Then strNumberData = Mid(strNumberData, 2, Len(strNumberData))

'final result
fnGetNumberString = strNumberData

End Function

------------------------------------------------------------------------------------------------------------------------------------------------>

Un saludo,

MIL VECES MIL GRACIAS POR EL APORTE.... ME HA SERVIDO DE MUCHO.