【拆分工作簿问题】工作表拆分指定行数工作薄问题，请大神帮忙解决。谢谢！（内详）

tanchenwen10000

将《sheet1》表中的数据按指定行数，拆分成若干个工作薄，每个工作薄的表头相同。

约定的童话

楼主搞定了没？

tanchenwen10000

约定的童话 发表于 2019-11-3 13:34
楼主搞定了没？

刚定了。多谢！
Sub chaifen()
Application.ScreenUpdating = False
Set sh = ThisWorkbook.Worksheets(1)
Set Rng = sh.Rows("1:2")
rs = sh.Cells(Rows.Count, 1).End(xlUp).Row
p = InputBox("请输入行数", , "1000")
If p = "" Then Exit Sub
Application.SheetsInNewWorkbook = 1
For i = 2 To rs Step Val(p)
    n = n + 1
    Set wb = Workbooks.Add
    Rng.Copy wb.Worksheets(1).[a1]
    sh.Rows(i & ":" & i + p - 1).Copy wb.Worksheets(1).[a2]
    For j = 1 To 5
        wb.Worksheets(1).Columns(j).ColumnWidth = sh.Columns(j).ColumnWidth
    Next j
    wb.SaveAs Filename:=ThisWorkbook.Path & "\" & n
    wb.Close
Next i
End Sub

tanchenwen10000

朱荣兴 发表于 2019-11-3 09:43
拆分问题，看看这个帖子的  2楼，可以满足你的需求
http://club.excelhome.net/thread-1459992-3-1.html

感谢！找到相关例题了，修改了下代码可以用了。多谢！