求助

ELCEL

电子表里有9万多行，每1000行分成一个工作簿如何处理

chxw68

1. Sub test()
   
2.   Dim r&, i&, m%
   
3.   Application.ScreenUpdating = False
   
4.   Application.DisplayAlerts = False
   
5.   m = 0
   
6.   With Worksheets("sheet1")
   
7.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
   
8.     For i = 1 To r Step 1000
   
9.       m = m + 1
   
10.       Set wb = Workbooks.Add
    
11.       With wb
    
12.         With Worksheets(1)
    
13.           ThisWorkbook.Worksheets("sheet1").Cells(i, 1).Resize(1000, 1).Copy .Range("a1")
    
14.         End With
    
15.         .SaveAs Filename:=ThisWorkbook.Path & "\数据" & m & ".xlsx"
    
16.         .Close False
    
17.       End With
    
18.     Next
    
19.   End With
    
20. End Sub
    

复制代码

chxw68

详见附件。