Hoe vervang je niet-lege cellen door een specifieke waarde in Excel?

In Excel kunnen we snel en eenvoudig een selectie met een specifieke waarde vervangen of invullen door op Ctrl + Enter te drukken, maar weet je hoe je alleen de niet-lege cellen kunt vervangen door een bepaalde waarde in je geselecteerde bereik dat zowel lege als gevulde cellen bevat.

Niet-lege cellen vervangen door een specifieke waarde met behulp van de functie Zoeken en Vervangen

Niet-lege cellen vervangen door een specifieke waarde met behulp van VBA-code

Niet-lege cellen vervangen door een specifieke waarde met behulp van de functie Zoeken en Vervangen

In Excel kan de functie Zoeken en Vervangen ons helpen om alle niet-lege cellen te vinden en deze vervolgens te vervangen door een gespecificeerde waarde naar keuze.

1. Selecteer het gegevensbereik waarin je alleen de waardecellen wilt vervangen.

2. Druk vervolgens op Ctrl + H om het dialoogvenster Zoeken en Vervangen te openen. In het dialoogvenster Zoeken en Vervangen, onder het tabblad Vervangen, typ * in het veld Zoeken naar, en voer de waarde in die je nodig hebt in het tekstvak Vervangen door, zie screenshot:

3. Klik vervolgens op de knop Alles vervangen, en er verschijnt een dialoogvenster dat je vertelt hoeveel cellen worden vervangen. Sluit de dialoogvensters, en alle waarden in het geselecteerde bereik zijn vervangen door je gespecificeerde gegevens, zie screenshots:

Niet-lege cellen vervangen door een specifieke waarde met behulp van VBA-code

Door de volgende VBA-code te gebruiken, kun je ook alle gegevenscellen in één keer vervangen door de gewenste waarden. Doe het volgende:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het modulevenster.

VBA-code: Niet-lege cellen vervangen door een specifieke waarde

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. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat je eraan herinnert een bereik te selecteren dat je wilt vervangen, zie screenshot:

4. Klik vervolgens op OK, en voer je specifieke waarde in het volgende pop-upvenster in, zie screenshot:

5. Klik vervolgens op OK, en alle waarden in je geselecteerde bereik zijn in één keer vervangen door de specifieke gegevens.