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

答案:3 悬赏:80 手机版

解决时间 2021-02-14 22:26

提问者网友：嘚啵嘚啵
2021-02-14 05:05

最佳答案

五星知识达人网友：神也偏爱
2021-02-14 05:32

有没有标题，从第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 应用程序定义或对象定义错误

全部回答

1楼网友：渊鱼
2021-02-14 08:03

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

2楼网友：拾荒鲤
2021-02-14 06:59

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息