你好，请教vba问题，想拆分一个excel，几十万行数据，每100行粘到一个新表中

Question

但是这个新表有表头，还有sheet2和sheet3里的内容，可以实现吗？
或者保留原表的表头和sheet2、sheet3也可以
看您是大师，万分感谢

Answer 1

表头有几行

sheet2和sheet3是需要完整复制到每一个新表中的吗？

假设按照1行的标题来做，代码如下

Sub aa()
bm = ThisWorkbook.Name
pth = ThisWorkbook.Path
m = Sheets("sheet1").[A200000].End(xlUp).Row
Application.SheetsInNewWorkbook = 1
For i = 0 To Int(m / 100)
With Workbooks.Add
    .Sheets("sheet1").Rows(1) = Workbooks(bm).Sheets("sheet1").Rows(1)
    Workbooks(bm).Sheets("Sheet2").Copy After:=.Sheets(1)
    Workbooks(bm).Sheets("Sheet3").Copy After:=.Sheets(2)
    Workbooks(bm).Sheets("sheet1").Rows(1).Copy .Sheets("sheet1").Rows(1)
    Workbooks(bm).Sheets("sheet1").Rows((2 + 100 * i) & ":" & (101 + 100 * i)).Copy .Sheets("sheet1").Rows(2)
    .SaveAs Filename:=pth & "\" & Format(i, "00000") & ".xlsx"
    .Close
End With
Next i
Application.SheetsInNewWorkbook = 3
End Sub追问

运行提示下标越界

追答

办公之星群54558361.
你的数据一共有多少行,几十万行都在一个表里?

来自：求助得到的回答

Answer 2

可以的。
应该行。
你可以今晚联系我，准备好源数据样本追问

好的，多谢

追答

好吧，楼下已答。你追问他吧。
搞不定，找我也行。