如何在Excel中一次查找和替換多個(gè)值？

眾所周知，我們可以使用“查找和替換”功能來查找多個(gè)相同的單元格，并根據(jù)需要用值替換它們。 但是有時(shí)，您需要同時(shí)應(yīng)用多對(duì)多替換。 例如，我有一系列數(shù)據(jù)，現(xiàn)在我想將所有的Apple替換為Red Apples，將Oranges替換為Green Oranges，將Bananas替換為Yellow Bananas，依此類推，如下面的屏幕截圖所示，您是否有解決此任務(wù)的好主意？ Excel？

使用VBA代碼一次查找并替換多個(gè)值

使用VBA代碼一次查找并替換多個(gè)值

如果您厭倦了一次又一次地查找和替換值，下面的VBA代碼可以幫助您立即用所需的文本替換多個(gè)值。

1。 請(qǐng)創(chuàng)建包含原始值和新值的要使用的條件。 看截圖：

2。 然后按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications窗口。

3。 點(diǎn)擊 插頁 > 模塊，然后將以下代碼粘貼到“模塊”窗口中。

VBA代碼：一次查找并替換多個(gè)值

Sub MultiFindNReplace()Updateby ExtendofficeDim Rng As RangeDim InputRng As Range, ReplaceRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)Application.ScreenUpdating = FalseFor Each Rng In ReplaceRng.Columns(1).CellsInputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).ValueNextApplication.ScreenUpdating = TrueEnd SubCopy

4。 然后按 F5 鍵以運(yùn)行此代碼，請(qǐng)?jiān)趶棾龅奶崾究蛑?，指定要用新值替換值的數(shù)據(jù)范圍。

5。 點(diǎn)擊 OK，并顯示另一個(gè)提示框，提醒您選擇在步驟1中創(chuàng)建的條件。請(qǐng)參見屏幕截圖：

6。 然后點(diǎn)擊 OK，所有特定值均已根據(jù)需要立即用新值替換。

相關(guān)文章：

如何查找和替換文本框中的特定文本？

如何在Excel中的圖表標(biāo)題中查找和替換文本？

如何在Excel中的注釋中查找和替換文本？

如何在Excel中一次更改多個(gè)超鏈接路徑？

最佳辦公生產(chǎn)力工具

將小時(shí)轉(zhuǎn)化為分鐘 Kutools for Excel!

準(zhǔn)備好增強(qiáng)您的 Excel 任務(wù)了嗎？ 利用的力量 Kutools for Excel - 您終極的節(jié)省時(shí)間的工具。 簡(jiǎn)化復(fù)雜的任務(wù)并像專業(yè)人士一樣瀏覽數(shù)據(jù)。 以閃電般的速度體驗(yàn) Excel！

為什么需要 Kutools for Excel