¿Cómo reemplazar todos los números en las celdas con "x" en Excel?
En Excel, es posible que desee reemplazar los números en las celdas con "x" para enmascarar datos sensibles, estandarizar el formato, evitar cálculos o indicar valores faltantes/incompletos. Este artículo le guiará a través de una solución simple utilizando código VBA para lograr esto de manera rápida y sencilla.
Reemplazar todos los números en las celdas con "x" mediante código VBA
Reemplazar todos los números en las celdas con "x" mediante código VBA
El siguiente código VBA puede ayudarle a reemplazar todos los números en las celdas seleccionadas con "x" en Excel. Por favor, siga los siguientes pasos.
1. Seleccione las celdas que contienen los números que desea reemplazar con x, y luego presione las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.
2. En la ventana de Microsoft Visual Basic para Aplicaciones, haga clic en Insertar > Módulo. Luego copie el siguiente código VBA en la ventana de Código.
Código VBA: Reemplazar 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 Sub3. Presione la tecla F5 para ejecutar el código. Luego podrá ver que todos los números en las celdas seleccionadas se han reemplazado con x, como se muestra en la siguiente captura de pantalla.
Artículos relacionados:
- ¿Cómo encontrar y reemplazar todas las celdas en blanco con un número o texto específico en Excel?
- ¿Cómo reemplazar comas con saltos de línea (Alt + Enter) en las celdas en Excel?
- ¿Cómo reemplazar los saltos de línea con br en Excel?
Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos