如何在 Excel 中查找并用特定数字或文本替换所有空白单元格？

对于包含一些空白单元格的单元格区域，您可能需要找到这些空白单元格并将它们替换为特定内容。本文中，我们为您提供三种方法。

使用“查找和替换”功能查找并替换所有空白单元格
使用 VBA 代码查找并替换所有空白单元格
使用 Kutools for 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. 在“填充空白单元格”对话框中，勾选“填充方式”部分中的“固定值”选项，然后在“填充值”框中输入特定内容，最后单击“确定”按钮。

然后，所选范围内的所有空白单元格都会填充以下截图所示的内容。

注意：使用此工具，您还可以基于值填充空白单元格，并用线性值填充空白。