EXCEL宏做数据拆分

2024-08-31 13:27:49

用处：将大容量的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

　　

最新文章

热门文章