肯定是为了任务分解用了。要分表不难,可以使用宏来实现。占个坑,一会把代码发上来。
按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行一个表,并加上序号保存为新文件。 有疑问可以追问。
Copyright © 2025 IZhiDa.com All Rights Reserved.
知答 版权所有 粤ICP备2023042255号