¿Cómo eliminar caracteres no alfanuméricos en Excel?

Con el siguiente código VBA corto, también puedes eliminar los caracteres no alfanuméricos. Puedes hacerlo de esta manera:

1. Presiona las teclas Alt + F11 juntas para abrir la ventana Microsoft Visual Basic para aplicaciones.

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código VBA en el Módulo:

VBA: Eliminar todos los caracteres no alfanuméricos

Sub RemoveNotAlphasNotNum()
'Updateby2014128
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xOut = ""
    For i = 1 To Len(Rng.Value)
        xTemp = Mid(Rng.Value, i, 1)
        If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Or xTemp Like "[0-9.]" Then
            xStr = xTemp
        Else
            xStr = ""
        End If
        xOut = xOut & xStr
    Next i
    Rng.Value = xOut
Next
End Sub

3. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar el código.

4Luego selecciona un rango en el que quieras eliminar todos los caracteres no alfanuméricos en el cuadro de diálogo emergente, y haz clic en el Aceptar botón.

Ahora se han eliminado todos los caracteres no alfanuméricos del rango seleccionado. Ver captura de pantalla:

2 clics para eliminar todos los caracteres no alfanuméricos con una herramienta increíble

Normalmente colocamos el cursor en una celda y luego eliminamos los caracteres no alfanuméricos uno por uno manualmente. Si estás familiarizado con VBA o Funciones Definidas por el Usuario, puedes codificarlo y eliminar todos los caracteres no alfanuméricos en masa. Pero aquí, te recomiendo una herramienta increíble, la función Eliminar Caracteres de Kutools para Excel, que puede eliminar todo tipo de caracteres ¡con solo 2 clics!

También puedes definir una función personalizada para eliminar todos los caracteres no alfanuméricos de las celdas en Excel.

1. Presiona las teclas Alt + F11 juntas para abrir la ventana Microsoft Visual Basic para aplicaciones.

2. Haz clic en Insertar > Módulo, y luego pega el siguiente código en el Módulo:

Función Definida por el Usuario: Eliminar todos los caracteres no alfanuméricos

Function DeleteNonAlphaNumeric(xStr As String) As String
Dim xStrR As String
Dim xCh As String

Dim xStrMode As String
Dim xInt As Integer
    xStrMode = "[A-Z.a-z 0-9]"
    xStrR = ""
    For xInt = 1 To Len(xStr)
        xCh = Mid(xStr, xInt, 1)
        If xCh Like xStrMode Then
            xStrR = xStrR & xCh
        End If
    Next
    DeleteNonAlphaNumeric = xStrR
End Function
    

3Ahora regresa a la hoja de cálculo, selecciona una celda en blanco, e introduce la fórmula =DeleteNonAlphaNumeric(B3), y luego arrastra el controlador de AutoRelleno hacia abajo para aplicar esta fórmula a otras celdas.

Con los dos métodos anteriores, necesitas conocer los códigos, pero como principiantes en Excel, la mayoría de nosotros no podemos usar el código, así que aquí te daré una forma fácil de hacerlo.

Kutools para Excel- Incluye más de 300 herramientas útiles para Excel. Prueba gratuita completa de 30-días, ¡no se requiere tarjeta de crédito! Consíguelo Ahora

Si has instalado Kutools para Excel, sigue los siguientes pasos:

1Selecciona el rango del que necesitas eliminar los caracteres no alfanuméricos, y haz clic en Kutools > Texto > Eliminar Caracteres.

2Luego aparecerá un Eliminar Caracteres cuadro de diálogo, marca solo la opción No alfanuméricos y haz clic en el botón Aceptar botón.

Ahora se han eliminado todos los caracteres no alfanuméricos de las cadenas de texto.