Vba: como remover números de uma string

Você pode criar a seguinte função no VBA para remover números de uma string em uma célula do Excel:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

Você pode então usar esta função para remover números de qualquer célula desejada no Excel.

O exemplo a seguir mostra como usar esta função na prática.

Exemplo: remover números de uma string usando VBA

Suponha que temos a seguinte lista de IDs de funcionários no Excel:

Digamos que queremos remover os dígitos de cada string na coluna ID do funcionário .

Podemos criar a seguinte função em VBA para fazer isso:

 Function RemoveNumbers(CellText As String) As String

With CreateObject(" VBScript.RegExp ")
    .Global = True
    .Pattern = " [0-9] "
    RemoveNumbers = .Replace(CellText, "")
End With

End Function

Depois de criarmos esta função, podemos digitar a seguinte fórmula na célula B2 para retornar o número do funcionário na célula A2 com todos os dígitos removidos:

 =RemoveNumbers( A2 )

Podemos então clicar e arrastar esta fórmula para cada célula restante na coluna B:

A coluna B exibe cada uma das strings na coluna A com os dígitos removidos.

Por exemplo:

• 4009Andy se torna Andy
• 1540Bob se torna Bob
• 1500Chad09 torna-se Chade
• 1600Doug se torna Doug

E assim por diante.

Recursos adicionais

Os tutoriais a seguir explicam como realizar outras tarefas comuns usando VBA:

VBA: Como contar ocorrências de caracteres em uma string
VBA: como verificar se uma string contém outra string
VBA: Como contar células com texto específico