¿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 Sub

3. 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?