¿Cómo eliminar caracteres no numéricos de las celdas en Excel?
Suponiendo que tiene una hoja de trabajo con muchos de esos datos ABCD4578124YUIOHy solo desea eliminar los caracteres no numéricos ABCDYUIOH pero mantenga los caracteres numéricos en las celdas. Por supuesto, puede eliminar esos caracteres uno por uno, pero aquí mismo puede deshacerse de los caracteres no numéricos de las celdas rápidamente de la siguiente manera:
Eliminar caracteres no numéricos con código VBA
Una herramienta útil para eliminar caracteres no numéricos con un solo clic
Eliminar caracteres no numéricos con código VBA
Para eliminar caracteres no numéricos de un rango con código VBA, haga lo siguiente:
1. Haga Clic en Developer > Visual Basic para abrir el Microsoft Visual Basic para aplicaciones ventana. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Móduloy luego copie y pegue los siguientes códigos en el módulo:
VBA: eliminar todos los caracteres no numéricos
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2. Luego haz clic en botón para ejecutar el código, en la ventana emergente KutoolsparaExcel cuadro de diálogo, seleccione un rango con los caracteres no numéricos que desea eliminar y luego haga clic en el OK botón. Ver captura de pantalla:
3. Luego, se eliminan todos los caracteres no numéricos del rango seleccionado.
Si los números tienen puntos decimales, puede usar el siguiente VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
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 "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Puede ver los resultados como se muestra a continuación:
Una herramienta útil para eliminar caracteres no numéricos con un solo clic
Para eliminar caracteres no numéricos en un rango, Kutools for Excel, Quitar caracteres La utilidad puede hacerlo con un solo clic.
Kutools for Excel : con más de 300 prácticos complementos de Excel, prueba gratuita y sin límite en 30 días. |
Después de instalar Kutools for Excel, haz lo siguiente:
1. Resalte el rango que desea eliminar los caracteres no numéricos. Hacer clic Kutools > Texto > Quitar caracteres.
2. En la Quitar caracteres cuadro de diálogo, verifique No numérico opción en el Quitar caracteres sección, y luego haga clic en el OK or Aplicá botón. Y los caracteres no numéricos se eliminan de la selección de inmediato. Ver captura de pantalla:
¡Haga clic para descargar Kutools para Excel y prueba gratuita ahora!
Para obtener información más detallada acerca de Quitar caracteres de Kutools para Excel, visite Eliminar la descripción de las características de los personajes.
Demostración: elimine caracteres numéricos, alfabéticos, no imprimibles o alfanuméricos de las celdas
Artículos relacionados:
- Eliminar caracteres alfabéticos 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!