如何把excel中的多行数据按行数拆分成多个

原创链接知乎郭大牛谢谢！解决了问题仅此记录一下
https://zhuanlan.zhihu.com/p/81580481?from_voters_page=true

首先打开一个excel 添加宏

将代码编辑到宏中

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

双击启动宏

原创链接知乎郭大牛谢谢！解决了问题仅此记录一下
https://zhuanlan.zhihu.com/p/81580481?from_voters_page=true

如何把excel中的多行数据按行数拆分成多个相关推荐

将excel中的一个工作表按照某列拆分成多个sheet工作表
如何将excel中的一个工作表按照某列拆分成多个sheet工作表呢?接下来就利用VBA工具来解决这个问题. 拆分之前的工作表: 拆分之后的工作表: 操作步骤具体如下: 第一步:打开需要拆分的表格文件: ...
python3读取excel某一列_怎样用python，读取excel中的一列数据!python读取excel某一列数据...
Python 如何循环读取csv或者excel中的一列数据,写入到中搜索是可以 a.csv复制到 b.csv中 import csv def foo(): with open('a.csv', 'r ...
几张表格怎么联动_在excel 中，怎样实现数据关联？：excel怎么把几个表格的数据联动...
在excel 中,怎样实现数据关联? Excel数据关联可以利用公式来. 软件版本:Office2007 举例说明如下: 1.Sheet1如下数据,设置Sheet2中对元格数据与之关联起来: 2.在S ...
matlab输出多个参数到表格固定列,matlab将excle的列提取出来?如何使用Matlab提取Excel中指定列的数据？...
MATLAB 在txt文件中怎么提取数据,并将那三列数据转化为EXCLE格式? 在matlab中 file import data number of text header lines 改成6 下一 ...
Excel中如何将一列（行）数同时加减乘除同一个数
Excel中如何将一列(行)数同时加减乘除同一个数实验要处理大量的数据,需要将这些数的纵坐标放在同一个基准上(x=0的基准线)进行比较.(方法来源百度,具体出处不记得了,侵删) 比如这一列数,我需要 ...
python读取Excel中关联表格的数据(只要是同Excel中
来自CSDN-Mr熊 https://blog.csdn.net/qq_41030861/article/details/80515984 谁能告诉我前面这一堆都是什么啊... python读取Exc ...
怎么在excel中对比两列数据并查找重复项
怎么在excel中对比两列数据并查找重复项方法一: 方法二: 方法三: Excel查找2列相同的数据,并且返回对应列的另1列数据: IF函数语法格式: 方法一: =MATCH(A1,D$1:D95, ...
Excel中删除重复的数据
Excel中删除重复的数据经常碰到excel中重复的数据,如果数量不多,手工删除或许尚可,如果数据比较大,就需要借助计算机拉,一般有两种方法,一种是用Excel中的高级筛选工具,另一种就是我下面说的 ...
比对EXCEL中的两列数据之间的差值
工作中经常会比对EXCEL中的两列数据之间的差值 import pandas as pd #导入pandas #读取第一个表格数据打印 df=pd.read_excel("F:\\tem ...
python 拆分excel单元格_Python怎么在Excel中把一个单元格里的内容拆分提取？：excel表格已拆分的数据提取...
Python怎么在Excel中把一个单元格里的内容拆分提取? 有规律的话写代码可以处理,没有就没有办法如何将EXCEL表中的数据分离出来? 如图,B1输入:=LEFT(A1,FIND("排 ...

如何把excel中的多行数据按行数拆分成多个

如何把excel中的多行数据按行数拆分成多个相关推荐

最新文章

热门文章