按照行数分割excel

本来是想通过NOPI自己编写个小工具分割excel的，但是不想去研究API，就百度了一下，找了很久，有几个软件说是为了这个功能而生，实际上要么不能使用，要么出错，所以暂时没有公开可用的软件。

然后我就继续搜索，在百度上，有位高人使用VBA提供了此解决方案。

Sub cfb()
Dim r, c, i, WJhangshu, WJshu, bt As Long
r = Range("A" & Rows.Count).End(xlUp).Row
c = Cells(1, Columns.Count).End(xlToLeft).Column
bt = 1 '标题行数
WJhangshu = 190 '每个文件的行数
WJshu = IIf(r - bt Mod 190, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 1 To WJshuWorkbooks.AddApplication.DisplayAlerts = FalseActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xls"Application.DisplayAlerts = TrueThisWorkbook.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 True
Next
End Sub

但是这个方法也有弊端：分割的文档数量少第一个，前190行（设定的行数）没有单独分出来，需要再手动分割一下。

转载于:https://www.cnblogs.com/jiujian/p/4968042.html

按照行数分割excel相关推荐

产品狗的Python之路（1）：按照行数将excel表格拆分成多个
产品狗的Python之路 (1):使用python将excel表格拆分成多个背景: 因公司内部数据导入系统限制每一次导入的数据行数,故经常需要将一个几万行的表格拆分成多个,费事费力,所以写了一个小程 ...
如何把一个TXT文本文件按行数分割成多个文本文件
2011-04-27 12:00:24| 分类: 默认分类 |字号订阅网上有很多文本分割软件都是按字节大小来分割的,主要用于小说类的文本分割,对于比较有规则的内容按行数进行分割非常不方便,所以我 ...
使用vue xlsx插件实现指定行数导入excel
基于xlsx导入excel数据到页面上,从网上不难找到一种binary的方式导入的方法.这是一位博友给出的解决方案但是今天遇到一个客户的需求,需要将导入模板做成下图的样子,因为做订单的数据好多相对复 ...
【无标题】excel中query编辑器修改数据类型、第一行做标题、计算行数
1.1 修改数据类型.第一行做标题.计算行数打开excel数据表格进入query编辑页面修改列数据类型将标题作为第一行.将第一行作为标题处理结果再点击将第一行作为标题,既可回复原来标题. ...
java 利用POI 读取Excel数据的真实有效行数
前言最近发现java导入excel数据时,我的excel数据明明只有4条数据,可是java程序却读取到了第6行.检查代码发现5.6行不小心设置了行高,导致poi的getLastRowNum()方法读 ...
@excel 注解_7 行代码实现 Excel 文件导出
作者:犬小哈来源:首发自「小哈学Java」广而告之:由于此订阅号换了个皮肤,系统自动取消了读者的公众号置顶.导致用户接受文章不及时.可以打开订阅号,选择置顶(标星)公众号,重磅干货,第一时间送 ...
excel按照固定行数拆分多个
1 背景: 工作需要,需要把Excel按照固定行数拆分. 解决办法: 1. 生成是提前处理: 简单来说就是按照行数生成多个Excel. 大概逻辑如下: if(list.size< limit) ...
excel总行数 java_计算Excel工作表列中的行数(提供的Java代码)
参考我之前的问题 How to calculate number of rows in a column of Excel document using Java,我能够计算给定表格中的总列数.现在, ...
excel表格最大行数
2003及以下版本的excel最大行数只有65536行 2010版本的excel最大行数2^20 1048576行 excel表可以限制最大行数吗?比如我最大只要50行,超过了50行不准输入或者提示 ...

按照行数分割excel

按照行数分割excel相关推荐

最新文章

热门文章