如何通过VBA将超5000行的导入文件按百行拆分导出为多个Excel

你需要把包含5000多行的Excel数据按规则拆分导出：1-100行一个文件，101-200行一个文件（推测你描述的101-201是笔误，按每批100行处理），以此循环直到所有数据处理完毕。基于你提供的测试代码，我修改出了能实现批量拆分的完整VBA代码：

Sub 批量拆分导出Excel()
    Dim 起始行 As Long, 结束行 As Long
    Dim 批次号 As Integer
    Dim 源工作表 As Worksheet
    Dim 新工作簿 As Workbook
    Dim 保存路径 As String
    
    ' 指定要拆分的源工作表（用你提供的Sheet60）
    Set 源工作表 = ThisWorkbook.Sheets("Sheet60")
    ' 设置文件保存路径，注意末尾要加斜杠
    保存路径 = "D:\Implement\"
    
    ' 初始化起始行和批次编号
    起始行 = 1
    批次号 = 1
    
    ' 循环处理每一批数据
    Do While 起始行 <= 5000
        ' 计算当前批次的结束行，每批100行，最后一批不足100行则取5000
        结束行 = 起始行 + 99
        If 结束行 > 5000 Then 结束行 = 5000
        
        ' 复制当前批次的单元格区域
        源工作表.Range("A" & 起始行 & ":BX" & 结束行).Copy
        
        ' 创建新工作簿并粘贴数据
        Set 新工作簿 = Workbooks.Add
        新工作簿.Sheets(1).Range("A1").PasteSpecial Paste:=xlPasteAll
        
        ' 保存并关闭新工作簿，关闭警告避免覆盖提示
        Application.DisplayAlerts = False
        新工作簿.SaveAs Filename:=保存路径 & "拆分文件_批次" & 批次号 & ".xlsx"
        新工作簿.Close
        Application.DisplayAlerts = True
        
        ' 更新下一批的起始行和批次号
        起始行 = 结束行 + 1
        批次号 = 批次号 + 1
    Loop
    
    ' 拆分完成后弹出提示
    MsgBox "批量拆分完成！"
End Sub

代码说明： #

• 用循环自动遍历所有行，无需手动分批处理
• 自动处理最后一批不足100行的情况，不会遗漏数据
• 文件名按批次编号命名，避免文件覆盖，方便查找
• 使用对象变量代替ActiveSheet/ActiveWorkbook，代码更稳定，减少运行错误
• 支持修改保存路径和源工作表，只需调整对应变量即可

内容的提问来源于stack exchange，提问作者Deves