23-新建工作表的具体方法
本帖最后由 excel交流 于 2017-9-20 06:23 编辑在“花名册分类”的作业里，moon2778加入了为不同地区建立工作表代码，让“沧海一滴”和“宝贝有酒窝”两个朋友都跟贴问了新建工作表的相关问题。有需要就有市场，呵呵......那我再在这里简单讲一讲我对新建工作表的认识，希望对大家学习有帮助。
新建一个工作表（Worksheet)，要调用工作表(Worksheet对象）的Add方法（可以建制一个新建工作表的宏来查看相关的代码）。
如果我们想在当前工作表中新建一个工作表，代码可以写为：
Worksheets.Add '新建的工作表的位置在当前活动工作表的前面
此时，新建的工作表Excel默认把它放在活动工作表的前面，如果我们需要改变它的位置也是可以的。例如：
Worksheets.Add before:=Worksheets("sheet2")'在工作表sheet2之前添加一个工作表
Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
Worksheets.Add after:=Worksheets("sheet2") '在工作表sheet2之后添加一个工作表"
Worksheets.Add after:=Worksheets(Worksheets.Count) '在最后面添加一个工作表
试了以上的代码，我们会发现，新添加的工作表都是采用“老大、老二、老三.....”的命名方式，如果你需要为新添加的工作表改一个名字，也是可以的，只需要再添加一句代码即可：
Worksheets.Add before:=Worksheets(1) '在最前面添加一个工作表
ActiveSheet.Name = "abc"'将新建的工作表更名为“abc”
如果想更简单点，这句代码还可以合二为一：
Worksheets.Add(before:=Worksheets(1)).Name = "abc" '在最前面添加一个名称为“abc”的工作表
有时，也许需要一步就添加多个工作表，那可用下面的代码：
<div><span microsoft="" yahei",="" simsun;"=""><div>
</div><div> Worksheets.Add Count:=3 '添加三个工作</div><div> </div></span></div><div></div> 但是一次性添加多个工作表时，好像就无法同时对其重新命名了。
页:
[1]