批量插入sheet表，並按順序命名

有時候在使用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表，並按順序命名