諸君好,，今天我們繼續(xù)分享VBA常用小代碼,，按指定的字段將數(shù)據(jù)拆分為多個工作簿,。

舉個栗子，如上圖所示的數(shù)據(jù)表,，倘若需要按班級,，將該表的數(shù)據(jù)拆分為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