Hogyan lehet megtalálni és helyettesíteni az összes üres cellát bizonyos számmal vagy szöveggel az Excelben?

Néhány üres cellával töltött cellatartomány esetén előfordulhat, hogy meg kell találnia ezeket az üres cellákat, és bizonyos tartalommal helyettesítenie kell azokat. Ebben a cikkben három módszert kínálunk az Ön számára.

Keresse meg és cserélje ki az összes üres cellát a Keresés és csere funkcióval
Keresse meg és cserélje ki az összes üres cellát VBA kóddal
Könnyen kitöltheti a tartomány összes üres celláját a Kutools for Excel alkalmazással

---

Keresse meg és cserélje ki az összes üres cellát a Keresés és csere funkcióval

Használhatja a Keresés és csere funkció az összes üres cellát bizonyos tartalommal helyettesíti az Excelben. Kérjük, tegye a következőket.

1. Válassza ki azt a tartományt üres cellákkal, amelyeket le kell cserélnie bizonyos tartalmakra, majd nyomja meg az gombot Ctrl + H gombokat egyidejűleg a Keresés és csere párbeszédpanel megnyitásához.

2. A felbukkanóban Keresés és csere párbeszédpanel alatt Cserélje fülön tartsa a Mit keres üres mezőbe írja be azt a szöveget, amelyet az üres cellákkal helyettesíteni szeretne Cserélje ki mezőbe, és végül kattintson a gombra Az összes cseréje gomb. Lásd a képernyőképet:

3. Kattintson a OK gombra a következő párbeszédpanelen.

Ezután a kiválasztott tartományban lévő összes üres cellát bizonyos tartalommal helyettesíti.

---

---

Keresse meg és cserélje ki az összes üres cellát VBA kóddal

Alkalmazhatja a VBA metódust az összes üres cella lecserélésére egy tartomány bizonyos tartalmára. Kérjük, tegye a következőket.

1. megnyomni a más + F11 gombok egyszerre a Microsoft Visual Basic alkalmazásokhoz ablak.

2. Ban,-ben Microsoft Visual Basic alkalmazásokhoz ablakban kattintson betétlap > Modulok, majd másolja és illessze be a VBA kód alatt a Modul ablakba.

VBA kód: Cserélje ki az üres cellákat bizonyos tartalommal

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. megnyomni a F5 gombot a kód futtatásához. Ban,-ben Kutools az Excel számára párbeszédpanelen válassza ki azt a tartományt üres cellákkal, amelyet meg kell találnia és cserélnie, majd kattintson a OK gombot.

4. Egy másikban Kutools az Excel számára párbeszédpanelen adja meg a szöveg tartalmát, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

Ezután az összes üres cellát azonnal felcseréljük bizonyos szöveggel, amint azt fentebb megadtuk.

Megjegyzések: Ha a kiválasztott tartomány nem tartalmaz üres cellákat, akkor a következő párbeszédpanelt kapja meg.

---

Könnyen kitöltheti a tartomány összes üres celláját a Kutools for Excel alkalmazással

A Töltse ki az üres cellákat hasznossága Kutools az Excel számára segít könnyedén kitölteni az összes üres cellát bizonyos tartalommal. Kérjük, tegye a következőket.

1. Válassza ki azt a tartományt üres cellákkal, amelyeket meg kell töltenie bizonyos tartalommal, majd kattintson a gombra Kutools > betétlap > Töltse ki az üres cellákat.

2. Ban,-ben Töltse ki az üres cellákat párbeszédpanelen ellenőrizze a Rögzített érték lehetőség a Tölteni szakaszban, majd írja be a bizonyos tartalmat a Kitöltött érték mezőbe, végül kattintson a gombra OK gombot.

Ezután a kiválasztott tartományban lévő összes üres cellát kitölti a tartalom, az alábbi képernyőképen.

Megjegyzések: Ezzel a segédprogrammal üres cellákat is kitölthet értékek alapján, és kitöltheti lineáris értékekkel.