Sub aa()Dim i As IntegerFor i = 2 To 20Worksheets.Add.Name = Sheets("sheet1").Cells(i, 1)NextEnd Sub假如sheet1 A列是工作表名字

根據指定名稱批次生成工作表，可以利用資料透視表來實現。

操作方法如下：

一、輸入要命名的工作表名稱

先把需要建立的工作表的名稱全部輸入到表格裡，本例中，我是需要以月份為命名，建立12個工作表。如下圖所示：

二、批次生成指定名稱的工作表

此時，用滑鼠拖拽，將月份拖拽到篩選器中，

此時，就可以看到，以1-12月份為名稱命名的工作報表就全部建立起來了。

三、批次清除生成的幾個工作裡的資料

1、按住Shift鍵，將生成的12個工作表全部選中；

2、按Ctrl+A，選中工作中的內容；

四、批次給工作表新增表頭

12個工作表都按指定名稱建立好了，不過是空表。現在要給12個工作表新增統一的表頭及表格格式。

1、先隨便選一個工作表，在工作表裡先把需要的表格做好。例如，我們在1月工作表裡做好表格，如下圖所示：

2、按Ctrl+A快捷鍵，選中表格資料單元格區域，並複製，再按Shift鍵，選中2月-12月工作表，滑鼠移到表格裡，右鍵-【選擇性貼上】-【保留源列寬】，即把1月工作表的表格全部一次性貼上至2月-12月工作表中，並保持原來的列寬不變。

這樣子，1-12月，總的12個工作表就都建立成功了。