用参考值替换值[Excel VBA]

Question

您好，我没有使用Excel VBA的经验，所以我在线找到了一个脚本，我试图使用VBA脚本用引用替换Excel列中的某些值

这是我的代码：

Sub MultiFindNReplaceNew()
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "Test"
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.Colums(1).Cells
    InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub

预期结果：

请观看此视频以查看预期的结果：https://youtu.be/obzWsD5dk10?t=53

发现错误：

我正在使用20K +值，因此收到此错误“运行时错误'438'：对象不支持此属性或方法”