将excel按照某一列拆分成多个单独文件

1.打开目标excel,按alt + f11键打开VBE窗口

2.选择插入->模块粘贴下面代码到编辑器中

代码：

Sub 保留表头拆分数据为若干新工作簿()Dim arr, d As Object, k, t, i&, lc%, rng As Range, c%c = Application.InputBox("请输入拆分列号", , 4, , , , , 1)If c = 0 Then Exit SubApplication.ScreenUpdating = FalseApplication.DisplayAlerts = Falsearr = [a1].CurrentRegionlc = UBound(arr, 2)Set rng = [a1].Resize(, lc)Set d = CreateObject("scripting.dictionary")For i = 2 To UBound(arr)If Not d.Exists(arr(i, c)) Then
Set d(arr(i, c)) = Cells(i, 1).Resize(1, lc)Else
Set d(arr(i, c)) = Union(d(arr(i, c)), Cells(i, 1).Resize(1, lc))End IfNextk = d.Keyst = d.ItemsFor i = 0 To d.Count - 1With Workbooks.Add(xlWBATWorksheet)
rng.Copy .Sheets(1).[a1]t(i).Copy .Sheets(1).[a2].SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls".CloseEnd WithNextApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueMsgBox "完毕"
End Sub

3.保存后回到excel文件，选择开发工具->插入->表单控件(按钮(窗体控件))，没有开发工具选项的在设置里面打开选项如图

4.按住鼠标左键不动然后在excel中划定一个按钮区域，然后会自动弹出的窗口，选择刚才保存的宏，点击确定

5.鼠标从按钮上面移开，然后点击按钮输入要列号，就是根据哪列的数据进行拆分文件，下图我们输入4就是按照班级进行拆分，根据不同的班级拆分成不同的文件

5.点击确定后，如果弹出完毕提示框代表拆分完成

6.到源文件所在的目录文件中查看拆分的文件

Ref: https://blog.csdn.net/ntotl/article/details/79141314

将excel按照某一列拆分成多个单独文件相关推荐

将excel按照某一列拆分成多个文件
1.打开目标excel,按alt + f11键打开VBE窗口 2.选择插入->模块粘贴下面代码到编辑器中 Sub 保留表头拆分数据为若干新工作簿() Dim arr, d As Obje ...
怎么将Excel多个工作表拆分成多个单独的Excel
以下是office中的EXCEL,wps会员的话自带拆分功能(特别方便) 例如工作薄中有多个工作表,如图: 将一个Excel工作簿中的多个工作表(sheet)拆分成如下图所示结果打开需要拆分的ex ...
将excel中的一个工作表按照某列拆分成多个sheet工作表
如何将excel中的一个工作表按照某列拆分成多个sheet工作表呢?接下来就利用VBA工具来解决这个问题. 拆分之前的工作表: 拆分之后的工作表: 操作步骤具体如下: 第一步:打开需要拆分的表格文件: ...
print python excel分隔_办公自动化 Python 小工具，对Excel文件,按某一列拆分成多个Excel文件或sheet...
使用pandas.xlwings.os 库文件,对Excel文件,按某一列拆分成多个Excel文件或sheet,提高工作效率. # -*- coding: utf-8 -*- "" ...
用python将一个excel工作表根据条件拆分成多个工作表（只用openpyxl库）
用python将一个excel工作表根据条件拆分成多个工作表(只用openpyxl库) 最近在学python,刚刚了解了openpyxl库,就想写点实用的功能.比如按某列值拆分工作表. 先放代码 fr ...
python 列表多行_Python Pandas list列表数据列拆分成多行的方法实现
1.实现的效果示例代码: df=pd.DataFrame({'A':[1,2],'B':[[1,2],[1,2]]}) df Out[458]: A B 0 1 [1, 2] 1 2 [1, 2] ...
python将工作表根据一列拆分成多个独立的sheet工作薄
一.实现效果在通常情况下,我们可以用VBA的方式将Excel工作薄根据条件拆分成独立的工作薄,在这里我们通过Python来进一步实现. →→→根据"部门"条件进行拆分←←← 二. ...
怎么把一个PDF拆分成多个PDF文件？
中午休息的时候同事问我:怎么把一个PDF拆分成多个PDF文件?PDF拆分很简单啊,办公都要用到PDF文件,想到这儿,小编就分享实用的方法. 1.在百度中去搜索关键词迅捷PDF在线转换器,点击进入在线网 ...
批量将一个或多个 Word 文件按固定页数拆分成多个 Word 文件
概要:我们经常面对很多 Word 文档,有些 Word 文档有几百页,有时候我们希望将这些 Word 文档都按固定的页数拆分成多个 Word 文档.有没有一种简单的方法能够批量的将这些 Word 文件 ...

将excel按照某一列拆分成多个单独文件

将excel按照某一列拆分成多个单独文件相关推荐

最新文章

热门文章