excelvba循环代码大全（一小段ExcelVBA代码005快速创建多个指定名称的工作表）

一段简单的VBA代码，让你自如操作Excel！

抛砖引玉的场景需求：批量创建名称为1到12月的工作表。

excelvba循环代码大全（一小段ExcelVBA代码005快速创建多个指定名称的工作表）(1)

代码示例

在标准模块中加入如下代码即可实现上面的演示功能。

Sub 批量创建1至12月份的工作表() Dim sht As Worksheet For x = 1 To 12 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub

运行结果显示月份的顺序倒叙了，怎么样按照1~12顺序显示呢？

excelvba循环代码大全（一小段ExcelVBA代码005快速创建多个指定名称的工作表）(2)

脑中立马想出两种方法：

第一种是：

将

Set sht = Worksheets.Add

更改为

Set sht = Worksheets.Add(After:=Sheets(Sheets.Count))

Sub 批量创建1至12月份的工作表() Dim sht As Worksheet For x = 1 To 12 Set sht = Worksheets.Add(After:=Sheets(Sheets.Count)) sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub

第二种是：

将

For x = 1 To 12

更改为

For x = 12 To 1 Step -1

Sub 批量创建1至12月份的工作表() Dim sht As Worksheet For x = 12 To 1 Step -1 Set sht = Worksheets.Add sht.Name = x & "月份" sht.Tab.Color = vbYellow Next Set sht = Nothing End Sub

动手试一试，屏幕前的你，复制代码运行下吧~~！

更多Excel VBA编程知识（职场牛人的必备秘技），可下载安装使用一款优秀职场人必备的工具《神奇的VBA》插件，一款嵌入进Excel Ribbon界面，打开任意Excel工作簿就能随时查阅学习VBA编程的Excel 插件。

插件下载地址可私信注明邮箱或通过如下链接查询：

Excel 插件：神奇的VBA-升级

excelvba循环代码大全（一小段ExcelVBA代码005快速创建多个指定名称的工作表）(3)