Guru do Excel e Power BI

Preciso de algum código que me possibilite separar numero de texto dentro de uma celula. Por exemplo na celula A1 tenho os caracteres 123 pç, preciso extrair somente a parte numerica na celula a2 que será preenchida com 123.
Desde já agradeço.

Teste essa subrotina e adapte segundo melhor lhe convier.
Sub Break_String()
Dim WrdArray() As String
Dim text_string As String

text_string = Range("A1")
WrdArray() = Split(text_string)
For i = LBound(WrdArray) To UBound(WrdArray)
If IsNumeric(WrdArray(i)) Then
Range("A2") = WrdArray(i)
End If
Next i

End Sub

Boa noite!!!

Caso haja um padrão (caso sempre tenha espaço entre os números e letas), use a opção, separar Texto por coluna.
Veja:
https://support.office.com/pt-br/articl ... t-BR&ad=BR
http://www.doutorplanilha.com.br/2012/0 ... lunas.html

Att

Ssantanas,

Você pode fazer isso com o uso desta função:
Veja no exemplo anexo.

Outra forma:

Boa tarde amigo...

Veja se no meu exemplo poderá te ajudar...