有时候在使用excel时需要批量插入sheet表，并按照要求进行命名，这种情况下，我们可采取控件编程的方式：
批量插入sheet表，并按顺序命名
如上图中，要建立25个sheet，命名分为为a1-a25，这样我们可以用控件中的按钮，并且在按钮中输入以下代码：
For i = 1 To 22
Worksheets.Add
Next
这样就生成22个sheet，加上默认的3个共25个
如需要统一修改名称，则可输入以下代码：
For i = 1 To 25
Sheets(i).Name = Cells(i, 1)
next
其结果如下所示：
批量插入sheet表，并按顺序命名
