如何在 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. 然後點擊「確定」，所選範圍內的所有值都會立即被替換為指定的數據。