按行数拆分大型excel文件

我有一个大约3000行的大型excel文件

我想将这些数据分成100行的组

excel中是否有命令可以帮助我将这些数据拆分为不同的数据

---

每100行的工作表或文件？

您可以通过辅助列这样做：

第1列--在左侧插入一列（即a列）

第二——按从1到3000的顺序（或按您拥有的行数）填充新列

第三——在A列系列末尾下方的两个单元格中，放入100.5和200.5。高亮显示这些单元格，然后使用Ctrl+Shift+向下箭头并选择“填充系列”（将步长值保留为100）

第4列—升序排序列A

---

第5列--删除A列。每100行就有一个空行，剩下的就剩下了。

我找到了这个基于VBA的解决方案：

但是，该解决方案缺乏确定每个文件有多少行的能力。相反，它是将文件拆分为X个具有相同行数的文件。当然，您可以通过将总行数除以每个文件中要包含的行数来计算，但由于舍入，这很少能精确地给出您想要的行数

---

也许有人能想出一个修改过的宏？

在回答关于类似问题的另一个问题时，这是一个很好的解决方案：

但是，我需要拆分文件，而不向每个新文件添加标题，只添加数据行。我的修改/简化代码：

Sub Test()
  Dim wb As Workbook
  Dim ThisSheet As Worksheet
  Dim NumOfColumns As Integer
  Dim RangeToCopy As Range
  Dim WorkbookCounter As Integer
  Dim RowsInFile
  Dim Prefix As String

  Application.ScreenUpdating = False

  'Initialize data
  Set ThisSheet = ThisWorkbook.ActiveSheet
  NumOfColumns = ThisSheet.UsedRange.Columns.Count
  WorkbookCounter = 1
  RowsInFile = 100                   'how many rows (incl. header) in new files?
  Prefix = "test"                    'prefix of the file name

  For p = 1 To ThisSheet.UsedRange.Rows.Count Step RowsInFile
    Set wb = Workbooks.Add

    'Paste the chunk of rows for this file
    Set RangeToCopy = ThisSheet.Range(ThisSheet.Cells(p, 1), ThisSheet.Cells(p + RowsInFile - 1, NumOfColumns))
    RangeToCopy.Copy wb.Sheets(1).Range("A1")

    'Save the new workbook, and close it
    wb.SaveAs ThisWorkbook.Path & "\" & Prefix & "_" & WorkbookCounter
    wb.Close

    'Increment file counter
    WorkbookCounter = WorkbookCounter + 1
  Next p

  Application.ScreenUpdating = True
  Set wb = Nothing
End Sub

---

是的，有一个工具。你需要一个VBA脚本。你可以使用splitmyexcelfile.com。我在尝试将一个非常大的文件重新导入到我们的业务系统时遇到了这个问题。Odoo导入超时，因为文件中的行太多。最后，我花了数小时通过复制粘贴将10k行拆分为30个文件，因为我不能仅仅为了这个小问题而被要求学习VBA或执行宏。所以我有一个程序员联系人为它开发了一个网站——splitmyexcelfile.com，它运行得很好。我给所有懒惰的同事的礼物…这基本上是一个链接唯一的答案。问题是，如果链接的网页碰巧出现故障，这个答案将不再是有效答案。