有大量数据的Excel文件（80000行按每4000行拆分）,如何按行数拆分为多个文件

在Excel中，你可以通过VBA宏将数据按每4000行分开并保存为多个文件。以下是具体步骤：

步骤1：打开VBA编辑器

1. 按 Alt + F11 打开VBA编辑器。

2. 在左侧项目窗口中，找到你的工作簿，右键选择 Insert > Module 插入一个新模块。

步骤2：编写VBA代码

将以下代码粘贴到模块中：

Sub SplitDataIntoFiles()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim startRow As Long
    Dim endRow As Long
    Dim fileCount As Long
    Dim newWorkbook As Workbook
    Dim savePath As String
    
    ' 设置工作表
    Set ws = ThisWorkbook.Sheets(1) ' 假设数据在第一个工作表
    
    ' 获取总行数
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
    ' 设置保存路径
    savePath = "C:\Your\Path\Here\" ' 修改为你的保存路径
    
    ' 初始化变量
    startRow = 1
    fileCount = 1
    
    ' 循环分割数据
    Do While startRow <= lastRow
        endRow = Application.Min(startRow + 3999, lastRow)
        
        ' 创建新工作簿
        Set newWorkbook = Workbooks.Add
        ws.Rows(startRow & ":" & endRow).Copy
        newWorkbook.Sheets(1).Range("A1").PasteSpecial xlPasteAll
        
        ' 保存新工作簿
        newWorkbook.SaveAs Filename:=savePath & "Part_" & fileCount & ".xlsx"
        newWorkbook.Close SaveChanges:=False
        
        ' 更新变量
        startRow = endRow + 1
        fileCount = fileCount + 1
    Loop
    
    MsgBox "数据分割完成！"
End Sub

步骤3：运行宏

1. 按 Alt + F8 打开宏对话框。

2. 选择 SplitDataIntoFiles，点击 Run 运行宏。

注意事项

• 确保保存路径 savePath 存在且正确。

• 代码假设数据在第一个工作表，如需更改，调整 Set ws = ThisWorkbook.Sheets(1) 中的 1 为相应的工作表索引。

运行后，数据将按每4000行分割并保存为多个Excel文件。