Excel VBA批量查找替换宏处理80条以上规则时随机漏替换问题求助

• 核心问题：代码调用Range.Replace时未显式指定匹配规则参数，Excel会默认继承上一次替换操作（不管是手动操作还是其他代码触发）的参数设置（如是否全单元格匹配、是否区分大小写等），规则量少时参数缓存刚好符合预期，规则超过80条后参数状态偏移的概率大幅升高，就会出现部分匹配项未被识别的情况。
• 次要触发原因：若替换规则列存在空白单元格，会触发空值匹配逻辑，干扰正常替换流程；如果存在「替换后结果命中后续替换规则」的连锁场景，也会出现看起来漏替换的表现。

Sub MultiFindNReplace()
    Dim Rng As Range
    Dim InputRng As Range, ReplaceRng As Range
    Dim xTitleId As String
    xTitleId = "KutoolsforExcel"
    
    On Error Resume Next ' 处理用户点击取消的异常场景
    Set InputRng = Application.Selection
    Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
    If InputRng Is Nothing Then Exit Sub
    Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
    If ReplaceRng Is Nothing Then Exit Sub
    On Error GoTo 0
    
    Application.ScreenUpdating = False
    For Each Rng In ReplaceRng.Columns(1).Cells
        ' 跳过规则列的空行，避免无效替换
        If Trim(Rng.Value) <> "" Then
            ' 显式指定所有替换参数，避免继承Excel的缓存设置
            InputRng.Replace _
                What:=Rng.Value, _
                Replacement:=Rng.Offset(0, 1).Value, _
                LookAt:=xlPart, ' 如需全单元格匹配请改成xlWhole
                SearchOrder:=xlByRows, _
                MatchCase:=False, ' 如需区分大小写请改成True
                MatchByte:=False ' 如需区分全半角请改成True
        End If
    Next
    Application.ScreenUpdating = True
End Sub

• 如果存在连锁替换需求（即A替换为B后，B需要继续替换为C），请调整替换规则的排列顺序，避免后续规则覆盖之前的替换结果
• 如果替换内容包含*、?这类通配符，需要额外设置UseWildcards参数，或者提前对特殊字符做转义处理

内容的提问来源于stack exchange，提问作者Karol Wesołowski