EXCEL宏根据指定行数来切割excel文件内容成新文件

宏内容

Sub splitexcel()
Dim r, c, i, totalhangshu, fileshu, bt As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
tRow = Val(Application.InputBox("请您输入需要切割的行数？"))
If tRow = 0 Then MsgBox "您未输入行数，程序退出！": Exit Sub
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 'title
totalhangshu = tRow 'num
fileshu = IIf(r - bt Mod 20000, Int((r - bt) / totalhangshu), Int((r - bt) / totalhangshu) + 1)
For i = 0 To fileshuWorkbooks.AddApplication.DisplayAlerts = FalseActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(fileshu), 0)) & ".xlsx"Application.DisplayAlerts = TrueThisWorkbook.ActiveSheet.Range("A1").Resize(bt, c).Copy ActiveSheet.Range("A1")ThisWorkbook.ActiveSheet.Range("A" & bt + i * totalhangshu + 1).Resize(totalhangshu, c).Copy _ActiveSheet.Range("A" & bt + 1)ActiveWorkbook.Close True
Next
End Sub

执行过程

打开待处理文件
执行宏
观察结果

EXCEL宏根据指定行数来切割excel文件内容成新文件相关推荐

【C/C++】等分或指定行数把txt文档拆分成多份
1.输入如下: 2.执行代码: 3.输出如下: 4.代码如下: 4.1.平均拆分代码 #include <iostream> #include <string> #inclu ...
excel在每行下面添加插入指定行数的空白行方法步骤
描述:excel在每行下面添加指定行数的空白行方法步骤步骤: 下载excel必备工具箱,并安装下载地址:http://www.ahzll.top/ 菜单栏->工具箱->处理->间 ...
python pandas库读取excel/csv中指定行或列数据详解
通过阅读表格,可以发现Pandas中提供了非常丰富的数据读写方法,下面这篇文章主要给大家介绍了关于python利用pandas库读取excel/csv中指定行或列数据的相关资料,需要的朋友可以参考下 ...
css3实现超出文本指定行数(指定文本长度)用省略号代替
测试代码: 1 <!DOCTYPE html> 2 <html> 3 4 <head> 5 <meta name="viewport" c ...
用VBA得到EXCEL表格中的行数和列数
用VBA得到EXCEL表格中的行数和列数每种方法中上面的是Excel的行数,下面的是Excel的列数. 方法1: ActiveSheet.UsedRange.Rows.Count ActiveShe ...
VC编辑框（EDIT）的自动换行、自动滚屏、到指定行数自动清空
From: http://getyoureyes.blog.163.com/blog/static/101716622201083081914305/ 经过多次测试,总结出VC编辑框(EDIT)的自动 ...
Linux 查看文件指定行数内容
前些天发现了一个巨牛的人工智能学习网站,通俗易懂,风趣幽默,忍不住分享一下给大家.点击跳转到教程. 1.tail date.log 输出文件末尾的内容,默认10行 tail ...
php如何打出的正方形行列,javascript实现输出指定行数正方形图案的方法
本文实例讲述了javascript实现输出指定行数正方形图案的方法.分享给大家供大家参考.具体如下: javascript实现输出指定行数的正方形图案:点击生成图案,会有2个提示框,1,输入图案的组成 ...
eclipse查找指定行数
ctrl+L 查找指定行数转载于:https://www.cnblogs.com/songyunxinQQ529616136/p/6640734.html

EXCEL宏根据指定行数来切割excel文件内容成新文件

EXCEL宏根据指定行数来切割excel文件内容成新文件

宏内容

执行过程

EXCEL宏根据指定行数来切割excel文件内容成新文件相关推荐

最新文章

热门文章