如何将1个EXCEL文档，自动分成1000行一个小文档

昊灬

数据已经上传，如何将一个大的EXCEL文档，每1000行分成1个EXCEL文档，并在当前文件夹保存。
多谢~！多谢~！

sheeboard

python脚本写的

1. import pandas as pd
   
2. import numpy as np
   
3. import os
   
4. os.chdir(r'filepath')
   
5. 
   
6. df=pd.read_excel('1.xlsx')
   
7. 
   
8. def index_marks(nrows, chunk_size):
   
9.     return range(1 * chunk_size, (nrows // chunk_size + 1) * chunk_size, chunk_size)
   
10. 
    
11. def split(dfm, chunk_size):
    
12.     indices = index_marks(dfm.shape[0], chunk_size)
    
13.     return np.split(dfm, indices)
    
14. 
    
15. df1=split(df,1000)
    
16. 
    
17. a=1
    
18. for data in df1:
    
19.     result=pd.DataFrame(data)
    
20.     filename=str(a)+'.'+'xlsx'
    
21.     a+=1
    
22.     result.to_excel(filename,index=False)
    
23. 
    
24. 
    

复制代码

Q526753064

你是要结果还是要公式

昊灬

Q526753064 发表于 2018-10-12 01:28
你是要结果还是要公式

结果或者公式都行呀~~感谢~

Q526753064

昊灬 发表于 2018-10-12 09:50
结果或者公式都行呀~~感谢~

ok，等下我给你写个大概你的看下

Q526753064

你看是不是这样的，做了一个简单版本的

昊灬

Q526753064 发表于 2018-10-12 10:12
你看是不是这样的，做了一个简单版本的

emmm，有办法直接分成多个EXCEL文件，不是在同一个EXCEL的几个sheet里嘛。

Q526753064

昊灬 发表于 2018-10-12 10:14
emmm，有办法直接分成多个EXCEL文件，不是在同一个EXCEL的几个sheet里嘛。

你看看是不是这个样子的

Mapleaf12138

直接用rows循环，step 1000
然后使用workbooks.add
最后使用saveAs保存
记得close

Mapleaf12138

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set s1 = Sheets("导出工作表")
   
5.     maxR = s1.[A1].End(xlDown).Row
   
6.     For i = 2 To maxR Step 999
   
7.         Set wb = Workbooks.Add
   
8.         Set ws = wb.Sheets(1)
   
9.         s1.Rows(1).Copy ws.Rows(1)
   
10.         s1.Rows(i & ":" & i + 998).Copy ws.Cells(2, 1)
    
11.         wb.SaveAs ThisWorkbook.Path & "/" & i & "-" & i + 998
    
12.         wb.Close False
    
13.     Next
    
14. End Sub

复制代码