Auxílio para criar uma macro

[Dhiego Spinillo 0]

Pessoal...bom dia....Minha dúvida na verdade é sobre excel, porém, como envolve VBscript talvez alguém por aqui possa me ajudar...Preciso criar uma macro para que ela analise uma coluna do excel e separe os caracteres de texto dos caracteres de número.Por exemplo:Coluna AAvenida Brigadeiro Faria Lima 1984Ao utilizar a macro ficaria assim:Coluna A Coluna BAvenida Brigadeiro Faria Lima 1984Se alguém puder me ajudar com o código eu agradeço.Eu tenho até uma macro aqui, só que ela só está copiando o número para a outra coluna, e não exclui o mesmo da coluna inicial. Se der pra adaptar, segue abaixo:Sub RecolheNumeros() Dim n Dim i As Integer, nIndex As Integer Dim celula As Range For Each celula In Selection nIndex = 0 n = Split(celula.Text, " ") For i = 0 To UBound(n) If IsNumeric(n(i)) Then nIndex = nIndex + 1 celula.Offset(0, nIndex).Value = Round(n(i), 2) End If Next i Next celulaEnd Sub

[jolienai 0]

utilize a função Replace para retirar da string original o numeroex: Replace("Avenida Brigadeiro Faria Lima 1984",1984,"")