将A列数据按照每500行分成一个新的工作簿

zxq304

各位大神好，比如我有一个工作簿，其中只有一个sheet，这个sheet里只有A列有数据，一共有很多很多行
我想每500行数据重新生成一个新的工作簿，直到最后一行，并且命名这些新的工作簿为 1- 500 ，501-1000 ，等等。
求代码怎么写呢？小白学习中，请指教

zxq304

朱荣兴 发表于 2018-6-26 10:03
这种类型的拆分，论坛连多呢是，以前也回过很多帖子，自己搜搜看看吧，或者，上传你的附件，才可能帮到你的

谢谢您哦，我搜了百度和论坛都没搜到所以才请教大家的。附件以上传

zxq304

附件压缩包上传。就是一列邮箱地址

ruoyunruyan

1. Sub fb()
   
2. Dim i&, wb, j&
   
3. j = [a65536].End(3).Row
   
4. For i = 1 To j Step 500
   
5. Range("A" & i & ":a" & i + 499).Copy
   
6. Set wb = Workbooks.Add
   
7.     With wb
   
8.     .Sheets(1).[a1].PasteSpecial (xlPasteValues)
   
9.     .SaveAs ThisWorkbook.Path & "" & i & "-" & i + 499 & ".xlsx"
   
10.     .Close False
    
11.     End With
    
12. Next
    
13. End Sub

复制代码

ruoyunruyan

ruoyunruyan 发表于 2018-6-26 15:07

.SaveAs ThisWorkbook.Path & "\" & i & "-" & i + 499 & ".xlsx"
为啥\显示不出来？，可是编辑的时候又是有的？