UDF para extrair apenas o número de uma célula usando VBA no Microsoft Excel
Neste artigo, aprenderemos como usar o código VBA para extrair o número apenas de uma célula com a função definida pelo usuário.
Pergunta): Preciso de uma macro para recuperar o número apenas de uma célula que contém dados alfanuméricos.
A seguir está o instantâneo dos dados em que a coluna A contém dados alfanuméricos e os números esperados estão na coluna B
Para obter apenas os números da coluna A; precisamos seguir os passos abaixo para lançar o editor VB
- Clique na guia Desenvolvedor
- No grupo Código, selecione Visual Basic
Copie o código abaixo no módulo Padrão
Função NumericOnly (mystr As Variant)
Dim myOutput As String, i As Integer
Para i = 1 para Len (mystr)
If IsNumeric (Mid (mystr, i, 1)) Then _
myOutput = myOutput & Mid (mystr, i, 1)
Próximo
NumericOnly = myOutput * 1
Função Final
- Para obter o resultado na célula B2, a fórmula é
- = NumericOnly (A2)
Desta forma, podemos recuperar números apenas de uma célula que contém texto e números, usando o código VBA.
Download - UDF para extrair apenas o número de uma célula usando VBA - xlsm