Excel VBA工作表 7.1 批量新增空白工作表 省去敲鼠标的烦恼

前景提要

好了，经过了短暂的第6系列弹窗和多条件窗体的选择之后，我们来到了第7系列，本系列主要是和大家分享一些关于工作表的操作，很多童鞋这里可能有犯糊涂了，之前我们不是分享过关于工作薄的很多操作吗，怎么现在又说工作表呢，有必要再次和大家说明下工作薄和工作表的区别，以免大家在后续的使用中出现用混的情况

今天是我们初次接触工作表，所以我们先讲述一些比较简单的工作表的操作，比方说批量新建空白工作表

场景模拟

其实在日常的工作中，我们对于新增工作表的情况还是比较常见的，就拿大家比较关注的NBA的季后赛来说吧，NBA的季后赛现在也是牵扯到了很多的篮球迷的关注，假设我们现在做一个季后赛的对决图，我们做好了西部首轮的对决图

但是我们不能只关注西部啊，何况现在已经进入了东西部半区的决赛了，我们可能要增加新的工作表了，那我算下要加多少个表，5个，然后我还想细化到每一场比赛的对阵情况，比分数据，又要单独一个工作表，点击鼠标一次只能增加一个，有没有办法一次性就添加N个新的工作表呢？

代码区

Sub adds()Dim num&, i&num = Application.InputBox("请问需要增加几个工作表", "确定增加数量", , , , , , 1)For i = 1 To num Worksheets.AddNext iEnd Sub

代码看起来非常的简短，很正常，因为仅仅是增加工作表而已，并没有太复杂的操作，何况今天还是本系列的第一节，自然还是比较基础的知识

来看看效果

先输入需要创建多少个新的工作表

假设我们要创建5个，先把季后赛的整体对阵图弄下来

VBA成功的帮我们创建了5个新的工作表供我们操作，完美的达到了我们的要求

代码分析

今天的代码就比较的简单了，一句话

Worksheets.Add

这个就是添加空白工作表的代码。想要一次性增加几个，就嵌套在循环中就可以了