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.