EXCEL 中替換多個值(VBA方式)

用途：
將某一區塊的所有值，更換成另一種對應值。一次替換多個值、一次更換多內容、大量置換內容、大量取代內容，取代特定資料。

例如：將某分頁中A1全部換成A，B1換成B

使用方式如下：
1. 建立一個對應(對照)分頁
要變更的分頁           對應資料分頁
A1                       A1  A
B1                       B1   B

2. 在 Excel 內按 Alt- F11

3. 呼叫後，選擇 插入->模組 貼上以下程式：

Sub MultiFindNReplace()
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("要變更的範圍 ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("對應資料分頁 :", 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. 按一下 綠色執行(三角形符號)

5. 按照指示圈選，注意 對應資料只要選第一列即可。
即 只要選A1 B1 這一列即可，因為他是參照這對換後一個A B