在EXCEL中如何将Sheet1中数据复制到Sheet2至Sheet20中（共19个表）

来源：百度知道 编辑：UC知道 时间：2024/09/19 16:53:53
要求批量完成不能一个个表进行复制，使用基本操作，望指教谢谢

点sheet1，再按着shift点sheet20后，松shift，此时，选择的是工作组，即，选择了20张表，而同时现在的工作区是sheet1，你可以用鼠标框选一下你要复制的内容，然后在sheet1相同的位置重新粘贴一下，再点其他sheet表，看看吧。

当然这是针对这些sheet表格式一样的操作方法。

宏代码：

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: '模板表及源工作表表名

你看看这个代码吧，刚才我摸索了一下，没弄明白。

选择sheet1中要复制的数据,ctrl+c

然后选择sheet2,按着shift再选sheet20.

ctrl+v

子易空间站 - 高效办公指导网站

右击sheet1，选择移动或复制工作表，选定你要复制的工作表，勾选上建立副本，ok