玖叶教程网

EXCEL精华，EXCEL教程，必须掌握的职场技巧，没有它，你寸步难行，不要说你不会。

每天分享学习资源（第14天），坐等吐槽，有错请指出纠正。

快速创建工作表:

快速生成12个sheet表，名字取sheet2表中A1到A12的值。

代码如下：

Sub 创建工作表()

Dim n As Integer

For n = 1 To 12

Worksheets.Add after:=Worksheets(Worksheets.Count)

ActiveSheet.Name = Worksheets("sheet2").Cells(n, 1)

Next

End Sub

这是一个不专业的职场干货，学会EXCEL，你离成功就不远了，欢迎关注、订阅、吐槽、转发