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

作者Xiaoyang修改日期2025-04-17

顯示 Excel 中包含需替換數值之資料範圍的螢幕截圖

眾所皆知，「尋找與取代」功能可用來定位多個相同的儲存格，並以指定值進行替換。然而，有時您需要同時執行多對多的取代作業。例如，我有一組資料範圍，現在想將所有「Apple」替換為「Red Apple」、「Orange」替換為「Green Orange」、「Banana」替換為「Yellow Banana」，依此類推（如左側截圖所示）。請問在 Excel 中是否有高效的方法能一次完成這類任務？

使用 VBA 程式碼一次查找和替換多個值

使用 VBA 程式碼一次查找和替換多個值

如果您厭倦了反覆手動查找並替換這些值，以下 VBA 程式碼能幫您一次將多個值快速取代為所需內容。

1. 請先建立一份包含原始值與新值的對應清單。參見截圖：

顯示 VBA 處理程序所用之原始值與替換值對照表的螢幕截圖

2. 接著按住「Alt」+「F11」鍵，即可開啟「Microsoft Visual Basic for Applications」視窗。

3. 點選「Insert」>「Module」，並將下列程式碼貼上至模組視窗中。

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」鍵執行此程式碼，系統將彈出提示方塊，請於其中指定您要進行取代作業的數據區域。

VBA 提示指定替換資料範圍的螢幕截圖

5. 點選「OK」後，將彈出另一個提示方塊，提醒您選取步驟 1 中所建立的條件清單。參見截圖：

VBA 提示選取替換條件範圍的螢幕截圖

6. 點選「OK」後，所有指定的值皆已依需求成功取代為新值。

顯示 Excel 中多個數值已成功替換結果的螢幕截圖

如何在文字框中快速查找並替換特定文字？

如何在 Excel 圖表標題中快速查找並替換文字？

如何在 Excel 註解中搜尋並取代文字？

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

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多