excel如何将某个工作表批量替换到多个工作簿中

落毓

如题：现在有100+项目的底表，表格内有数据经常需要替换。求一个VBA的方法，批量修改指定页签的数据，整页替换的这种。感谢大神！！
也请大神再指导一下，如何批量修改指定某一个单元格的修改。感谢感谢！！

蓝桥玄霜

辅助表的例子：

gwjkkkkk

Option Explicit
Sub test()
    Dim strFileName$, strPath$, Rng As Range, wksName$
   
    Application.ScreenUpdating = False
    Set Rng = [A1].CurrentRegion
    wksName = ActiveSheet.Name
   
    strPath = ThisWorkbook.Path & "\项目合集\"
    strFileName = Dir(strPath & "*.xls*")
    Do Until strFileName = ""
        If strFileName <> ThisWorkbook.Name Then
            With Workbooks.Open(strPath & strFileName)
                If isWksExists1(wksName) Then
                    With .Sheets(wksName)
                        .UsedRange.Clear
                        Rng.Copy .[A1]
                    End With
                    .Close True
                Else
                    .Close False
                End If
               
            End With
        End If
        strFileName = Dir
    Loop
   
    Set Rng = Nothing
    Application.ScreenUpdating = True
    Beep
End Sub
Public Function isWksExists1(wksName As String) As Boolean
    On Error Resume Next
    isWksExists1 = Sheets(wksName).Name = wksName
End Function

gwjkkkkk

请参考。。。

落毓

gwjkkkkk 发表于 2023-3-28 13:39
请参考。。。

老师，感谢你的回复。但是，我下载下来显示无法运行。但是所有的宏，我都启用了，看不出什么原因。
另外，表格名称更改，和增加行列数据是否可以正常使用？

落毓

蓝桥玄霜 发表于 2023-3-28 13:22
辅助表的例子：

谢谢老师的回答。后面要加强学习了

gwjkkkkk

落毓 发表于 2023-3-28 15:51
老师，感谢你的回复。但是，我下载下来显示无法运行。但是所有的宏，我都启用了，看不出什么原因。
另外 ...

1.更改辅助表名，可以运行没问题。
2.但表格添加内容，还需简单改一下即可。
无法运行，跟你电脑有关吧。。。

ykcbf1100

附件供参考。。。

落毓

gwjkkkkk 发表于 2023-3-28 15:57
1.更改辅助表名，可以运行没问题。
2.但表格添加内容，还需简单改一下即可。
无法运行，跟你电脑有关吧 ...

我把代码复制出来，新建了一个文件，已测试可以使用了。增加了一些行业，看起来也是可以复制过去的。
但是复制过去以后，按钮也出现在需要更新的那一页了。这个能调整一下吗？剪切到别的页签再操作，复制就无效了。

落毓

ykcbf1100 发表于 2023-3-28 16:06
附件供参考。。。

谢谢老师