excel中 如何将大批的数据,自动均等的分成几个独立表格!比如1到100 一张表 100-200一张表

excel

1个回答

写回答

Ajin6666

2025-12-15 21:55

+ 关注

肯定是为了任务分解用了。要分表不难,可以使用宏来实现。占个坑,一会把代码发上来。

按ALT+F11,双击左侧这个文件名,双击当前工作表名,然后在右侧粘贴以下代码。然后到工作表界面运行aa宏Sub aa()Dim newbook As Workbooka = ThisWorkbook.Nameb = ActiveSheet.Nameh = InputBox("请输入行数")Application.ScreenUpdating = FalseFor n = 0 To Range("a65536").End(xlUp).Row hWindows(a).ActivateSheets(b).ActivateRows((h * n + 1) & ":" & (h * n + h)).CopySet newbook = Workbooks.AddWith newbooknewbook.ActivateActiveSheet.Paste.SaveAs Filename:=ThisWorkbook.Path & "" & Replace(a, ".xls", "") & n & ".xls".CloseEnd WithNext nApplication.ScreenUpdating = TrueEnd Sub

运行时会提示你输入行数,比如100,确定后就会自动拆成100行一个表,并加上序号保存为新文件。 有疑问可以追问。

举报有用(0分享收藏

Copyright © 2025 IZhiDa.com All Rights Reserved.

知答 版权所有 粤ICP备2023042255号