步骤 1

打开VBA编辑器
打开你的Excel文件。
按 Alt + F11 打开VBA编辑器。
在VBA编辑器中，点击 插入 -> 模块，创建一个新的模块。

步骤 2:

编写VBA代码
在新创建的模块中输入以下VBA代码：

Sub SplitWorkbookByRows()Dim ws As WorksheetSet ws = ThisWorkbook.Sheets(1) '假设要拆分的工作表是第一个工作表Dim totalRows As LongtotalRows = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row '获取总行数Dim rowsPerFile As LongrowsPerFile = InputBox("请输入每个文件包含的行数：") '用户输入每份文件的行数Dim fileCounter As IntegerfileCounter = 1Dim startRow As LongstartRow = 2 '假设第一行是标题行，从第二行开始拆分Dim endRow As LongDim newWb As WorkbookDo While startRow <= totalRowsendRow = startRow + rowsPerFile - 1If endRow > totalRows ThenendRow = totalRowsEnd If'复制数据到新工作簿Set newWb = Workbooks.Addws.Rows("1:1").Copy Destination:=newWb.Sheets(1).Range("A1") '复制标题行ws.Rows(startRow & ":" & endRow).Copy Destination:=newWb.Sheets(1).Range("A2")'保存新工作簿newWb.SaveAs ThisWorkbook.Path & "\Split_" & fileCounter & ".xlsx"newWb.ClosestartRow = endRow + 1fileCounter = fileCounter + 1LoopMsgBox "拆分完成！"
End Sub

运行以上代码

效果图