excel 中一个表格想复制上百次,有没有简单方法。

发布网友发布时间：2022-04-26 07:18

共3个回答

热心网友时间：2022-06-25 04:47

有人这么说宏代码：

Sub copy()
Dim i As Integer

Application.ScreenUpdating = False
For i = 1 To N
Sheets("模板表").copy After:=Sheets(Sheets.Count)
Next
Application.ScreenUpdating = True
End Sub

说明：

1、For i = 1 To N ' N代表要复制表的个数，如果要复制300张表，则输入：For i = 1 To 300

2、Sheets("模板表").copy After: '模板表及源工作表表名

热心网友时间：2022-06-25 04:48

是工作表吗?如果是直接用录制宏搞定了.如果是里面的一个表格,就不明白为何要复制上百次呢?当然也可实现.只是没必要.

热心网友时间：2022-06-25 04:48

利用几何级数的方法，按shift键选中第一个和最后一个sheet，建立副本，比较快！