Come sostituire tutti i numeri presenti nelle celle con «x» in Excel?
In Excel potrebbe essere necessario sostituire i numeri nelle celle con “x” per mascherare dati sensibili, uniformare la formattazione, impedire calcoli o indicare valori mancanti o incompleti. Questo articolo presenta una soluzione semplice e rapida basata su codice VBA per ottenere questo risultato in modo efficace e immediato.
Sostituisci tutti i numeri nelle celle con «x» utilizzando il codice VBA
Sostituisci tutti i numeri nelle celle con «x» utilizzando il codice VBA
Il seguente codice VBA sostituisce tutti i numeri nelle celle selezionate con «x» in Excel. Procedi nel modo seguente.
1. Seleziona le celle contenenti i numeri che desideri 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, fai clic su Inserisci > Modulo. Copia quindi il codice VBA riportato di seguito nella finestra del codice.
Codice VBA: sostituisci tutti i numeri 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 Sub3. Premi il tasto F5per eseguire il codice e vedere immediatamente tutti i numeri nelle celle selezionate sostituiti con una «x», proprio come mostrato nello screenshot seguente.
Articoli correlati:
- Come trovare e sostituire tutte le celle vuote con un numero o un testo specifico in Excel?
- Come sostituire le virgole con interruzioni di riga (Alt + Invio) nelle celle di Excel?
- Come sostituire le interruzioni di riga con «br» in Excel?
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi