Hoe vervangt u niet-lege cellen door een specifieke waarde in Excel?
In Excel kunt u snel en eenvoudig een selectie vervangen of opvullen met een specifieke waarde door op Ctrl + Enter te drukken. Maar weet u ook hoe u alleen de niet-lege cellen in uw bereik—dat zowel lege cellen als waarden bevat—vervangt door een bepaalde waarde?
Vervang niet-Lege cellen door een specifieke waarde met behulp van de functie Zoeken en Vervangen
Vervang niet-Lege cellen door een specifieke waarde met behulp van VBA-code
Vervang niet-Lege cellen door een specifieke waarde met behulp van de functie Zoeken en Vervangen
In Excel helpt de functie Zoeken en Vervangen u om alle niet-lege cellen te vinden en deze vervolgens te vervangen door een waarde naar keuze.
1. Selecteer het gegevensbereik waarin u alleen de waarden wilt vervangen.
2. Druk daarna op Ctrl + H om het dialoogvenster Zoeken en Vervangen te openen. Typ op het tabblad Zoeken en Vervangen, onder Vervangen, een * in het veld Zoeken naar en voer de gewenste waarde in bij Vervangen door. Zie screenshot:
3. Klik vervolgens op de knop Alles vervangen en er verschijnt een dialoogvenster met het aantal cellen dat is vervangen. Sluit de dialoogvensters en alle waarden in het geselecteerde bereik zijn vervangen door uw opgegeven gegevens. Zie de screenshots:
 |  |  |
Vervang niet-Lege cellen door een specifieke waarde met behulp van VBA-code
Met de volgende VBA-code vervangt u in één keer alle gegevenscellen door de gewenste waarden. Volg deze stappen:
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: Vervang niet-Lege cellen 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 daarna op de toets F5 om deze code uit te voeren. Er verschijnt een promptvenster waarin u wordt gevraagd een bereik te selecteren waarvan u de gegevens wilt vervangen, zie screenshot:
4. Klik vervolgens op OK en voer uw specifieke waarde in het volgende promptvenster in, zie screenshot:
5. Klik daarna op OK en alle waarden in uw geselecteerde bereik worden in één keer vervangen door de opgegeven gegevens.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins