如何将excel一个工作表以500行为标准拆分成多个文件

如何将excel一个工作表以500行为标准拆分成多个文件

有没有标题， 从第1行开始 还是从 第2行开始每500 个，每个文件要标题么追问你好，每个文件都沿用原来数据的第一个标题 从第二行开始每500个，就是每500行数据为一个文件输出出来追答右键点工作表标 (这里写的Sheet1签 ，查看代码，如下代码复制进去，F5运行

Sub xxx()
Dim reg As Range
Dim i As Long
Dim x, pth As String
pth = ThisWorkbook.Path
 For i = 2 To 600000 Step 500
   Set reg = Nothing
   Set reg = Sheets("Sheet1").Rows(i & ":" & i + 499)
  x = Sheets("Sheet1").Cells(i, 1) & ""
  Sheets.Add.Name = x
  Sheets(x).[A1]="Sheets("Sheet1").[A1]
  Sheets(x).[B1]="Sheets("Sheet1").[B1]
  reg.Copy Sheets(x).Rows(2)
  Sheets(x).Copy
  Application.DisplayAlerts = False
  With ActiveWorkbook
    .SaveAs Filename:=pth & "" & x & ".xlsx"
    .Close
  End With
  ThisWorkbook.Sheets(x).Delete
  Application.DisplayAlerts = True
 Next
End Sub追问你好，Sheets(x).[A1]="Sheets("Sheet1").[A1]
Sheets(x).[B1]="Sheets("Sheet1").[B1]
这两行提示语法错误 我的工作表的名字是144011220306，文件名是144011220306新，然后跑出来的文件会保存在那里呀？

谢谢追答保存在当前目录， 我不知道你的 工作表名字是什么， 所以写的Sheet1， 你自己把表名改成Sheet1吧追问你好， Sheets(x).[A1]="Sheets("Sheet1").[A1]
Sheets(x).[B1]="Sheets("Sheet1").[B1]
为啥这两段依然显示语法错误呢 大哥追答哦，多打了个 “
Sub xxx()
Dim reg As Range
Dim i As Long
Dim x, pth As String
pth = ThisWorkbook.Path
 For i = 2 To 600000 Step 500
   Set reg = Nothing
   Set reg = Sheets("Sheet1").Rows(i & ":" & i + 499)
  x = Sheets("Sheet1").Cells(i, 1) & ""
  Sheets.Add.Name = x
  Sheets(x).[A1]=Sheets("Sheet1").[A1]
  Sheets(x).[B1]=Sheets("Sheet1").[B1]
  reg.Copy Sheets(x).Rows(2)
  Sheets(x).Copy
  Application.DisplayAlerts = False
  With ActiveWorkbook
    .SaveAs Filename:=pth & "" & x & ".xlsx"
    .Close
  End With
  ThisWorkbook.Sheets(x).Delete
  Application.DisplayAlerts = True
 Next
End Sub追问运行了一个之后就提示运行时错误1004 应用程序定义或对象定义错误

你的问题可以实现 我可以做到

Excel工作表好像达不到60万行，最大只能是65536行，追问不对呀 我10版的我的表有数据的都到60多W了