Hoe alle lege cellen te vinden en te vervangen door een bepaald nummer of tekst in Excel?
Voor een reeks cellen die zijn gevuld met enkele lege cellen, moet u deze lege cellen mogelijk opzoeken en vervangen door bepaalde inhoud. In dit artikel bieden we drie methoden voor u.
Zoek en vervang alle lege cellen met de functie Zoeken en vervangen
Zoek en vervang alle lege cellen door VBA-code
Vul eenvoudig alle lege cellen in een bereik met Kutools voor Excel
Zoek en vervang alle lege cellen met de functie Zoeken en vervangen
U kunt gebruik maken van de Zoeken en vervangen functie om alle lege cellen met bepaalde inhoud in Excel te vervangen. Ga als volgt te werk.
1. Selecteer het bereik met lege cellen dat u moet vervangen door een bepaalde inhoud, en druk vervolgens op Ctrl + H toetsen tegelijkertijd om het dialoogvenster Zoeken en vervangen te openen.
2. In het opduiken Zoeken en vervangen dialoogvenster onder het vervangen tabblad, bewaar het Zoeken naar vak leeg, voer de bepaalde tekst in waarvan u de lege cellen wilt vervangen in het Vervangen door vak en klik ten slotte op het Alles vervangen knop. Zie screenshot:
3. Klik op het OK knop in het volgende dialoogvenster.
Vervolgens worden alle lege cellen in het geselecteerde bereik vervangen door bepaalde inhoud.
Vul eenvoudig alle lege cellen met een bepaalde waarde in Excel:
Kutools for Excel's Vul lege cellen hulpprogramma helpt u eenvoudig alle lege cellen in het geselecteerde bereik te vullen met een bepaald nummer of tekst in Excel, zoals de onderstaande demo laat zien.
Download en probeer het nu! (30 dagen gratis proefperiode)
Zoek en vervang alle lege cellen door VBA-code
U kunt ook de VBA-methode toepassen om alle lege cellen met bepaalde inhoud in een bereik te vervangen. Ga als volgt te werk.
1. druk de anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassing venster.
2. In de Microsoft Visual Basic voor toepassing venster klikt Invoegen > Module, en kopieer en plak vervolgens onder VBA-code in het modulevenster.
VBA-code: vervang lege cellen door bepaalde inhoud
Sub Replace_Blanks()
Dim xStr As String
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
Dim xUpdate As Boolean
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = xRg.SpecialCells(xlBlanks)
If (Err <> 0) Or (xRg Is Nothing) Then
MsgBox "No blank cells found", , "Kutools for Excel"
Exit Sub
End If
xStr = Application.InputBox("Replace blank cells with what?", "Kutools for Excel")
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Formula = xStr
Next
Application.ScreenUpdating = xUpdate
End Sub
3. druk de F5 sleutel om de code uit te voeren. In de Kutools for Excel dialoogvenster, selecteer het bereik met lege cellen dat u moet zoeken en vervangen, en klik vervolgens op het OK knop.
4. In een andere Kutools for Excel dialoogvenster, voer de bepaalde inhoud in het tekstvak in en klik op het OK knop. Zie screenshot:
Vervolgens worden alle lege cellen onmiddellijk vervangen door bepaalde tekst, zoals u hierboven hebt opgegeven.
Note: Als het geselecteerde bereik geen lege cellen bevat, krijgt u het volgende dialoogvenster.
Vul eenvoudig alle lege cellen in een bereik met Kutools voor Excel
De Vul lege cellen nut van Kutools for Excel helpt u gemakkelijk alle lege cellen met bepaalde inhoud te vullen. Ga als volgt te werk.
Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.
1. Selecteer het bereik met lege cellen dat u met bepaalde inhoud wilt vullen en klik vervolgens op Kutools > Invoegen > Vul lege cellen.
2. In de Vul lege cellen dialoogvenster, controleer de Vaste waarde optie in het Vul met sectie en voer vervolgens de bepaalde inhoud in het Gevulde waarde vak, klik ten slotte op het OK knop.
Vervolgens worden alle lege cellen in het geselecteerde bereik gevuld met de inhoud zoals hieronder afgebeeld.
Note: Met dit hulpprogramma kunt u ook lege cellen vullen op basis van waarden en lege cellen vullen met lineaire waarden.
Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.
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!