如何在 Excel 中将非空单元格替换为特定值？

在 Excel 中，我们可以通过按 Ctrl + Enter 键快速轻松地用特定值替换或填充选中的区域。但是，您是否知道如何仅在包含空白单元格和有值单元格的选定范围内，将非空单元格替换为某个特定值呢？

使用“查找和替换”功能将非空单元格替换为特定值

使用 VBA 代码将非空单元格替换为特定值

使用“查找和替换”功能将非空单元格替换为特定值

在 Excel 中，“查找和替换”功能可以帮助我们找到所有非空单元格，然后根据需要将其替换为指定的值。

1. 选择要替换值单元格的数据区域。

2. 然后按 Ctrl + H 打开“查找和替换”对话框，在“查找和替换”对话框中，切换到“替换”选项卡，在“查找内容”字段中输入 *，并在“替换为”文本框中输入所需的值，参见截图：

3. 然后点击“全部替换”按钮，会弹出一个对话框告知您被替换的单元格数量，关闭对话框后，所选范围内的所有值都会被替换为您指定的数据，参见截图：

使用 VBA 代码将非空单元格替换为特定值

通过使用以下 VBA 代码，您也可以一次性将所有数据单元格替换为所需的值。请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击“插入”>“ 模块”，并将以下代码粘贴到模块窗口中。

VBA 代码：将非空单元格替换为特定值

Sub ReplaceNumbers()
'Update 20141111
    Dim SRg As Range
    Dim Rg As Range
    Dim Str As Variant
    On Error Resume Next
    Set SRg = Application.Selection
    Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
    If Err <> 0 Then Exit Sub
    Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
    If Str = False Then Exit Sub
    For Each Rg In SRg
        If Rg <> "" Then Rg = Str
    Next
End Sub

3. 然后按 F5 键运行此代码，会弹出一个提示框，提醒您选择要替换数据的范围，参见截图：

4. 然后点击“ 确定”，并在下一个提示框中输入您的特定值，参见截图：

5. 然后点击“确定”，所选范围内的所有值都会立即被替换为指定的数据。