批量修改文件夹中表格内容

623277606

文件夹中有许多类似表格， 中人名都是空白，想批量改为
主管：李     复核：赵      制表：王，求各位老师赐教

liulang0808

Sub 按钮1_Click()
    Set fso = CreateObject("scripting.filesystemobject")
    arr = Array("主管:", "主管:A1", "复核:", "复核:b1", "制表:", "制表:c1")
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.EnableEvents = False
    For Each f In fso.getfolder(ThisWorkbook.Path).Files
        If InStr(f.Name, ThisWorkbook.Name) = 0 Then
            With Workbooks.Open(f)
                For j = 0 To UBound(arr) Step 2
                    Set Rng = .Sheets(1).UsedRange.Find(arr(j), lookat:=xlWhole)
                    If Not Rng Is Nothing Then Rng.Value = arr(j + 1)
                Next j
                .Save
                .Close True
            End With
        End If
    Next f
    Application.EnableEvents = True
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

liulang0808

附件内容供参考。。。。。