循环多工作簿替换指定工作表中全部[Master.xlsm]的VBA问题

你的代码仅替换第一个匹配项，核心问题在于FormulaVersion:=xlReplaceFormula2参数——这个参数在部分Excel版本中会限制替换逻辑，无法实现全局替换。同时代码里存在重复打开文件的冗余操作，以下是优化后的完整代码：

Sub findandreplace()
    ' findandreplace Macro
    ' 批量替换[Master.xlsm]为空值
    
    ' 收集目标文件夹内所有xlsx文件
    Dim loopFolder As String
    Dim fileNm As Variant
    Dim myFiles As New Collection
    
    loopFolder = "C:\Users\me\Desktop\Response\"
    fileNm = Dir(loopFolder & "*.xlsx")
    
    Do While fileNm <> ""
        myFiles.Add fileNm
        fileNm = Dir
    Loop
    
    ' 遍历所有文件执行替换操作
    Dim wb As Workbook
    
    For Each fileNm In myFiles
        Set wb = Workbooks.Open(Filename:=loopFolder & fileNm)
        
        ' 直接操作工作表，避免Select/Selection
        wb.Sheets("FinalResponse").Cells.Replace _
            What:="[Master.xlsm]", _
            Replacement:="", _
            LookAt:=xlPart, _
            SearchOrder:=xlByRows, _
            MatchCase:=False, _
            SearchFormat:=False, _
            ReplaceFormat:=False
        
        ' 直接用已打开的工作簿对象保存关闭
        wb.Save
        wb.Close SaveChanges:=False
    Next
    
End Sub

关键修改说明： #

• 移除FormulaVersion:=xlReplaceFormula2参数：该参数仅针对Excel 365的动态数组公式设计，会干扰常规的全局替换逻辑，移除后恢复默认的全部替换行为
• 取消Select和Selection：直接通过wb.Sheets("FinalResponse").Cells引用目标区域，避免界面交互带来的错误，提升代码运行效率
• 复用已打开的wb对象：原代码中重复调用Workbooks.Open会导致文件被多次打开，现在直接用已赋值的工作簿对象执行保存、关闭操作，避免冗余操作

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