有一个非常简单的方法，就是利用数据透视表进行新建工作表
首先我们选择插入数据透视表，插入后我们将工作名称拖动到筛选字段
然后在数据透视表的选项中选择显示报表筛选页，点击确定
然后Excel就会根据数据进行表格名称的创建
我是Excel从零到一关注我持续分享更多Excel技巧
没看到是新建工作薄，这个更简单，主需要在A列放置需要新建的工作薄名称，我这里以数字代替名称
然后点击vba编辑器，进入vba编辑界面，然后选择插入一个模块，复制如下代码点击运行即可，新建的工作薄都在d盘
Sub 拆分在D盘()
Dim i
Dim s
For i = 1 To WorksheetFunction.CountA([a:a])
s = Cells(i, 1)
ActiveWorkbook.SaveAs D: & s & .xlsx
Next
End Sub
这个问题用VBA代码就可以解决：
一、准备数据如图：在文件夹中建立如图所示的10个表，名称分别为：河西走廊、张掖、武威、玉门、瓜州、敦煌、高台、酒泉、民勤、永昌。这里只举例10个，数量由需要的工作簿数量而定，都是可以实现的。
二、最终效果
三、操作步骤在准备数据的表格中，按ALT+F11，调出VBA代码窗口，复制粘贴以下代码，回到表格，再按ALT+F8执行代码，就可以了。
具体代码如下:
Sub 宏1()
Dim i
i = 2
While Cells(i, 1)
Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & & Cells(i, 1) & .xlsx
ActiveWindow.Close
i = i + 1
Wend
End Sub
代码简单解释：
希望这个回答可以帮助到你，请帮忙转发出去！如果你需要这个模板，请关注我，私信“永昌”，就可以获得这个模板。谢谢！
