Este fórum está sendo desativado

[ssantanas]

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.

[chuiaws]

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

[alexandrevba]

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

[Henrique]

Ssantanas,

Você pode fazer isso com o uso desta função:

Código: Selecionar todos

=VALOR(ESQUERDA(ARRUMAR(A1);NÚM.CARACT(ARRUMAR(A1))-3))

Veja no exemplo anexo.

[Henrique]

Outra forma:

Código: Selecionar todos

=VALOR(ESQUERDA(ARRUMAR(A1);LOCALIZAR(" ";A1)-1))

[lfgomes]

Boa tarde amigo...

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