這個必須用VBA了,代碼如下。
請打開你的Excel文件,在左邊對應的Sheet上雙擊,右側空白處粘貼代碼。
然后點擊綠色三角,運行,將會在你原文件的同一個文件夾下,每100行生成一個文件。編號為01.xlsx, 02.xlsx,...
請注意:運行前務必備份原文件。

Sub cfb()
Dim r, i, WJshu As Long
r = Range("A" & Rows.Count).End(xlUp).Row
WJshu = Application.WorksheetFunction.RoundUp(r / 100, 0)
For i = 1 To WJshu
Workbooks.Add
Applicatio360問答n.DisplayAlerts = False
ActiveWorkbook.Sav服印字普鎮下支eAs Filename:=ThisWorkbook.Path & "" & Format(i, "00") & ".xlsx"
Application.DisplayAlerts = True
ThisWorkbook.ActiveSheet.Range("A" & (i * 100 - 99) & ":A" & i * 100).Copy _
ActiveSheet.Range("A1")
ActiveWorkbook.Close True
Next
End Sub