excel中 如何将大量的数据,自动均等的分成几个表!比如1到100 一张表 100-200一张表
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/06/16 17:22:01
excel中 如何将大量的数据,自动均等的分成几个表!比如1到100 一张表 100-200一张表
![excel中 如何将大量的数据,自动均等的分成几个表!比如1到100 一张表 100-200一张表](/uploads/image/z/6167181-21-1.jpg?t=excel%E4%B8%AD+%E5%A6%82%E4%BD%95%E5%B0%86%E5%A4%A7%E9%87%8F%E7%9A%84%E6%95%B0%E6%8D%AE%2C%E8%87%AA%E5%8A%A8%E5%9D%87%E7%AD%89%E7%9A%84%E5%88%86%E6%88%90%E5%87%A0%E4%B8%AA%E8%A1%A8%21%E6%AF%94%E5%A6%821%E5%88%B0100+%E4%B8%80%E5%BC%A0%E8%A1%A8+100-200%E4%B8%80%E5%BC%A0%E8%A1%A8)
肯定是为了任务分解用了.
要分表不难,可以使用宏来实现.
占个坑,一会把代码发上来.
按ALT+F11,双击左侧这个文件名,双击当前工作表名,然后在右侧粘贴以下代码.然后到工作表界面运行aa宏
Sub aa()
Dim newbook As Workbook
a = ThisWorkbook.Name
b = ActiveSheet.Name
h = InputBox("请输入行数")
Application.ScreenUpdating = False
For n = 0 To Range("a65536").End(xlUp).Row \ h
Windows(a).Activate
Sheets(b).Activate
Rows((h * n + 1) & ":" & (h * n + h)).Copy
Set newbook = Workbooks.Add
With newbook
newbook.Activate
ActiveSheet.Paste
.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(a, ".xls", "") & n & ".xls"
.Close
End With
Next n
Application.ScreenUpdating = True
End Sub
运行时会提示你输入行数,比如100,确定后就会自动拆成100行一个表,并加上序号保存为新文件.
有疑问可以追问.
要分表不难,可以使用宏来实现.
占个坑,一会把代码发上来.
按ALT+F11,双击左侧这个文件名,双击当前工作表名,然后在右侧粘贴以下代码.然后到工作表界面运行aa宏
Sub aa()
Dim newbook As Workbook
a = ThisWorkbook.Name
b = ActiveSheet.Name
h = InputBox("请输入行数")
Application.ScreenUpdating = False
For n = 0 To Range("a65536").End(xlUp).Row \ h
Windows(a).Activate
Sheets(b).Activate
Rows((h * n + 1) & ":" & (h * n + h)).Copy
Set newbook = Workbooks.Add
With newbook
newbook.Activate
ActiveSheet.Paste
.SaveAs Filename:=ThisWorkbook.Path & "\" & Replace(a, ".xls", "") & n & ".xls"
.Close
End With
Next n
Application.ScreenUpdating = True
End Sub
运行时会提示你输入行数,比如100,确定后就会自动拆成100行一个表,并加上序号保存为新文件.
有疑问可以追问.
excel中 如何将大量的数据,自动均等的分成几个表!比如1到100 一张表 100-200一张表
如何将excel表1中数据自动填充到表2中,如图:
excel 如何统计一张表中所有的数据介于某两数值之间的个数,
在有大量数据的EXCEL表中,如何将A列中相同名称的对应的B列数据相加?
Excel如何连接到另一个文档的一张sheet中
excel如何关联数据?当表1数据更改时,表2的关联数据会自动变化?
如何在EXCEL中让几个表格中的数据在别一个单独表中自动计算出来
怎样将excel中表1和表2的数据累加到表3中
如何在excel里,将大量数据的平均值和标准差添加到一起?
excel中,比如A列中数字是1到100,如何让数字自动排列组合,其组合一起的值为15.
如何把excel表格中自动求和的数字复制到其他表中
在EXCEL的列在另外一张表中列出