Jak znaleźć i zamienić wszystkie puste komórki na określoną liczbę lub tekst w programie Excel?

W przypadku zakresu komórek wypełnionych pustymi komórkami może być konieczne znalezienie tych pustych komórek i zastąpienie ich określoną zawartością. W tym artykule przedstawiamy trzy metody.

Znajdź i zamień wszystkie puste komórki za pomocą funkcji Znajdź i zamień
Znajdź i zamień wszystkie puste komórki na kod VBA
Z łatwością wypełnij wszystkie puste komórki w zakresie za pomocą Kutools for Excel

---

Znajdź i zamień wszystkie puste komórki za pomocą funkcji Znajdź i zamień

Możesz użyć Znajdowanie i zamienianie funkcja, aby zastąpić wszystkie puste komórki określoną zawartością w programie Excel. Wykonaj następujące czynności.

1. Wybierz zakres z pustymi komórkami, które chcesz zastąpić określoną zawartością, a następnie naciśnij Ctrl + H klawiszy, aby otworzyć okno dialogowe Znajdź i zamień.

2. W wyskakującym okienku Znajdowanie i zamienianie okno dialogowe w obszarze zastąpić zachowaj Znajdź co pole puste, wprowadź określony tekst, który chcesz zamienić puste komórki w Zastąp i na koniec kliknij Zamień wszystko przycisk. Zobacz zrzut ekranu:

3. Kliknij OK w następującym oknie dialogowym.

Następnie wszystkie puste komórki w wybranym zakresie są zastępowane określoną zawartością.

---

---

Znajdź i zamień wszystkie puste komórki na kod VBA

Możesz również zastosować metodę VBA, aby zastąpić wszystkie puste komórki określoną zawartością w zakresie. Wykonaj następujące czynności.

1. wciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic dla aplikacji okno.

2. w Microsoft Visual Basic dla aplikacji okno, kliknij wstawka > Moduł, a następnie skopiuj i wklej poniższy kod VBA do okna modułu.

Kod VBA: Zastąp puste komórki określoną treścią

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. wciśnij F5 klucz do uruchomienia kodu. w Kutools dla programu Excel W oknie dialogowym wybierz zakres z pustymi komórkami, które chcesz znaleźć i zamienić, a następnie kliknij OK przycisk.

4. W innym Kutools dla programu Excel okno dialogowe, wprowadź określoną zawartość w polu tekstowym i kliknij OK przycisk. Zobacz zrzut ekranu:

Następnie wszystkie puste komórki są natychmiast zastępowane określonym tekstem, jak określono powyżej.

Uwagi: Jeśli wybrany zakres nie zawiera pustych komórek, pojawi się następujące okno dialogowe.

---

Z łatwością wypełnij wszystkie puste komórki w zakresie za pomocą Kutools for Excel

Podróż Ruta de la Plata w liczbach Wypełnij puste komórki użyteczność Kutools dla programu Excel pomaga łatwo wypełnić wszystkie puste komórki określoną treścią. Wykonaj następujące czynności.

1. Wybierz zakres z pustymi komórkami, które chcesz wypełnić określoną zawartością, a następnie kliknij Kutools > wstawka > Wypełnij puste komórki.

2. w Wypełnij puste komórki w oknie dialogowym, sprawdź Stała wartość opcja w Napełnij sekcji, a następnie wprowadź określoną zawartość do pliku Wartość wypełniona na koniec kliknij OK przycisk.

Następnie wszystkie puste komórki w wybranym zakresie zostaną wypełnione treścią, jak pokazano poniżej.

Uwagi: Za pomocą tego narzędzia można również wypełniać puste komórki na podstawie wartości i wypełniać puste miejsca wartościami liniowymi.