新手求助问题，跪求大神！！

zwrsky

你好，我们公司有十几个万个数据要拆分拆分成新的EXCEL表格里

一次性拆分2950个

自己在百度各种问做了代码

但是这个代码不能 带上标题（附件里面 黄色部分 是我说标题）

下面的代码自动拆分后第一个文件是有标题的，第2个开始是没有的

哪有大神能帮我改改，小弟万分感谢！！！



Sub 分割行保存文件()
Dim Wb As Workbook
保存文件名含路 = "d:\111\ab"
i = 1
j = 1
Set sh = ActiveSheet
Do While i < sh.UsedRange.Rows.Count
Set Wb = Workbooks.Add
Range(sh.Cells(i, 1), sh.Cells(i + 2988 - 1, 1)).EntireRow.Copy
Wb.Sheets(1).Paste
Wb.SaveAs "d:\111\ab" + Trim(Str(j))
Wb.Close
i = i + 2988
j = j + 1
Loop
End Sub

zwrsky

跪求。。。

chxw68

1. Sub test()
   
2.   Dim r&, i&
   
3.   Dim arr, brr
   
4.   k = 0
   
5.   With Worksheets("sheet1")
   
6.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
7.     For i = 2 To r Step 2950
   
8.       k = k + 1
   
9.       Set Wb = Workbooks.Add
   
10.       .Cells(1, 1).Resize(1, 22).Copy Wb.Worksheets(1).Range("a1")
    
11.       .Cells(i, 1).Resize(2950, 22).Copy Wb.Worksheets(1).Range("a2")
    
12.       With Wb
    
13.         .SaveAs Filename:="d:\111\ab" & k
    
14.         .Close False
    
15.       End With
    
16.     Next
    
17.   End With
    
18. End Sub
    

复制代码

chxw68

重新写了一段供参考。

zwrsky

chxw68 发表于 2018-9-18 19:21
重新写了一段供参考。

谢谢 谢谢 谢谢

zwrsky

chxw68 发表于 2018-9-18 19:21
重新写了一段供参考。

实在是太感谢了！！！