有一個非常簡單的方法，就是利用資料透視表進行新建工作表

首先我們選擇插入資料透視表，插入後我們將工作名稱拖動到篩選欄位

然後Excel就會根據資料進行表格名稱的建立

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

程式碼簡單解釋：