MACRO PARA ELIMINAR CARACTERES ESPECIALES

MACRO PARA ELIMINAR CARACTERES ESPECIALES

Función definida por el usuario (código VBA) para eliminar caracteres especiales.

Ejemplo : Eliminar los caracteres especiales que se encuentran en  el rango de celdas A3:A18.

Procedimiento :

1. Dar anticlic en Hoja1, luego ver código  y escribimos el siguiente código :

Function ELIMINAR_CARACTERES(ByVal vThisRange As Range)
    Dim Texto As String
    Dim i As Long
    Texto = vThisRange.Value
    For i = 1 To Len(Texto)
        Select Case Asc(Mid(Texto, i, 1))
            Case 48 To 57, 65 To 90, 97 To 122, 164 To 165, 32
                ELIMINAR_CARACTERES = ELIMINAR_CARACTERES & Mid(Texto, i, 1)
            Case Else
        End Select
    Next i
End Function

2. Damos clic en la celda C3 y llamamos la función definida por el usuario creada anteriormente y escribimos =ELIMINAR_CARACTERES(A3), presionamos la tecla enter y podemos observar que ya se han eliminado los caracteres (rango de celdas C3:C18)