文件很大，需按行数拆分为多个excel文件，求指导

leeson0219

参与一下，行数可自定义。

ykcbf1100

练习，换个写法

ykcbf1100

换个写法。

1. Sub ykcbf()   '//2024.12.10   换个写法
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     p = ThisWorkbook.Path & ""
   
5.     rr = 500: bt = 1
   
6.     Set sh = ThisWorkbook.Sheets("Sheet1")
   
7.     With sh
   
8.         r = .UsedRange.Find("*", , -4163, , 1, 2).Row
   
9.         c = .UsedRange.Columns.Count
   
10.         Set bth = .Rows(bt).EntireRow
    
11.     End With
    
12.     Application.SheetsInNewWorkbook = 1
    
13.     For i = bt + 1 To r Step rr
    
14.         k = k + 1
    
15.         Set wb = Workbooks.Add
    
16.         With Sheets(1)
    
17.             bth.Copy .[a1]
    
18.             sh.Rows(i).Resize(rr, c).Copy .[a2]
    
19.         End With
    
20.         wb.SaveAs Filename:=p & k
    
21.         wb.Close
    
22.     Next
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码