excel中，如果将一张工作表中有1000条数据，如何将该表的1000条数据分为以每200条一张表。

Sub 拆分()
    Dim I As Long, N As Long
    Dim C As Long, Sh As Worksheet
    Application.ScreenUpdating = False
    C = Val(InputBox("请输入每个表格的行数"))
    If C = 0 Then Exit Sub
    Set Sh = ThisWorkbook.Worksheets(1) '要拆分的表
    For I = 1 To ThisWorkbook.Worksheets(1).UsedRange.Rows.Count Step C
        With ThisWorkbook.Worksheets.Add(after:=Worksheets(ThisWorkbook.Worksheets.Count))
            Sh.Rows(I).Resize(C).Copy .Range("A1")
            N = N + 1
            .Name = N
        End With
    Next
    Application.ScreenUpdating = True
    MsgBox "共拆分出 " & N & "个工作表"
End Sub

注意修改要拆分的表名。