作者：乔山办公网日期：
返回目录：excel表格制作
excel 中将一个工作表批量复制出很多个相同的工作表的方法可以采用下面的方法：
1、要复制的表抄是连在一起的就好办，在表名的地方，先点击最百左边要复制的表，然后按住shift键，点击最右边要复制的表，然后在表名的地方单击右键，选择“移动或复制度工作表”，其中工作簿的下拉框中可选择“新工作簿”或现有打开的工作簿，确定复制的位置，最下面可勾上“建立副本”（如果不勾，将是移动表格），确定即可。
2、可以知录制一个宏，然后在需要的时候执行这个宏就可以了。
3、编制单独的程序来实现道，可以通过vb,vc或其它的高级语言通过编程来实现，会更文件地来完成这样的功能。
1、首先在官方网站上下载并安装Excel摘要大师，然后双击打开，打开软件后，知在左侧列表中选择要使用的功能，并批量重命名工作簿道中的工作表。
2、然后选择要处理的文件。您可以直接将要处理的表单拖到软件中间的输入框中。点击下一步。
3、单击页面顶部的“完成”专按钮。
4、在表格中的原始图纸名称后输入新的图纸名称。
5、单击页面右下角的“完成”按钮。您可以看到工作表列表正在进行转换，请稍等。
6、最后，您可以看到工作簿属中的所有工作表名称都已被修改。
亲，这个要用复VBA编程。请告知具体命名规则。
打开你的Excel文件，制按“Alt+F11”打开VBA编辑窗口，百然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。度然后按“Alt+F8”打开宏窗口，选择刚插入知的宏，点击“执行”。
Sub cmm()
Dim i As Integer
For i = 1 To Sheets.Count
Debug.Print Sheets(i).Name '这一句更道改为你的命名规则
Next
End Sub
在visual basic编辑器中插入一个zd模块，把以下代码粘版进去，运行就可以了权。
Sub Macro1()
a = Sheets.Count
For i = a + 1 To a + 30
Sheets.Add After:=Sheets(Sheets.Count)
'Sheets("Sheet4").Select
Sheets(i).Name = "1月" & i - a & "日"
Next
End Sub