Come sostituire le celle non vuote con un valore specifico in Excel?
In Excel, possiamo rapidamente e facilmente sostituire o riempire una selezione con un valore specifico premendo i tasti Ctrl + Enter, ma sapete come sostituire solo le celle non vuote con un determinato valore nel vostro intervallo selezionato che contiene sia celle vuote che celle con valori?
Sostituisci le celle non vuote con un valore specifico utilizzando la funzione Trova e Sostituisci
Sostituisci le celle non vuote con un valore specifico utilizzando il codice VBA
Sostituisci le celle non vuote con un valore specifico utilizzando la funzione Trova e Sostituisci
In Excel, la funzione Trova e Sostituisci può aiutarci a trovare tutte le celle non vuote e poi sostituirle con un valore specifico a nostra scelta.
1. Seleziona l'intervallo dati in cui desideri sostituire solo le celle con valori.
2. Quindi premi Ctrl + H per aprire la finestra di dialogo Trova e Sostituisci; nella finestra Trova e Sostituisci, sotto la scheda Sostituisci, digita * nel campo Trova cosa, e inserisci il valore desiderato nel campo Sostituisci con, vedi screenshot:
3. Poi clicca sul pulsante Sostituisci tutto, e apparirà una finestra di dialogo che ti informerà sul numero di celle da sostituire, chiudi le finestre di dialogo, quindi tutti i valori nell'intervallo selezionato saranno stati sostituiti con i tuoi dati specificati, vedi screenshot:
 |  |  |
Sostituisci le celle non vuote con un valore specifico utilizzando il codice VBA
Utilizzando il seguente codice VBA, puoi anche sostituire tutte le celle di dati con i valori desiderati in una volta sola. Procedi come segue:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.
Codice VBA: Sostituisci le celle non 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. Quindi premi il tasto F5 per eseguire questo codice, e apparirà una finestra di avviso che ti ricorderà di selezionare un intervallo in cui desideri sostituire i dati, vedi screenshot:
4. Poi clicca OK, e inserisci il tuo valore specifico nella prossima finestra di avviso, vedi screenshot:
5. E poi clicca OK, tutti i valori nel tuo intervallo selezionato saranno stati sostituiti con i dati specificati in una volta sola.
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