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 Sub3. 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?
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in