Excel按照固定行數拆分為多個檔案
阿新 • • 發佈:2021-12-30
Excel按照固定行數拆分為多個檔案
工作需要,需要把Excel按照固定行數拆分,生成多個Excel。
1. 開啟Excel
滑鼠不要任何選擇。按“Alt”+“f11”。
2. 貼上程式碼
在sheet1貼上以下程式碼,WJhangshu = 250 ,我們是按照250行來拆分一個的。
Sub cfb() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).End(xlUp).Row c = Cells(1, Columns.Count).End(xlToLeft).Column bt = 1 'title WJhangshu = 250 'num WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1) For i = 0 To WJshu Workbooks.Add Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx" Application.DisplayAlerts = True ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1") ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _ ActiveSheet.Range("A" & bt + 1) ActiveWorkbook.Close True Next End Sub
3. 執行
切回Excel,Alt+f8.彈出框選擇剛才的巨集,可以“執行”或者單步執行。