excel学习库

大家好，今天跟大家分享如何利用vba代码在Excel工作簿中快速新建12个月份的工作表标签。

应用案例

在下面图1所示的Excel工作簿“工作簿1”中已有一张空白工作表“sheet1”，下面我们利用vba代码快速批量新建11张工作表，使工作簿中一共存在12张工作表，并分别以12个月份命名工作表标签，如“1月”“2月”……“12月”，参考效果见图2。

操作步骤

1 打开Excel工作簿“工作簿1”，在“开发工具”选项卡“代码”功能组中单击“Visual Basic”按钮。

2 在弹出的VBA编辑器窗口中，单击“插入”按钮，在弹出的菜单中选择“模板”选项，此时，窗口中会新增一个“工作簿1-模块1（代码）”窗口。

3 在“工作簿1-模块1（代码）”窗口中输入如下代码：

Sub test1()

Dim i As Integer

Sheets.Add Count:=11

For i = 1 To 12

Sheets(i).Name = i & "月"

Next

End Sub

4 单击窗口上方的“运行子过程/用户窗体”按钮（方向向右的绿色三角符号）运行代码。

5 此时，可见“工作簿1”中已批量生成了以12个月份命名的12张工作表。