【VBA】按部门快速拆分工作簿

诸君好，今天我们继续分享VBA常用小代码，按指定的字段将数据拆分为多个工作簿。

举个栗子，如上图所示的数据表，倘若需要按班级，将该表的数据拆分为1~2~3班三个工作簿，并保留在电脑的指定位置，就可以使用我们今天这篇小代码了。

操作动画演示：

动画中所粘贴的代码如下：

Sub NewWorkBooks()

Dim d As Object, arr, brr, r, kr, i&, j&, k&, x&, Mystr$

Dim Rng As Range, Rg As Range, tRow&, tCol&, aCol&, pd&, mypath$

Dim Cll As Range, sht As Worksheet

''

'第一部分，用户选择保存分表工作簿的路径。

With Application.FileDialog(msoFileDialogFolderPicker)

'选择保存工作薄的文件路径

.AllowMultiSelect = False