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

Con este breve código VBA, también puede eliminar los caracteres no alfanuméricos. Hágalo de la siguiente manera:

1. Pulse las teclas Alt + F11 a la vez para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y, a continuación, pegue 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. Pulse la tecla F5 o haga clic en el botón Ejecutar para ejecutar el código.

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

Ahora se han eliminado todos los caracteres no alfanuméricos de Seleccionar rango. Consulte la captura de pantalla:

2 clics para eliminar todos los caracteres no alfanuméricos con una herramienta sorprendente

Normalmente, colocamos el cursor en una celda y eliminamos manualmente los caracteres no alfanuméricos uno a uno. Si domina VBA o las funciones definidas por el usuario, puede programarlo para eliminar todos los caracteres no alfanuméricos de forma masiva. Pero aquí le presentamos una herramienta sorprendente: la función Eliminar caracteres específicos de Kutools para Excel, que le permite eliminar cualquier tipo de carácter con solo dos clics.

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

1. Pulse las teclas Alt + F11 a la vez para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo y, a continuación, pegue 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
    

3. Vuelva ahora a la hoja de cálculo, seleccione una celda vacía e introduzca la fórmula =DeleteNonAlphaNumeric(B3). A continuación, arrastre el controlador de autorrelleno hacia abajo para aplicar esta fórmula al resto de las celdas.

Con los dos métodos anteriores, es necesario conocer los códigos; sin embargo, como principiantes en Excel, la mayoría no podemos usarlos. Por eso, aquí le presento una forma sencilla de hacerlo.

Kutools para Excel: incluye más de 300 herramientas prácticas para Excel. ¡Prueba gratuita completa de 30 días, sin necesidad de tarjeta de crédito!¡Obtenerlo ahora!

Si ha instalado Kutools para Excel, siga estos pasos:

1. Seleccione el rango del que desea eliminar los caracteres no alfanuméricos y haga clic en Kutools > Texto > Eliminar caracteres específicos.

2. A continuación, aparecerá el cuadro de diálogo Eliminar caracteres; simplemente active la opción No alfanuméricos y haga clic en el botón Aceptar.

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