如何將一個EXCEL文件里面很多條數據拆分成多個文件，比如一個EXCEL表里面有90萬行數據，需要按照每1萬行拆分成一個文件，也就是需要將這表里面的90萬行數據拆分到90個文件里面。這個如果手工拆分，那工作量實在太大了。于是，我就想把這個過程拿出來分享一下。實際上這也是大數據處理過程中會涉及到的一個問題——數據分框。

下面我們就來看看如何用VBA來實現拆分工作。

第一，在EXCEL里面插入一個模塊，代碼如下：

Sub copybat()

Dim n As Integer

Dim i As Integer

Dim k As Integer

Dim path As String

Dim filename As String

path = "c:\拆分測試\" '預定義的存儲路徑

filename = "分割文件" '預定義的文件名

Application.ScreenUpdating = False

i = 10 '分頁數據條目數

k = 0 '循環執行次數，用于標識文件順序

For n = 1 To Cells(1, 1).End(xlDown).Row Step i '開始循環到數據表底部，步長為分頁條目數

Range("A1:D1,A" & n + 1 & ":D" & n + i).Select '每次均選擇復制固定的表頭和本次循環內的數據行

Selection.Copy

Workbooks.Add '新建工作簿

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False '特殊粘貼：只粘貼數值

k = k + 1

ActiveWorkbook.SaveAs filename:=path & filename & k & ".xlsx", FileFormat:= _

xlOpenXMLWorkbook, CreateBackup:=False '將文件按命名規則另存至指定位置

ActiveWindow.Close '關閉已經生成的文件

Next n

MsgBox "分割完畢！", vbDefaultButton1, "提示"

Application.ScreenUpdating = true

End Sub

第二，在EXCEL工作表里面插入一個按鈕，用于調用執行該以上模塊。

?

第三，點擊按鈕執行代碼。最后結果如下：

?

文件夾下生成的文件圖例

分割的第1小部分

分割的第2小部分

以上，是一個大體的過程，實際上還可以在此基礎上實現更加復雜的邏輯，這就又各位獨立發揮了。