我们经常会在一张工作簿内新建多张工作表，并对其按照要求更改名称。如我们需要在一张工作簿中统计8月份的数据，里面每一页统计一天的数据，并按照8月1日、8月2日等规律重命名。这样的操作你是一张张的新建并重命名吗？这里教大家一种简单方法。
增加31张工作表方法
（1）、点击文件—选项—常规—新增工作簿时—包含的表格数修改为31—确定。这时会新建一张有31张工作表的工作簿。如下图：
（2）、点击文件—新建，即可看到新增了一个包含31张工作表的工作簿。
如何对31张工作表进行重命名
思路：这里对代码进行重命名使用的是一段简单的VBA代码进行操作。
（1）、首先新建的工作簿sheet1当中，将8月1日-8月30日名称先进行输入。如下图：
（2）按住快捷键alt+F11，或者点击开发工具—点击Visual Basic，进入VBA代码窗口。点击左边工程窗口sheet页最下面的：Thisworkbook—右键—插入—模块。如下图：
（3）双击新建的模块，进入代码窗口。将以下代码输入代码窗口：
Sub 重命名()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Name = Cells(i + 1, 1).Text
Next
End Sub
（4）输入上面的代码后，关闭VBA窗口。在sheet1工作表中插入一个任意图形。点击插入—形状—图形（可以加一个名字，重命名）。右键点击新建的图形—指定宏，并选择里面的一个重名名代码，点击确定即可。
（5）点击刚指定了宏的图形，奇迹出现了，所有的工作表都按照前面填写的日期进行修改过来了。
按照上面的方法操作是不是非常简单呀~~~
分享到:
閱讀更多 Excel入門到精通 的文章
