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

Author Xiaoyang Last modified 2025-08-23

A screenshot showing an example data range with values to replace in Excel

眾所周知，尋找和替換功能可以用來定位多個相同的儲存格並將其替換為指定的值。然而，有時您需要同時進行多對多的替換。例如，我有一個數據區域，現在想將所有的「蘋果」替換成「紅蘋果」、「橙子」替換成「綠橙子」、「香蕉」替換成「黃香蕉」等等，如左側截圖所示。您是否有有效的方法可以在 Excel 中完成此任務？

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

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

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

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

A screenshot showing the table of original and replacement values for the VBA process

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」鍵運行程式碼，在彈出的提示框中，請指定要替換值的數據區域。

A screenshot of the VBA prompt to specify the data range for replacement

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

A screenshot of the VBA prompt to select the replacement criteria range

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

A screenshot showing the result of replacing multiple values in Excel

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

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

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

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

最佳 Office 生產力工具

🤖	Kutools AI 助手：以智能執行為基礎，革新數據分析｜生成程式碼｜創建自訂公式｜分析數據並生成圖表｜調用 Kutools 增強函數…
	熱門功能：查找、選取項目的背景色或標記重複值｜刪除空行｜合併列或單元格且不遺失數據｜四捨五入（免公式）...
	高級 LOOKUP：多條件 VLookup｜多值 VLookup｜多表查找｜模糊查找...
	高級下拉列表：快速創建下拉列表｜依賴型下拉列表｜多選下拉列表...
	列管理器：添加指定數量的列｜移動列｜切換隱藏列的顯示狀態｜比較區域及列...
	精選功能：網格聚焦｜設計檢視｜增強編輯欄｜工作簿及工作表管理器｜資源庫（快捷文本）｜日期提取器｜合併資料｜加密/解密儲存格｜按列表發送電子郵件｜超級篩選｜特殊篩選（篩選粗體/傾斜/刪除線...）...
	15 大工具集：12 項文本工具（添加文本、刪除特定字符…）｜50+ 儀表類型（甘特圖等）｜40+ 實用公式（基於生日計算年齡等）｜19 項插入工具（插入QR码、根據路徑插入圖片等）｜12 項轉換工具（金額轉大寫、匯率轉換等）｜7 項合併與分割工具（高級合併行、分割儲存格等）｜...及更多