前不久有幾個朋友問如何將一個EXCEL文件中的大量數據拆分成多個文件。例如，一個EXCEL表中有90萬行數據，每10，000行需要拆分成一個文件，也就是說，這個表中的90萬行數據需要拆分成90個文件。如果這是手工拆分，工作量太大。所以，我想分享一下這個過程。

我們來看看如何利用VBA實現分裂。

首先，在EXCEL中插入一個模塊，代碼如下:

Sub copybat()Dim n As IntegerDim i As IntegerDim k As IntegerDim path As StringDim filename As Stringpath = "c:拆分測試" '預定義的存儲路徑filename = "分割文件" '預定義的文件名Application.ScreenUpdating = Falsei = 10 '分頁數據條目數k = 0 '循環(huán)執(zhí)行次數，用于標識文件順序For n = 1 To Cells(1, 1).End(xlDown).Row Step i '開始循環(huán)到數據表底部，步長為分頁條目數Range("A1:D1,A" & n + 1 & ":D" & n + i).Select '每次均選擇復制固定的表頭和本次循環(huán)內的數據行Selection.CopyWorkbooks.Add '新建工作簿Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False '特殊粘貼：只粘貼數值k = k + 1ActiveWorkbook.SaveAs filename:=path & filename & k & ".xlsx", FileFormat:= _xlOpenXMLWorkbook, CreateBackup:=False '將文件按命名規(guī)則另存至指定位置ActiveWindow.Close '關閉已經生成的文件Next nMsgBox "分割完畢！", vbDefaultButton1, "提示"Application.ScreenUpdating = trueEnd Sub

第二，在EXCEL工作表中插入一個按鈕，調用并執(zhí)行上述模塊。

第三，點擊按鈕執(zhí)行代碼。最終結果如下:

文件夾下生成的文件圖例文件夾下生成文件的圖例

分割的第1小部分分部的第一個小部分

分割的第2小部分隔板的第二個小部分

以上是一個大概的過程，其實在這個基礎上可以實現更復雜的邏輯，你可以獨立發(fā)揮。