Hur hittar jag och ersätter alla tomma celler med visst antal eller text i Excel?

För en rad celler som är fyllda med några tomma celler kan du behöva hitta dessa tomma celler och ersätta dem med visst innehåll. I den här artikeln tillhandahåller vi tre metoder för dig.

Hitta och ersätt alla tomma celler med funktionen Sök och ersätt
Hitta och ersätt alla tomma celler med VBA-kod
Fyll enkelt alla tomma celler i ett intervall med Kutools för Excel

Hitta och ersätt alla tomma celler med funktionen Sök och ersätt

Du kan använda Sök och ersätt funktion för att ersätta alla tomma celler med visst innehåll i Excel. Gör så här.

1. Välj intervallet med tomma celler som du behöver ersätta med visst innehåll och tryck sedan på ctrl + H samtidigt för att öppna dialogrutan Sök och ersätt.

2. I pop-up Sök och ersätt under dialogrutan ersätta fliken, behåll Hitta det rutan tomt, ange den text du vill ersätta de tomma cellerna i Ersätt med och slutligen klicka på Ersätt alla knapp. Se skärmdump:

3. Klicka på OK knappen i följande dialogruta.

Sedan ersätts alla tomma celler i det valda intervallet med visst innehåll.

Hitta och ersätt alla tomma celler med VBA-kod

Du kan också använda VBA-metoden för att ersätta alla tomma celler med visst innehåll i ett intervall. Gör så här.

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikation fönster.

2. I Microsoft Visual Basic för applikation fönstret klickar Insert > Modulernaoch sedan kopiera och klistra in under VBA-koden i modulfönstret.

VBA-kod: Ersätt tomma celler med visst innehåll

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. tryck på F5 för att köra koden. I Kutools för Excel i dialogrutan, markera intervallet med tomma celler som du behöver för att hitta och ersätta och klicka sedan på OK knapp.

4. I en annan Kutools för Excel dialogrutan, ange visst innehåll i textrutan och klicka på OK knapp. Se skärmdump:

Sedan ersätts alla tomma celler med viss text direkt som du angav ovan.

Anmärkningar: Om det valda intervallet inte innehåller tomma celler får du följande dialogruta.

Fyll enkelt alla tomma celler i ett intervall med Kutools för Excel

Smakämnen Fyll tomma celler nytta av Kutools för Excel hjälper dig att enkelt fylla alla tomma celler med visst innehåll. Gör så här.

1. Markera intervallet med tomma celler som du behöver fylla med visst innehåll och klicka sedan på Kutools > Insert > Fyll tomma celler.

2. I Fyll tomma celler dialogrutan, kolla på Fast värde alternativet i Fyll med avsnittet och ange sedan visst innehåll i Fyllt värde rutan, slutligen klicka på OK knapp.

Sedan fylls alla tomma celler i det valda intervallet med innehållet som visas nedan.

Anmärkningar: Med det här verktyget kan du också fylla tomma celler baserat på värden och fylla tomma med linjära värden.