EXCEL宏做数据拆分

用处：将大容量的EXCEL工作簿分解成若干个小的工作簿

    Sub aa()
    For i = 1 To 8
    Set nb = Workbooks.Add
    nb.SaveAs Filename:=ThisWorkbook.Path & "" & i
    nb.Activate
    With ThisWorkbook.Sheets(1)
    .Range(.Cells(100000 * (i - 1) + 1, 1), .Cells(100000 * i + 1, 14)).Copy [a1]
    .Rows(1).Copy [a1]
    End With
    nb.SaveAs Filename:=ThisWorkbook.Path & "\" & i
    Next
    End Sub