excel - 基于表 MakroExcelVBA 的 MultiFInd 替换

Question

我在下面的代码中遇到问题当我有大约 80 多个短语来替换宏时，会跳过一些随机短语。当我隔离这个短语时，宏很好。

Sub MultiFindNReplace()
    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

标签： excelvbastringreplacesubstitution