这个必须用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