如何在 Excel 中將所有空白儲存格替換為特定數字或文字？

對於包含一些空白儲存格的儲存格範圍，您可能需要找到這些空白儲存格並將其替換為特定內容。本文中，我們提供了三種方法供您使用。

使用尋找和替換功能替換所有空白儲存格
使用 VBA 程式碼替換所有空白儲存格
輕鬆使用 Kutools for Excel 填充範圍內的所有空白儲存格

使用尋找和替換功能替換所有空白儲存格

您可以使用尋找和替換功能將 Excel 中的所有空白儲存格替換為特定內容。請按照以下步驟操作。

1. 選擇需要替換為特定內容的帶有空白儲存格的區域，然後同時按下 Ctrl + H 鍵以打開尋找和替換對話框。

2. 在彈出的尋找和替換對話框中，在替換標籤下，保持尋找內容框空白，輸入您想用來替換空白儲存格的特定文字到替換為框中，最後點擊全部替換按鈕。參見截圖：

3. 點擊以下對話框中的確定按鈕。

然後所選區域中的所有空白儲存格都被替換為特定內容。

使用 VBA 程式碼替換所有空白儲存格

您還可以應用 VBA 方法將範圍內的所有空白儲存格替換為特定內容。請按照以下步驟操作。

1. 同時按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Application 視窗。

2. 在 Microsoft Visual Basic for Application 視窗中，點擊插入 > 模組，然後複製並將以下 VBA 程式碼粘貼到模組視窗中。

VBA 程式碼：替換空白儲存格為特定內容

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. 按下 F5 鍵運行程式碼。在 Kutools for Excel 對話框中，選擇需要尋找和替換的帶有空白儲存格的範圍，然後點擊確定按鈕。

4. 在另一個 Kutools for Excel 對話框中，將特定內容輸入到文本框中，並點擊確定按鈕。參見截圖：

然後所有空白儲存格將立即被替換為您指定的文字。

注意：如果所選範圍不包含空白儲存格，您將收到以下對話框。

輕鬆使用 Kutools for Excel 填充範圍內的所有空白儲存格

Kutools for Excel 的填充空白儲存格工具可幫助您輕鬆地將所有空白儲存格填充為特定內容。請按照以下步驟操作。

1. 選擇需要填充為特定內容的帶有空白儲存格的範圍，然後點擊 Kutools > 插入 > 填充空白儲存格。

2. 在填充空白儲存格對話框中，勾選填充方式部分中的固定值選項，然後將特定內容輸入到填充值框中，最後點擊確定按鈕。

然後所選範圍內的所有空白儲存格將被填充為如下截圖所示的內容。

注意：使用此工具，您還可以基於值填充空白儲存格，並使用線性值填充空白。