¿Cómo reemplazar todos los números en las celdas con X en Excel?
Como se muestra a continuación en la captura de pantalla, ¿cómo reemplazar todos los números en las celdas con x en Excel? El método de este artículo lo ayudará a resolver el problema.
Reemplace todos los números en las celdas con x con código VBA
Reemplace todos los números en las celdas con x con código VBA
El siguiente código de VBA puede ayudarlo a reemplazar todos los números en las celdas seleccionadas con X en Excel. Haz lo siguiente.
1. Seleccione las celdas que contienen números que reemplazará con x, y luego presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego, copie el código VBA a continuación en la ventana Código.
Código de VBA: reemplace todos los números en el rango seleccionado con x en Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub
3. presione el F5 clave para ejecutar el código. Luego podrá ver que todos los números en las celdas seleccionadas se reemplazan con x como se muestra a continuación.
Artículos relacionados:
- ¿Cómo encontrar y reemplazar todas las celdas en blanco con cierto número o texto en Excel?
- ¿Cómo reemplazar las comas con nuevas líneas (Alt + Enter) en celdas en Excel?
- ¿Cómo reemplazar los saltos de línea con br en Excel?
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!