再多工作表创建 也能够轻松搞定

开篇：润墨网以专业的文秘视角，为您筛选了一篇再多工作表创建 也能够轻松搞定范文，如需获取更多写作素材，在线客服老师一对一协助。欢迎您的阅读与分享！

在日常工作中，如果不善于学习使用各种方法与技巧，即使加班加点、埋头苦干，也常常是事倍功半。我最近接到一个任务：为整个学校的所有班级都建立一个以班级名称命名的工作簿，再在每个工作簿中为这个班级的学生都新建一个以各自姓名命名的工作表，以便于各级管理部门精细化管理每个学生的日常学习生活情况。

新建工作簿、右击重命名、添加工作表、双击重命名，操作虽然很简单，但相同的操作要连续做好几千次，实在是费时费力，相当麻烦。其实，只要执行几句简单的Excel宏命令，借助一款文件批量重命名软件，就可以化繁为简，轻松搞定类似工作簿、工作表的创建和重命名问题。这里以80个班级，每个班级不超过50个人为例，来讲解通过Excel 2007具体的操作方法。

批量建立工作表

首先，打开Excel 2007，依次单击“Office按钮/Excel选项”按钮，在“常用/使用Excel时采用的首选项”列表中勾选“在功能区显示‘开发工具’选项卡”项，在“新建工作簿时”列表中设置新建工作簿时需要包含工作表的数量，默认值为3个，最大可设为255个（如图1）。因为每个班级人数均不超过50人，第一个工作表要放置学生姓名，所以这里设置为51个。如果我们一次需要使用的工作表数量超过255个，则可以在打开工作簿之后，使用快捷键“Shift+F11”，快速添加更多的工作表，只要机器的配置和性能允许，理论上可以添加成千上万个工作表。

接下来新建一个工作簿，其中有51个工作表，名称分别为Sheet1 、Sheet2…Sheet51，在Sheet1工作表的A1单元格输入其中一个班级的人数，假设为45人，并将对应的学生姓名复制粘贴到A2：A46数据区域。执行“开发工具/Visual Basic”命令，打开“Microsoft Visual Basic”程序设计窗口，双击工程资源管理器中的“Sheet1”工作表，在左侧的“通用”下拉列表中选择 “Worksheet”（工作表），在右侧的事件列表中选择“Activate”（活动）,并在对应的Worksheet_Activate()事件中输入三行简单的For循环代码：

For i = 1 To Cells(1, 1)

Sheets(i + 1).Name = Cells(i + 1, 1)

Next

其含义就是当Sheet1工作表为活动工作表时，执行上述程序代码，依次把Sheet2到Sheet46工作表，重命名为单元格A2到A46中的文本内容，请注意工作表名称中不能有重复数据项，否则运行时会有错误提示。保存并关闭Visual Basic程序窗口，单击进入Sheet1工作表之外的任何一个工作表，不需要进行任何操作，再单击进入Sheet1工作表，即可完成一个班级的工作表重命名操作（如图2）。

将工作簿批量重命名

将上述已经添加自动重命名代码的工作簿以任意文件名称保存到指定文件目录（这里使用默认的文件名“Book1.xls”），然后右击该文件并执行“复制”命令，通过键盘上的粘贴命令快捷键“Ctrl+V”，很快就可以生成指定数量的工作簿，暂时不管它们的名称是什么。通过Excel工作表，拖动复制所有的班级名称，并将其复制粘贴到一个记事本文件窗口当中，保存为“班级名称.txt”（如图3）。

能够进行文件批量重命名的软件很多，这里以笔者常用的“妖眼文件工具”（下载地址：）为例。下载运行该软件，在“选择目录”处选择目标文件夹，在“选择文件”框中会显示所有需要重命名的工作簿，一次单击中间的“全选”和“添加”按钮，将它们添加到右上方的“文件列表”中。单击打开下方的“列表替换”标签，单击左侧的“添加”按钮，在“原串”列表中添加右上方的文件夹列表，再单击其右侧的“导入”按钮，在“新串”列表中导入前面保存为文本文件的“班级名称.txt”，最后单击右下方的“执行”按钮，很快就可完成上述工作簿的重命名操作，并显示在右上方的文件列表中（如图4）。

默认情况下，Excel 2007会禁用所有的宏，为了让复制改名后的工作簿能够正常运行宏代码，需要先执行“开发工具/宏安全性”命令，在“信任中心/宏设置”列表中勾选“启用所有宏”项。然后依次打开各个工作簿，在Sheet1工作表当中更改对应班级的人数，并将学生姓名复制粘贴到A列中相应的位置，再次切换一下Sheet1工作表的活动状态（方法同上），可以再次进行工作表的自动重命名操作（如图5），删除Sheet1等多余的工作表之后，就搞定了一个班级管理工作簿的创建改名任务。

80个Excel管理工作簿，大量工作表的创建和改名操作，如果采用原始的方法，可能需要两三个小时才能完成，而借力三行简单的宏代码和一个自动更名软件，不超过半个小时就可以轻松搞定，由此可见，方法和技巧对提高工作效率，确实是非常重要。