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.