Excel按照固定行数拆分为多个文件

工作需要，需要把Excel按照固定行数拆分,生成多个Excel。

1.打开Excel，鼠标不要任何选择。按“Alt”+“f11”。

在sheet1贴上以下代码，WJhangshu = 250 ，我们是按照250行来拆分一个的。

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 'title
WJhangshu = 250 'num
WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r - bt) / WJhangshu) + 1)
For i = 0 To WJshuWorkbooks.AddApplication.DisplayAlerts = FalseActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"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

2. 切回Excel，Alt+f8.弹出框选择刚才的宏，可以“执行”或者单步执行。

3.核对数据

Excel按照固定行数拆分为多个文件相关推荐

excel按照固定行数拆分多个
1 背景: 工作需要,需要把Excel按照固定行数拆分. 解决办法: 1. 生成是提前处理: 简单来说就是按照行数生成多个Excel. 大概逻辑如下: if(list.size< limit) ...
Excel表格按行数拆分为多个文件
此代码只适用微软的Office Excel软件,WPS软件没有测试,而且WPS宏代码是收费功能. 在Excel菜单点击[开发工具]-[查看代码]进入VBA代码编写界面,然后点击[插入]-[模块],把下 ...
excel拆分表格之按指定行数拆分
1.如下图是某公司1-3月三个月的产品销售表,现在我们想要将每个月的数据拆分为独立表格,也就是每9行拆分为独立表格. 2.点击下图选线(Excel工具箱,百度即可了解详细下载安装信息,本文这里就不 ...
excel中怎么拆分表格之按指定行数拆分
1.如下图是某地区天气信息表,现在领导要求我们将这个表格分别拆分为上旬.中旬和下旬.也就是每隔十行拆分一次. 2.点击下图选项(Excel工具箱,百度即可了解详细的下载安装信息,本文这里就不做 ...
批量将一个 PPT 幻灯片文件按固定页数拆分成多个幻灯片文件
概要:对于经常写 PPT 的人来说,经常会与 PPT 幻灯片打交道.如果一个 PPT 幻灯片文件有很多页数,那么有没有办法能够将他们拆分成多个 PPT 幻灯片文件呢?这样每一个独立的 PPT 文件的页 ...
打印倒三角形——固定行数与键盘输入行数
打印倒三角形一.固定行数-5行思路:将整个三角形分成三部分,图中已分别用1.2.3标明.代码中要使用3个for循环,第一个for循环打印内容以"空格"形式展示,即左边的直角三角 ...
ReportViewer单据票据打印，自动分页，每页显示固定行数，每页都显示表头
报表工具用来用去,其实还是微软自带的ReportViewer比较轻量好用,一般需求完全够用.只是由于不常用,总会有解决一个问题过段时间又忘了怎么解决的问题.索性整理一下,当作笔记了. 在票据打印的时候 ...
批量将一个或多个 Word 文件按固定页数拆分成多个 Word 文件
概要:我们经常面对很多 Word 文档,有些 Word 文档有几百页,有时候我们希望将这些 Word 文档都按固定的页数拆分成多个 Word 文档.有没有一种简单的方法能够批量的将这些 Word 文件 ...
在Excel中固定行标题和列标题
在Excel中固定行标题和列标题,也就是让第一列或者第一行在滚屏的时候保持不动,方法很简单,如下: 如果想固定第一行,则选定第二行,然后在菜单栏选择,窗口,冻结窗格如果想固定第一列,则选定第二列,然 ...

Excel按照固定行数拆分为多个文件

Excel按照固定行数拆分为多个文件相关推荐

最新文章

热门文章