EXCEL 技能——等行分页

最新推荐文章于 2025-02-13 10:13:55 发布
原创 最新推荐文章于 2025-02-13 10:13:55 发布 · 1.1k 阅读 · 0
本文介绍如何使用VBA宏实现Excel表格的批量分页。通过输入代码，可以将大表格按照每250行分割成多个独立的Excel文件，方便管理和查找数据。操作步骤包括打开宏定义窗口，粘贴代码，执行宏，最后关闭并保存每个分页后的文件。注意第一行会被复制到每个新文件中作为标题行。

1、ALT+F11 弹出宏定义窗口

2、粘贴一下代码

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 WJshu

    Workbooks.Add

    Application.DisplayAlerts = False

    ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\" & Format(i, String(Len(WJshu), 0)) & ".xlsx"

 &nb

最低0.47元/天 解锁文章
cezi6746
关注
【表格解决问题】EXCEL行数过多，WPS如何按逐行分别打印多个纸张中
Mr_GYF的博客
11-01 3793
先预览一下，看看我们每页需要打印多少行，这个地方会出现一个很明显的分隔符，我们可以手动控制每一页的行数。如果第三步没有出现很明显的分页符，我们进先打印预览，然后将【缩放的形式改为所有。拖动虚线控制想要的每一页需要打印的行数，拖动滚轮可以预览。先选中一行，找到【插入分页符】打印在一页】，再回到第三步。
微软 EXCEL技巧53例
gznick的专栏
01-28 823
【转载】EXCEL技巧53例1、如何在已有的单元格中批量加入一段固定字符？　　例如：在单位的人事资料，在excel中输入后，由于上级要求在原来的职称证书的号码全部再加两位，即要在每个人的证书号码前再添上两位数13，如果一个一个改的话实在太麻烦了，那么我们可以用下面的办法，省时又省力：　　 1）假设证书号在A列，在A列后点击鼠标右键，插入一列，为B列 ；　　 2）在B2单元格写入： ="13"
Excel如何将表格数据按照行数拆分为多个
ffcell2016的博客
09-16 8604
今天跟大家分享一下Excel如何将表格数据按照行数拆分为多个 1.如下图我们想要将这个表格每十行拆分为一个表格。 2.首先我们点击下图选项 3.点击【汇总拆分】，【拆分工作表】 4.单击【按行数拆分】 5.将表头行数设置为1，然后设置每10行拆分为一个表格 6.最后点击【确定】 7.完成效果如下图所示 ...
记录一个偏门excel 按照行数来分表
zhouzhou377的博客
05-12 414
公司没有office 只有wps ，而wps会员自带分表。 在网上找到了一个VB 代码 可以使用在excel上。 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 b = InputBox("请输入分表行数") bt = 1 'title WJhangshu = b
EXCEL 按固定数量拆分
weixin_44843658的博客
07-31 615
EXCEL 按固定数量拆分 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
npoi 所有列调整为一页_别再浪费打印纸了！这样设置，Excel表格再大都能打印成一页！...
weixin_39820910的博客
12-03 1363
在打印Excel表格时，你是不是经常碰到过这种情况：明明排版好的表格，结果打印完却发现只显示一半......表格太宽导致无法打印在A4纸上......今天叨叨君就来分享几个有效的解决方法，教你轻轻松松将表格打印在一页纸上，一起来看看吧！一、表格打印在一页纸上1、分页预览❶ 在打印之前，我们先在Excel 里点击右下角的【分页预览】图标。就是这个图标，在表格的右下角❷ 点击之后，我们可以看到蓝色实线...
表头大小设置_别再浪费打印纸了！这样设置，Excel表格再大都能打印成一页！...
weixin_28728495的博客
01-11 1080
在打印Excel表格时，你是不是经常碰到过这种情况：明明排版好的表格，结果打印完却发现只显示一半......表格太宽导致无法打印在A4纸上......今天叨叨君就来分享几个有效的解决方法，教你轻轻松松将表格打印在一页纸上，一起来看看吧！一、表格打印在一页纸上1、分页预览❶ 在打印之前，我们先在Excel 里点击右下角的【分页预览】图标。就是这个图标，在表格的右下角❷ 点击之后，我们可以看到蓝色实线...
java的excel分页行
weixin_40325819的博客
06-29 313
Excel相关视频讲解：用python编程Excel有没有用处？用Java实现Excel分页行 在实际工作中，我们经常会遇到需要处理Excel表格数据的情况。有时候，我们需要将大量数据拆分成多个页面显示，这就需要对Excel进行分页处理。本文将介绍如何用Java实现Excel分页行功能。 Excel分页的概念 Excel...
使用js-xlsx导出excel分页和打印标题行
u010154520的博客
05-11 2047
问题 前端导出的excel需要进行分页处理便于打印，为了方便显示，打印时需要设置打印标题行(每一页都会打印标题) js-xlsx文档说明 js-xlsx在文档中列出了一下几个属性，但没有具体说明，经过实验，可以得到其具体的作用 ws[’!rowBreaks’]: array of row break points, e.g. [16,32] // 行分页，数组的值对应插入分页符的行 ws[’!colBreaks’]: array of col break points, e.g. [8,16] // 列分
Excel按照固定行数拆分为多个文件
D的博客
11-12 1万+
工作需要，需要把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.Co...
通过VBA将一个工作簿中的多个工作表拆分为多个工作簿,以工作表名称命名工作簿
wanglepingwangleping的博客
07-20 7212
前提：电脑上装有office2007或office2013等，WPS不行。 1、如果你有现成的一个工作簿含有多个工作表的文件，想分成多个工作簿的话， 可以通过office2007或office2013等打开execl，然后通过execl里面的开发工具， 输入以下运行代码，执行就行（拆分的工作簿在你设置的路径下）： Sub cfb() Dim m As Integer Dim sht, sht1 As Worksheet '按照需要将分出来的表分成多个工作簿 n = InputBox(“请输入excel的
excel文件一个sheet页中的数据拆分为多个单独的excel文件
测试人的成长日志
07-08 1885
一、使用的命令 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 = 100 'num WJshu = IIf(r - bt Mod 20000, Int((r - bt) / WJhangshu), Int((r
Excel分页打印整合技巧：轻松实现一页打印
最新发布
nntxthml的博客
02-13 1481
Excel分页打印整合是一项非常实用的技能，可以帮助用户更好地控制打印输出效果，提高报告或展示的专业度。通过掌握本文介绍的操作步骤和注意事项，用户可以轻松实现分页打印整合，让打印输出更加清晰、连贯。无论是在日常办公中还是在重要报告中，这一技能都将为用户带来极大的便利和优势。希望本文能够对您有所帮助！
excel按照固定行数拆分多个
热门推荐
bohu83的博客
07-28 5万+
1 背景：    工作需要，需要把Excel按照固定行数拆分。 解决办法：   1. 生成是提前处理：    简单来说就是按照行数生成多个Excel。 大概逻辑如下：    if（list.size {    直接生成Excel     return； } else{ //  计算分批次数     int count =list.size/limit; //循环 fo
Excel表格按行数拆分为多个文件
唐学阳.NET博客
07-05 7647
此代码只适用微软的Office Excel软件，WPS软件没有测试，而且WPS宏代码是收费功能。 在Excel菜单点击【开发工具】-【查看代码】进入VBA代码编写界面，然后点击【插入】-【模块】，把下面的代码复制到代码编写区域内，然后保存。在点击代码界面上边的绿色小箭头运行代码就可以进行拆分表格了。 Sub ZheFenSheet() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).E
EXCEL拆分
东门吸雪
03-08 432
1. 如下Excel表，总共有120多行数据，如何将以50行数据为一个工作表进行拆分 Sub ZheFenSheet() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range("A" & Rows.Count).End(xlUp).Row b = InputBox("请输入分表行数") If IsNumer...
excel按行数拆分
oyondaime的专栏
05-31 3752
Excel 按行数拆分   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 = 20000 '每个文
excel中怎么拆分表格之按指定行数拆分
ffcell2016的博客
04-11 2423
​ 1.如下图是某地区天气信息表，现在领导要求我们将这个表格分别拆分为上旬、中旬和下旬。也就是每隔十行拆分一次。 ​ 2.点击下图选项（Excel工具箱，百度即可了解详细的下载安装信息，本文这里就不做具体解说） ​ 3.点击【汇总拆分】，选择【拆分工作表】 ​ 4.点击【按行数拆分】 ​ 5.将【表头行数】设置为1，然后拆分选项中设置每10行拆分为一个表 6.最后点击【确定】即可完成 ...
execle按行进行拆分
xyh_qianxiao的博客
10-18 421
1.打开excel表格 2.使用快捷键 ALT+F11 3.将以下代码复制到窗口中，下面代码是以200000行为一个文件进行拆分的，若要修改拆分行数的大小只需要修改WJhangshu值的大小。 Sub cfb() Dim r, c, i, WJhangshu, WJshu, bt As Long r = Range(“A” & Rows.Count).End(xlUp).Row c = C...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值