chacal, boa tarde!
Segue minha contribuição em VBA.
O Código abaixo serve para tirar acentos, traços, asteriscos e etc...
Basta colar o código em um módulo.
Function Acentos(vtexto As String)
vCom_Acento = "ÀÁÂÃÄÅÇÈÉÊËÌÍÎÏÒÓÔÕÖÙÚÛÜàáâãäåçèéêëìíîïòóôõöùúûü*-"
vSem_Acento = "AAAAAACEEEEIIIIOOOOOUUUUaaaaaaceeeeiiiiooooouuuu"
For i = 1 To Len(vtexto)
vposicao = InStr(vCom_Acento, Mid(vtexto, i, 1))
If vposicao > 0 Then
vtexto = Replace(vtexto, Mid(vCom_Acento, vposicao, 1), Mid(vSem_Acento, vposicao, 1))
End If
Next
Acentos = vtexto
End Function
Depois insira a função =Acentos(A1) . Altere o A1 pela célula que conter os CPF's.
Dê retorno!
Att,
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 16/03/2015 11:54 am