Hoe vervang je niet-lege cellen met een specifieke waarde in Excel?
In Excel kunnen we snel en eenvoudig een selectie vervangen of vullen met een specifieke waarde door op te drukken Ctrl + Enter sleutels, maar weet u hoe u alleen niet-lege cellen kunt vervangen door een bepaalde waarde in uw geselecteerde bereik dat zowel lege cellen als waardecellen bevat.
Vervang niet-lege cellen door een specifieke waarde door de functie Zoeken en vervangen te gebruiken
Vervang niet-lege cellen door een specifieke waarde door VBA-code te gebruiken
Vervang niet-lege cellen door een specifieke waarde door de functie Zoeken en vervangen te gebruiken
In Excel kan de functie Zoeken en vervangen ons helpen om alle niet-lege cellen te vinden en ze vervolgens naar wens te vervangen door een opgegeven waarde.
1. Selecteer het gegevensbereik waarvan u alleen de waardecellen wilt vervangen.
2. En druk vervolgens op Ctrl + H om de te openen Zoeken en vervangen dialoogvenster, in de Zoeken en vervangen dialoog, onder vervangen tabblad, typ * in de Zoeken naar veld en voer de waarde in die u nodig heeft Vervangen door tekstvak, zie screenshot:
3. Dan klikken Alles vervangen knop, en er verscheen een dialoogvenster om u het aantal te vervangen cellen te vertellen, sluit de dialoogvensters en vervolgens zijn alle waarden in het geselecteerde bereik vervangen door uw opgegeven gegevens, zie schermafbeeldingen:
Vervang niet-lege cellen door een specifieke waarde door VBA-code te gebruiken
Door de volgende VBA-code te gebruiken, kunt u ook alle datacellen in één keer vervangen door uw benodigde waarden. Doe alstublieft als volgt:
1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic for Applications-venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
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 vervolgens op F5 toets om deze code uit te voeren, en er verschijnt een promptvenster om u eraan te herinneren een bereik te selecteren waarvan u de gegevens wilt vervangen, zie screenshot:
4. Dan klikken OK, en voer uw specifieke waarde in het volgende promptvenster in, zie screenshot:
5. En klik vervolgens op OK, zijn alle waarden in uw geselecteerde bereik in één keer vervangen door de bepaalde gegevens.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!