Da sua pergunta, parece que você está tentando passar por um número de telefone com diferentes caracteres especiais e puxar os números inteiros do número de telefone. Por exemplo, o número (123) 456-7890
deve retornar 01234567890
.
Experimente a função definida pelo usuário abaixo ( Explicação de UDFs )
Function PARSEPHONENO(number As String) 'Number is the selected cell
Application.Volatile 'The formula will recalculate itself
Dim answer As String 'The value returned from the function
Dim i As Integer 'Used to loop through each character of the selected 'number' String
For i = 1 To Len(number) 'For each character of the cell from 1 to the lenght of the string
If IsNumeric(Mid(number, i, 1)) Then answer = answer & Mid(number, i, 1) 'If the value if numberic then add it to the answer
Next i 'Next Character
If Len(answer) < 11 And Left(answer, 1) <> "0" Then answer = "0" & answer 'If the answer is less than 11 digits, add a zero to the beginning of the cell
PARSEPHONENO = answer 'Return the answer
End Function
Observação: a fórmula retornará um valor String dos dígitos numéricos para o 0 inicial exibido na célula.
Espero que isso ajude!