如何在 Excel 中一次尋找並替換多個值？

  使用 VBA 程式碼一次尋找並替換多個值

如果您厭倦了反覆進行尋找和替換操作，以下的 VBA 程式碼可以幫助您一次性將多個值替換為所需的文本。

1. 請建立您想要使用的條件，其中包含原始值和新值。請參閱截圖：

2. 然後按住「ALT」+「F11」鍵以打開「Microsoft Visual Basic for Applications 視窗」。

3. 點擊「插入」>「模組」，並將以下程式碼粘貼到模組視窗中。

VBA 程式碼：一次尋找並替換多個值

Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

4. 然後按下「F5」鍵運行程式碼，在彈出的提示框中，請指定要替換值的數據區域。

5. 點擊「確定」，另一個提示框會顯示提醒您選擇在步驟 1 中創建的條件。請參閱截圖：

6. 然後點擊「確定」，所有指定的值都已根據要求被替換為新的值。

相關文章：

如何在文字框中尋找並替換特定文字？

如何在 Excel 的圖表標題中尋找並替換文字？

如何在 Excel 的批註中尋找並替換文字？

如何在 Excel 中一次更改多個超連結路徑？