Excel VBA如何在指定单元格区域实现多值对应查找替换？

你现有代码无法正常实现需求的核心问题是混淆了Word与Excel的VBA查找替换逻辑：带替换参数调用.Execute的写法是Word VBA的专属用法，Excel中Range对象的Find方法仅支持定位匹配单元格，不支持直接传入替换参数执行替换操作。在Excel里做指定区域的批量查找替换，直接调用Range对象自带的Replace方法即可，逻辑更简洁，也不会出现对象调用不兼容的问题。
另外如果不明确指定匹配规则，默认可能匹配单元格内的部分文本，比如单元格值为15062时也会被误识别命中替换规则，建议明确设置全单元格匹配参数避免误改数据。

Sub 指定区域批量替换()
    Dim myRange As Range
    ' 定义替换范围：C列第6行到第65行
    Set myRange = Range(Cells(6, 3), Cells(65, 3))
    
    ' 逐组执行替换规则
    ' LookAt:=xlWhole 代表仅当单元格内容完全匹配目标值时才触发替换
    ' 如果需要匹配单元格内的部分内容，将参数值改为xlPart即可
    With myRange
        .Replace What:="5062", Replacement:="3201", LookAt:=xlWhole
        .Replace What:="5063", Replacement:="3202", LookAt:=xlWhole
        .Replace What:="5084", Replacement:="3204", LookAt:=xlWhole
    End With
End Sub

• 执行替换前建议先备份文件，避免误操作导致数据丢失，也可以先选中C6:C65区域确认范围是否符合预期。
• 如果目标单元格存储的是数值类型的5062、5063这类内容，参数可以直接写数值形式What:=5062，和带引号的文本形式匹配效果一致；如果是文本格式存储的内容，按示例中带引号的写法传参即可。

内容的提问来源于stack exchange，提问作者Beau