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 Ctrl + Invio chiavi, ma sai come sostituire solo celle non vuote con un determinato valore nell'intervallo selezionato che contiene sia celle vuote che celle di valore.
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 quindi a sostituirle con un valore specificato come preferisci.
1. Seleziona l'intervallo di dati che desideri sostituire solo le celle dei valori.
2. E poi premere Ctrl + H per aprire il Trova e sostituisci finestra di dialogo, nel file Trova e sostituisci dialogo, sotto sostituire scheda, digita * nel Trova quello che e inserisci il valore di cui hai bisogno Sostituire con casella di testo, vedi screenshot:
3. Quindi fare clic Sostituisci tutto e viene visualizzata una finestra di dialogo per dirti il numero di celle da sostituire, chiudi le finestre di dialogo, quindi tutti i valori nell'intervallo selezionato sono stati sostituiti con i 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 necessari contemporaneamente. Per favore, fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Modulie incolla il codice seguente nel file 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 premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare un intervallo in cui desideri sostituire i dati, vedi screenshot:
4. Quindi fare clic OKe inserisci il tuo valore specifico nella finestra di richiesta successiva, vedi screenshot:
5. E poi clicca OK, tutti i valori nell'intervallo selezionato sono stati sostituiti con determinati dati contemporaneamente.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
