¿Cómo eliminar caracteres no alfabéticos de las celdas en Excel?
Por ejemplo, tiene un rango de datos como Jacob "001" @ # $%y desea eliminar todos los caracteres no alfabéticos de la cadena para mantenerla como Jacob. En Excel, ¿cómo se pueden eliminar rápidamente todos los caracteres no alfabéticos de las celdas?
Eliminar caracteres no alfabéticos de las celdas con código VBA
Elimine rápidamente los caracteres no alfabéticos de las celdas con Kutools para Excel
Eliminar caracteres no alfabéticos de las celdas con código VBA
Con el código VBA, puede eliminar los caracteres no alfabéticos y solo conservar los caracteres alfabéticos (Arizona) en las celdas siguiendo los siguientes pasos:
1. Resalte el rango en el que desea eliminar todos los caracteres no alfabéticos.
2. Hacer clic en Developer > Visual Basic, se mostrará una nueva ventana de Microsoft Visual Basic para aplicaciones, haga clic en recuadro > Móduloy luego ingrese el siguiente código en el Módulo:
VBA: elimine todos los caracteres no alfabéticos de las celdas
Sub RemoveNotAlphas()
'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.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub3. Y luego haga clic en 
botón para ejecutar el código. Se muestra un cuadro de diálogo en la pantalla para que seleccione un rango en el que desea eliminar todos los caracteres no alfabéticos. Ver captura de pantalla:
4. Luego haga clic OK, se han eliminado todos los caracteres no alfabéticos. Ver captura de pantalla:
 |
 |
 |
Elimine rápidamente los caracteres no alfabéticos de las celdas con Kutools para Excel
Si no desea eliminar todos los caracteres no alfabéticos mediante el uso de una macro de VBA, es posible que prefiera utilizar el Eliminar caracteres herramienta para Kutools for Excel.
Kutools for Excel: con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. Comprar ahora
Después de instalar Kutools for Excel, puede eliminar fácil y cómodamente todos los caracteres no alfabéticos de un rango de celdas.
1. Seleccione el rango en el que desea eliminar los caracteres no alfabéticos.
2. Hacer clic en Kutools > Herramientas de texto > Eliminar caracteres, ver captura de pantalla:
3. Un Eliminar caracteres aparecerá el cuadro de diálogo. Entonces revisa Caracteres no alfabéticos en opción Eliminar caracteres caja de diálogo. Al mismo tiempo, puede obtener una vista previa del resultado del Vista previa Cristal. Ver captura de pantalla:
4. Y luego haga clic en OK or ¡Aplicá!. Se eliminarán todos los caracteres no alfabéticos.
Esta utilidad también puede eliminar caracteres numéricos, caracteres no numéricos, caracteres que no se imprimen, etc. Para obtener información más detallada sobre Eliminar caracteres, Por favor visite Descripción de la función Eliminar caracteres.
Artículos relativos:
- Eliminar caracteres alfabéticos de las celdas
- Eliminar caracteres no numéricos de las celdas
- Eliminar caracteres numéricos de las celdas
- Eliminar caracteres no imprimibles de las celdas
- Elimina rápidamente los saltos de línea
- Eliminar caracteres no alfanuméricos
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
