excel快速拆分成多个文件
excel快速拆分成多个文件
1.点击开发工具栏下的 Visual Basic
2.弹出窗选择 插入-模块
3.复制代码 执行
Sub copybat()Dim i, j, k, m, r As IntegerDim n, total_data As LongDim path As StringDim title_area, data_column, data_areas As RangeSet title_area = Application.InputBox(prompt:="请用鼠标选择表头及表标题所在区域", Title:="选择", Type:=8) '选取表头区域Set data_column = Application.InputBox(prompt:="请鼠标选择需要拆分数据的开始行区域", Title:="选择", Type:=8) '选取拆分起始处m = data_column.Row '获取分割开始行所在区域行号r = data_column.Column '获取分割开始行所在区域列号j = data_column.Columns.Count '获取分割开始行区域列数i = Application.InputBox(prompt:="请输入每次分割数据条目数", Title:="选择")'获取需要分割的数据总条数。这里，可以用两种办法获取到数据区域的尾部行号'第一种，使用传统的：End(xlDown).Row，优点是速度快，缺点是有空白行时会出错'第二种，使用查找方式find，优点是基本不会出错，缺点是条数较多时候可能会慢一点'total_data = Cells(data_column(1, 1)).End(xlDown).Row - m + 1total_data = Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row - m + 1If MsgBox("本次分割文件数据总数为:" & total_data & "条，将会被分割成" & WorksheetFunction.RoundUp(total_data / i, 0) & "个文件，" _& "点击“确定”开始分割，点击“取消”返回", vbOKCancel, "确认") = vbOK ThenFilename = Application.InputBox(prompt:="请输入分割后的文件主名，默认为“分割文件”", Title:="选择", Default:="分割文件")With Application.FileDialog(msoFileDialogFolderPicker) '获取分割后的文件存储路径If .Show = False Then Exit Subpath = .SelectedItems(1) & "\" '加入"\",否则，文件会被存储到选定路径的上一层End WithApplication.ScreenUpdating = Falsek = 0 '第几次分割输出，用于标识分割文件次数For n = m To total_data Step i '从开始分割的行往下计数Set data_areas = Range(Cells(n, r), Cells(n + i - 1, j)) '设置每次循环体内的分割数据主体Application.Union(title_area, data_areas).Select '把表头区域以及本次循环体内的数据区域进行合并Selection.CopyWorkbooks.AddSelection.PasteSpecial Paste:=xlPasteAllUsingSourceTheme, Operation:=xlNone _, SkipBlanks:=False, Transpose:=False '特殊粘贴：包含源格式的粘贴，以便保持所有格式一致k = k + 1ActiveWorkbook.SaveAs Filename:=path & Filename & "_" & k & ".xlsx", FileFormat:= _xlOpenXMLWorkbook, CreateBackup:=False '按照既有的文件名、路径、循环次数合并起来存储文件ActiveWindow.CloseNext nMsgBox "文件分割完毕！", vbDefaultButton1, "提示"End IfApplication.ScreenUpdating = True
End Sub
1.选择表头所在区域
2.选择拆分数据的开始行区域
3.输入分割数据条目数
4.点击确定
5.输入分割后的文件主名
6.点击确定，分割完毕
excel快速拆分成多个文件相关推荐
- 如何快速的将EXCEL表格数据拆分成多个文件？
下面我们就来看看如何用VBA来实现拆分工作. 首先,在EXCEL里面插入一个模块,代码如下:第二,在EXCEL工作表里面插入一个按钮控件,用于调用并执行以上模块. Sub copybat()Dim i ...
- 如何快速的将EXCEL表格数据拆分成多个文件
介绍 前不久好几位朋友都问到,如何将一个EXCEL文件里面很多条数据拆分成多个文件,比如一个EXCEL表里面有90万行数据,需要按照每1万行拆分成一个文件,也就是需要将这表里面的90万行数据拆分到90 ...
- excel怎么拆分成多个独立表格文件
今天跟大家分享一下excel怎么拆分成多个独立表格文件 1.打开演示文件,要求将表格拆分为多个独立的文件. 2.首先我们点击下图选项 3.点击[汇总拆分],选择[拆分工作表] 4.将[表头行数]设置为 ...
- 将excel按照某一列拆分成多个文件
1.打开目标excel,按alt + f11键打开VBE窗口 2.选择插入->模块粘贴下面代码到编辑器中 Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Obje ...
- 中英文怎么算 字符长度_如何将混合了中英文及不同数量空格的文本，快速拆分成多列...
前段时间学员小D咨询到:有什么简便的方法,可以将将混合了中英文及不同数量空格的文本,快速拆分成多列?下图所示是小D的问题: 小D需要将这列数据拆分成如下图所示的4列数据: 刚一开始看到这个表格的时候, ...
- 用python或者vba把一个excel表格拆分成多个excel表格
工作中有时候会碰到需要把一张大的表格(行数多)分拆成多个表格的情况,虽然不太符合常理,如果一张表格太大,数据导出的时候就应该拆好,但实际上基于各种原因还是会碰到. python脚本,比较简单也比较好理 ...
- 产品狗的Python之路（1）：按照行数将excel表格拆分成多个
产品狗的Python之路 (1):使用python将excel表格拆分成多个 背景: 因公司内部数据导入系统限制每一次导入的数据行数,故经常需要将一个几万行的表格拆分成多个,费事费力,所以写了一个小程 ...
- excel表格拆分成多个工作表的方法？
今天跟大家分享一下excel表格拆分成多个工作表 1.打开演示文件要求将表格按照部门拆分开. 2.接着我们点击如下图选项 3.点击[汇总拆分],选择[拆分工作表] 4.将表头行数设置为1 5.最后点击 ...
- 拆分pdf文件最简单的方法？PDF拆分成多个文件工具推荐
很多朋友会在日常生活工作中遇见PDF文件过大的情况,这时候就有两个办法解决文件过大的办法,一个是压缩PDF,但是这种方法会影响到文件内容的清晰度,这就会劝退一部分用户,选择另一种方法,拆分PDF.那么 ...
最新文章
- matlab并联负荷模块,Matlab-SimPowerSystems-Elements模块使用说明
- maven使用小技巧 optional
- High1赛因天气不理想取消 球员平分一半奖金
- 用pytorch加载训练模型
- 加载spring上下文的多种方式总结
- OpenGL-坐标系概念
- python向上取整 向下取整
- [渝粤教育] 中国地质大学 地球科学概论 复习题 (2)
- 正则提取的url中的域名以及替换域名的方法 preg_match()和preg_replace()
- 七、MySQL DDL数据定义语言 学习笔记（库和表的创建、修改、删除详解 + 强化复习）
- OJ1059: 最高分(C语言)
- Netty工作笔记0014---Buffer类型化和只读
- Android FlashLight教程
- HDU 1394 Minimum Inversion Number 树状数组
- 网络术语---数字签名的简单认识
- 【BZOJ1580】【USACO2009Hol】杀手游戏 计算几何
- 如何排查计算机联网故障,电脑莫名连不上网？佰佰教你如何排除网络连接故障！...
- php 量化交易 开源,hikyuu开源量化交易研究框架 v1.0
- 【深度学习】详解Faster-R-CNN
- ros手柄控制机器人小车(三)