零基础教程-如何快速将EXCEL表格数据拆分成多个文件

工具：wps

1.首先一般人都是没有安装VBA宏插件的，此时我们就需要先下载并安装一个wps VBA宏插件，安装成功后;（直接百度搜索下载并安装即可，网上很多，示例如下）安装插件成功后，需要关闭wps再打开，就可以看到宏已经安装成功；

2.安装VBA插件成功后，按住ALT+F11，在出现的界面点击工具栏 插入》模块；

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 + 1 total_data= Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row- m + 1   If 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

4.粘贴完成后，按F5，根据提示弹窗提示一步步操作即可；

此方法适用于：如报表中有10000条数据，想拆分成10个表（每个表含1000条数据）的情况。

重要要点来了，有时候excel文档会提示无法在未启用宏的工作簿中保存，这时候就需要我们先将要处理的excel文件另存一份，更改其文件类型为xlsm，然后再打开文件按上述步骤操作，即可成功拆分表格！

教程来源于知乎大神

零基础教程-如何快速将EXCEL表格数据拆分成多个文件相关推荐

如何快速的将EXCEL表格数据拆分成多个文件？
下面我们就来看看如何用VBA来实现拆分工作. 首先,在EXCEL里面插入一个模块,代码如下:第二,在EXCEL工作表里面插入一个按钮控件,用于调用并执行以上模块. Sub copybat()Dim i ...
如何快速的将EXCEL表格数据拆分成多个文件
介绍前不久好几位朋友都问到,如何将一个EXCEL文件里面很多条数据拆分成多个文件,比如一个EXCEL表里面有90万行数据,需要按照每1万行拆分成一个文件,也就是需要将这表里面的90万行数据拆分到90 ...
excel表格怎么拆分成多个表格？
今天跟大家分享一下excel表格怎么拆分成多个表格? 1.打开演示文件如下图,我们想要将工作表拆分开成为多个独立的工作簿. 2.首先我们点击下图选项 3.点击[汇总拆分]-[拆分工作表] 4.然后我们 ...
《Unity 3D游戏客户端基础框架》protobuf 导excel表格数据
前言: 之前使用NPOI插件编写的导表工具,其实就是直接将数据进行序列化,解析时还需要进行反序列化,步骤比较繁复,最近看到Google的一个开源的项目protobuf,不仅可以用于进行excel表格数 ...
python处理excel表格数据-零基础使用Python读写处理Excel表格的方法
引由于需要解决大批量Excel处理的事情,与其手工操作还不如写个简单的代码来处理,大致选了一下感觉还是Python最容易操作. 安装库Python环境首先当然是配环境,不过选Python的一个重要 ...
python处理excel表格入门_零基础使用Python读写处理Excel表格
引由于需要解决大批量Excel处理的事情,与其手工操作还不如写个简单的代码来处理,大致选了一下感觉还是Python最容易操作. 安装库 Python环境首先当然是配环境,不过选Python的一个重 ...
超简单，一行代码解决：如何快速将Excel表格数据，映射到Java中的ListVO对象，然后转存数据库，生成SQL脚本
前言-真的很快速,之前用的是Apache下的Jar包,用起来太麻烦了 <dependency><groupId>org.apache.poi</groupId>&l ...
如何在ex表格导入php_怎么使用php把表格中的数据导入到excel中,php如何快速导入excel表格数据...
php怎么导入大量数据的excel php导出数据的Excel: PHP从数据库分多次读取100万行记录,和分将100万入文本文件都没问题 Excel可以支100万行记录,Excel 2003最大支持 ...
EXCEL表格-数据拆分及分列
❤关注我,不迷路❤ 点击进入EXCEL综合应用场景专栏在使用EXCEL时往往会遇到需要拆分一个整体变成多列的情况,本文将介绍如何将一列完整的数据进行分列拆分. 例:请将如下表格拆分成姓名.性别.年龄 ...

零基础教程-如何快速将EXCEL表格数据拆分成多个文件

零基础教程-如何快速将EXCEL表格数据拆分成多个文件相关推荐

最新文章

热门文章