Come sostituire le celle non vuote con un valore specifico in Excel?
In Excel, possiamo sostituire o riempire rapidamente e facilmente una selezione con un valore specifico premendo i tasti Ctrl + Invio, ma sai come sostituire solo le celle non vuote con un determinato valore all’interno di un intervallo selezionato che contiene sia celle vuote che celle con valori?
Sostituisci le celle non Celle vuote con un valore specifico utilizzando il codice VBA
Sostituisci le celle non Celle vuote con un valore specifico utilizzando la funzione Trova e sostituisci
In Excel, la funzione Trova e sostituisci ti permette di individuare tutte le celle non vuote e sostituirle con un valore a tua scelta.
1. Seleziona l’intervallo di dati in cui desideri sostituire solo le celle contenenti valori.
2. Premi quindi Ctrl + H per aprire la finestra di dialogo Trova e sostituisci. Nella finestra Trova e sostituisci, sotto la scheda Sostituisci, digita * nel campo Trova e inserisci il valore desiderato nella casella di testo Sostituisci con. Vedi screenshot:
3. Fai quindi clic sul pulsante Sostituisci tutto. Si aprirà una finestra di dialogo che indica il numero di celle da sostituire; chiudi le finestre e tutti i valori nell’intervallo selezionato saranno stati sostituiti con i dati specificati. Vedi screenshot:
 |  |  |
Sostituisci le celle non Celle vuote con un valore specifico utilizzando il codice VBA
Utilizzando il seguente codice VBA, puoi sostituire contemporaneamente tutte le celle contenenti dati con i valori desiderati. Procedi nel modo seguente:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo e incolla il codice seguente nella finestra del modulo.
Codice VBA: sostituisci le celle non Celle vuote con un valore specifico
Sub ReplaceNumbers()
'Update 20141111
Dim SRg As Range
Dim Rg As Range
Dim Str As Variant
On Error Resume Next
Set SRg = Application.Selection
Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
If Err <> 0 Then Exit Sub
Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
If Str = False Then Exit Sub
For Each Rg In SRg
If Rg <> "" Then Rg = Str
Next
End Sub
3. Premi quindi il tasto F5 per eseguire il codice. Si aprirà una finestra di dialogo in cui ti verrà chiesto di selezionare l'intervallo i cui dati desideri sostituire. Vedi screenshot:
4. Fai quindi clic su OK e inserisci il tuo valore specifico nella finestra di dialogo successiva. Vedi screenshot:
5. Fai quindi clic su OK e tutti i valori nel tuo intervallo selezionato saranno sostituiti contemporaneamente con il dato specificato.
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