Con el siguiente código VBA corto, también puede eliminar los caracteres no alfanuméricos. Puedes hacerlo así:

1. Prensa otro + F11 llaves juntas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic en recuadro > Módulo, y luego pegue el código VBA debajo del módulo:

VBA: elimine 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. prensa F5 o haga clic en el Ejecutar botón para ejecutar el código.

4. A continuación, seleccione un rango en el que desee eliminar todos los caracteres no alfanuméricos en el cuadro de diálogo emergente y haga clic en el OK del botón.

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

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

Por lo general, colocamos el cursor en una celda y luego eliminamos los caracteres no alfanuméricos uno por uno manualmente. Si está familiarizado con VBA o las funciones definidas por el usuario, puede codificarlo y eliminar todos los caracteres no alfanuméricos de forma masiva. Pero aquí, recomendaré una herramienta increíble, la función Eliminar personajes de Kutools for Excel, que puede eliminar todo tipo de personajes con solo 2 clics.

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

1. prensa otro + F11 llaves juntas para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. Hacer clic recuadro > Móduloy luego pegue el siguiente código en el Módulo:

Función definida por el usuario: elimine 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
    

3. Ahora regrese a la hoja de trabajo, seleccione una celda en blanco e ingrese la fórmula = DeleteNonAlphaNumeric (B3)y luego arrastre la descarga del controlador de Autocompletar para aplicar esta fórmula a otras celdas.

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

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

Si ha instalado Kutools para Excel, hágalo siguiendo los siguientes pasos:

1. Seleccione el rango del que necesita eliminar los caracteres no alfanuméricos y haga clic en Kutools > Texto > Quitar caracteres.

2. Entonces un Eliminar caracteres aparecerá el cuadro de diálogo, solo marque No alfanumérico opción, y haga clic en Ok del botón.

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