Macro para eliminar texto e deixar numeros

[Guest Pedro Patrocínio]

Olá,

Preciso de ajuda para uma macro que faça o seguinte:

Numa planilha que contem texto e números: "abcd912345678/asdas" preciso que coloque numa coluna ao lado na mesma linha, apenas: 912345678

O que é importante é que apenas sejam colocados numa lista paralela, todos os números que fiquem a seguir ao 9, inclusive.

Pode acontecer existir ou não, um espaço entre o texto e o numero 9. Por exemplo: "abc912345678" ou "abc 912345678"

Se o número não tiver 9 dígitos ou não começar por 9, então a macro não o deve considerar.

O objectivo é ficar apenas com planilhas que contenham números começados por 9 e com 9 dígitos.

Deve ainda, caso existam 2 números na mesma planilha, seleccionar os dois numeros e colocar o 2º numero numa outra coluna, na mesma linha:

por exemp: asdas 912345678/965432107asdas e ficar numa planilha 912345678 e em outra, na mesma coluna " 965432107"

No resultado final deve ser apresentado uma coluna ou duas, contendo apenas os números começados por 9.

Todas as planilhas têm texto e numeros começados por 9 e com 9 digitos.

Fica aqui um desafio para os mais inteligentes desta área.

Agradeço desde já vossa ajuda e espero não estar a pedir nada impossível ;)

1ab

Pedro Patrocinio

[webdeveloper]

Uma pergunta, o número 9 pode repetir entre os 8 números após ele, ou ele aparece somente no início dos 9 números?

[Guest Pedro Patrocínio]

Sim o nº 9 pode-se repetir apenas após o 3 digito. Existem 4 tipos de números começados pode 9: são eles: 91xxxxxxx; 96xxxxxxx; 92xxxxxxx; e 93xxxxxxx.

x>=0 e <=9

[Guest Pedro Patrocínio]

Boas Anderson,

Você esta-me ajudando neste meu problema? Se precisar de mais alguma informação, diz tá?

abraço

[Guest Visitante]

Como ninguém consegui me ajudar, recorri a outro forum www.mrexcel.com/forum/ e na hora eles me deram a solução.

Deixo aqui o codigo para quem quiser:

Sub GetNums()
Dim RegEx As Object, RegMatchCollection As Object
Dim c As Object
Dim Rng As Range
Dim I As Long

    Set RegEx = CreateObject("vbscript.regexp")
    Set Rng = Range("A1")
    
    While Rng.Value <> ""
  
        With RegEx
            .Global = True
            .Pattern = "\d+"
        End With
    
        Set RegMatchCollection = RegEx.Execute(Rng.Value)
        
        For Each c In RegMatchCollection
            If Left(c, 1) = 9 Then
                I = I + 1
                Rng.Offset(, I) = c
            End If
        Next c
        
        I = 0
        Set Rng = Rng.Offset(1)
        
    Wend
    
End Sub

Fiquem bem.