1、首先是创建工作表名称：这个可以自己输入，也可以复制粘贴，也可以导入文本。不管你用什么方式创建，反正只要是合法字符的名称即可。教程以Excel为例，创建工作表的名称如下，A1单元格为创建表格标题，从A2到A20单元格均为需要创建工作表的名称。2、代码汇编：在Excel界面按下组合键Alt+F11快速调出VBA窗口；在VBA界面中单击菜单栏插入，然后选择模块命令；此时会弹出一个模块窗口，在模块窗口复制粘贴以下代码（最好是将输入法切换至中文输入法模式下复制粘贴）：
Sub 批量生成指定名称工作表()
Dim i%, j%, k%
i = Application.CountA(Range("a2:a20"))
For j = 2 To i Step 1
Sheets.Add after:=Sheets(Sheets.Count)
k = Worksheets.Count
Sheets(k).Select
Sheets(k).Name = Sheets(1).Cells(j, 1).Value
Next
End Sub
3、结果显示：将鼠标光标定位在这段代码当中，然后按下F5键运行该段代码程序（或单击菜单栏中的运行，然后选择运行子程序命令，如上图所示）。待代码运行完毕，按下Alt+F11关闭VBA窗口，返回Excel工作界面查看结果，发现已经按照我们的要求批量生产了一堆工作表。