Hoe alle lege cellen te vinden en vervangen door een bepaald getal of tekst in Excel?

Voor een bereik van cellen dat voorzien is van enkele lege cellen, moet u mogelijk deze lege cellen vinden en ze vervangen door bepaalde inhoud. In dit artikel bieden we u drie methoden aan.

Alle lege cellen vinden en vervangen met de functie Zoeken en Vervangen
Alle lege cellen vinden en vervangen met VBA-code
Eenvoudig alle lege cellen in een bereik vullen met Kutools voor Excel

Alle lege cellen vinden en vervangen met de functie Zoeken en Vervangen

U kunt de functie Zoeken en Vervangen gebruiken om alle lege cellen te vervangen door bepaalde inhoud in Excel. Volg de volgende stappen.

1. Selecteer het bereik met lege cellen die u wilt vervangen door bepaalde inhoud, en druk vervolgens tegelijkertijd op Ctrl + H om het dialoogvenster Zoeken en Vervangen te openen.

2. In het pop-upvenster Zoeken en Vervangen, onder het tabblad Vervangen, laat u het zoekveld Zoeken naar leeg, voer de bepaalde tekst in die u wilt gebruiken om de lege cellen te vervangen in het veld Vervangen door, en klik ten slotte op de knop Alles vervangen. Zie screenshot:

3. Klik op de knop OK in het volgende dialoogvenster.

Vervolgens worden alle lege cellen in het geselecteerde bereik vervangen door bepaalde inhoud.

Alle lege cellen vinden en vervangen met VBA-code

U kunt ook de VBA-methode gebruiken om alle lege cellen te vervangen door bepaalde inhoud in een bereik. Volg de volgende stappen.

1. Druk tegelijkertijd op de toetsen Alt + F11 om het venster Microsoft Visual Basic for Application te openen.

2. Klik in het venster Microsoft Visual Basic for Application op Invoegen > Module, en kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.

VBA-code: Lege cellen vervangen 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 op de toets F5 om de code uit te voeren. In het dialoogvenster Kutools voor Excel selecteert u het bereik met lege cellen dat u wilt vinden en vervangen, en klikt u vervolgens op de knop OK.

4. Voer in een ander dialoogvenster van Kutools voor Excel de bepaalde inhoud in het tekstvak in en klik op de knop OK. Zie screenshot:

Vervolgens worden alle lege cellen onmiddellijk vervangen door de tekst die u hierboven hebt gespecificeerd.

Opmerking: Als het geselecteerde bereik geen lege cellen bevat, krijgt u het volgende dialoogvenster.

Eenvoudig alle lege cellen in een bereik vullen met Kutools voor Excel

Het hulpprogramma Lege Cellen Vullen van Kutools voor Excel helpt u eenvoudig alle lege cellen te vullen met bepaalde inhoud. Volg de volgende stappen.

1. Selecteer het bereik met lege cellen dat u wilt vullen met bepaalde inhoud, en klik vervolgens op Kutools > Invoegen > Lege Cellen Vullen.

2. Controleer in het dialoogvenster Lege Cellen Vullen de optie Vaste waarde in de sectie Vulmethode, en voer vervolgens de bepaalde inhoud in het veld Vulwaarde in, en klik ten slotte op de knop OK.

Vervolgens worden alle lege cellen in het geselecteerde bereik gevuld met de inhoud zoals in de onderstaande screenshot wordt getoond.

Opmerking: Met dit hulpprogramma kunt u ook lege cellen vullen op basis van waarden en lege cellen vullen met lineaire waarden.