Come sostituire tutti i numeri nelle celle con "x" in Excel?

In Excel, potresti voler sostituire i numeri nelle celle con "x" per mascherare dati sensibili, standardizzare la formattazione, prevenire calcoli o indicare valori mancanti/incompleti. Questo articolo ti guiderà attraverso una semplice soluzione con codice VBA per raggiungere questo obiettivo rapidamente e facilmente.

Sostituisci tutti i numeri nelle celle con "x" con il codice VBA

Sostituisci tutti i numeri nelle celle con "x" con il codice VBA

Il seguente codice VBA può aiutarti a sostituire tutti i numeri nelle celle selezionate con "x" in Excel. Procedi come segue.

1. Seleziona le celle contenenti i numeri che vuoi sostituire con x, quindi premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra di Microsoft Visual Basic for Applications, clicca su Inserisci > Modulo. Poi copia il seguente codice VBA nella finestra del Codice.

Codice VBA: Sostituisci tutti i numeri nell'intervallo selezionato con "x" in 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. Premi il tasto F5 per eseguire il codice. A questo punto, puoi vedere che tutti i numeri nelle celle selezionate sono stati sostituiti con x, come mostrato nello screenshot sottostante.

Articoli correlati:

• Come trovare e sostituire tutte le celle vuote con un certo numero o testo in Excel?
• Come sostituire le virgole con nuove righe (Alt + Invio) nelle celle in Excel?
• Come sostituire le interruzioni di riga con br in Excel?