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

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

表头有几行
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

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

你好！ 可以的。 应该行。 你可以今晚联系我，准备好源数据样本 仅代表个人观点，不喜勿喷，谢谢。