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

Question

其中1000条数据只是一个假设值，我希望有高手可以用VBA帮我解决问题。加分加！！！+50

Answer 1

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

注意修改要拆分的表名。

追问

谢谢，代码怎么在宏里编写不行啊？在表里写有点麻烦，不方便工作。有没有改进啊，高手。

追答

打开附件，按 ALT+F8运行。

追问

不太明白，高手，可以详细些不

Answer 2

使用分页预览，然后将所有行自行标题选中，将鼠标放至最后一行下方的调整行处高，按住鼠标，调整行高至第五页最下方即可。

Answer 3

每200个粘贴成5个工作表，按住ctrl键将5个表选中统一调一下格式就好了。