¿Cómo eliminar los caracteres alfabéticos de las celdas en Excel?
Supongamos que necesita eliminar todos los caracteres alfabéticos de un rango en Excel, por ejemplo, un dato en una celda puede ser "lucas 13654698745", Y quieres que sea"13654698745”, ¿Cómo se pueden eliminar rápidamente todos los caracteres alfabéticos de las celdas? ¿Hay buenas ideas para solucionar este problema?
Elimine todos los caracteres alfabéticos de las celdas con código VBA
Para eliminar todos los caracteres alfabéticos con Kutools para Excel con un clic
 |
 |
 |
Elimine todos los caracteres alfabéticos de las celdas con código VBA
Es difícil eliminar los caracteres alfabéticos usando la función en Excel, por lo que puede usar el código VBA para resolverlo. Puede eliminar todos los caracteres alfabéticos con VBA siguiendo los siguientes pasos.
1. Hacer clic en Developer>Visual Basic o pulse Alt + F11 para abrir una nueva Microsoft Visual Basic para aplicaciones aparecerá la ventana, haga clic en recuadro > Móduloe ingrese el siguiente código:
VBA: eliminar caracteres alfabéticos:
Sub RemoveAlphas()
'Updateby20131129
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 = ""
Else
xStr = xTemp
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
3. Luego haga clic 
botón para ejecutar el código. Y un cuadro de diálogo emergente es para que seleccione un rango para trabajar, vea la captura de pantalla:
.
4. Hacer clic en OKy se han eliminado todos los caracteres alfabéticos.
Para eliminar todos los caracteres alfabéticos con Kutools para Excel con un clic.
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
Aplique esta utilidad haciendo clic en Kutools > Herramientas de texto en el grupo de edición > Eliminar caracteres, ver captura de pantalla:
Paso 1. Seleccione el rango con el que desea trabajar.
Paso 2. Hacer clic Kutools > Herramientas de texto en el grupo de edición > Eliminar caracteresy verifique Alpha en la ventana emergente Eliminar caracteres diálogo, ver captura de pantalla:
Paso 3. Hacer clic Ok or ¡Aplicá! para eliminar todo alfa en el rango.
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 acerca de Eliminar personaje de Kutools para Excel, visite: Eliminar caracteres.
Artículos relativos:
Eliminar caracteres no numéricos de las celdas
Eliminar caracteres numéricos de las celdas
Eliminar caracteres no imprimibles de las celdas
Eliminar caracteres no alfabéticos de las celdas
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!
