excel根据行数分表

2025-03-24 21:22:04

1、点击开发工具→宏→输入宏名称→点击创建

excel根据行数分表

2、输入如下代码:Dim r, c, i, WJhangshu, WJshu巳呀屋饔, bt As Longr = Range("A" & Rows.Count).End烫喇霰嘴(xlUp).Rowb = InputBox("请输入分表行数")If IsNumeric(b) Then WJhangshu = Int(b) Else MsgBox "输入错误", vbOKOnly, "错误" EndEnd Ifc = Cells(1, Columns.Count).End(xlToLeft).Columnbt = 1 '标题行数'WJhangshu = 50 '每个文件的行数WJshu = IIf(r - bt Mod WJhangshu, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)For i = 0 To WJshu Workbooks.Add Application.DisplayAlerts = False ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx" Application.DisplayAlerts = True ThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1") ThisWorkbook.ActiveSheet.Range("A" & bt + i * WJhangshu + 1).Resize(WJhangshu, c).Copy _ ActiveSheet.Range("A" & bt + 1) ActiveWorkbook.Close TrueNext

excel根据行数分表

3、点击运行出现对话框,输入50并确定,在Excel文件对应的路径下会生成分表文件。

excel根据行数分表

4、分表结果

excel根据行数分表
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢