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"

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 True

End Sub

4、切换到list界面，ALT+F8弹出宏执行界面

5、点击执行

注意：1.总表的第一行会作为之后划分每个表的第一行

2 代码划分250行为一个表

---------------------

作者：bohu83

来源：CSDN

原文：https://blog.csdn.net/bohu83/article/details/76273361

EXCEL 技能——等行分页相关推荐

Python必备基本技能——命令行参数args详解
Python必备基本技能--命令行参数args详解 1. 效果图 2. 源码 2.1 简单命令行参数 2.1 轮廓检测源代码参考这篇博客将介绍一项开发人员.工程师和计算机科学家必备的技能--命令行 ...
excel处置4000行数据卡_【Excel技巧】在Excel中奇偶行提取和奇偶行筛选方法
今天我给大家讲一个人人都会使用,都能用到的excel教程,那就是在Excel中奇偶行提取和奇偶行筛选方法,以下一共分两部分为大家讲解excel中奇偶行的提取与筛选的方法. 第一.excel偶数行提取 ...
Excel 批量处理行高（图文教程） - Excel篇
Excel 批量处理行高(图文教程) - Excel篇 Excel如何批量统一行高或列宽? 鼠标拖一下,就能解决! 操作如下: 打开Excel文档,通过鼠标拉选或Alt+鼠标左键选择目标操作行: 然 ...
Excel 隔行插入行V2022.7(支持win11,支持Office 和WPS)
Excel隔行插入行V2022.7(支持win11,支持Office 和WPS) 插件下载地址: 链接:https://pan.baidu.com/s/1Zo-IAHtYkdtUJjfCD1_CrA ...
【python】删除excel表格重复行，数据预处理
使用python删除excel表格重复行. # 导入pandas包并重命名为pd import pandas as pd# 读取Excel中Sheet1中的数据 data = pd.DataFrame ...
Excel按照固定行数拆分为多个文件
工作需要,需要把Excel按照固定行数拆分,生成多个Excel. 1.打开Excel,鼠标不要任何选择.按"Alt"+"f11". 在sheet1贴上以下代码, ...
Excel VBA多行连续数据分类合并
Excel VBA多行连续数据分类合并 1. 案例说明: 需要将如下数据合并为以下形式,并且新建一个工作表展示出来: 2. 实现代码: 打开EXCEL的VBA环境,将以下代码复制粘贴到新的模块中,运 ...
校验导入的Excel文件标题行与要求的标题行是否一致
1. 模板标题头,例如班级名称, 学员名称, 证件号码, 学员状态 2.获取文件 MultipartFile file,校验文件的大小,格式等 public Result<?> impo ...
如何冻结Excel中的行
在Excel中有一个冻结行的功能.在冻结行的帮助下,我们可以固定我们选择的窗格或行,以超出特定的限制工作表. 可以从"视图"菜单选项卡的"窗口"部分的" ...

EXCEL 技能——等行分页

EXCEL 技能——等行分页相关推荐

最新文章

热门文章