1. 把excel文件分成多个文件夹
打开目标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 Sub
Application.ScreenUpdating = False
Application.DisplayAlerts = False
arr = [a1].CurrentRegion
lc = 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 If
Next
k = d.Keys
t = d.Items
For i = 0 To d.Count - 1
With Workbooks.Add(xlWBATWorksheet)
rng.Copy .Sheets(1).[a1]
t(i).Copy .Sheets(1).[a2]
.SaveAs Filename:=ThisWorkbook.Path & "\" & k(i) & ".xls"
.Close
End With
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
MsgBox "完毕"
End Sub
3.保存后回到excel文件，选择开发工具->插入->表单控件(按钮(窗体控件))，没有开发工具选项的在设置里面打开选项如图
4.按住鼠标左键不动然后在excel中划定一个按钮区域，然后会自动弹出的窗口，选择刚才保存的宏，点击确定
5.鼠标从按钮上面移开 ，然后点击按钮输入要列号，就是根据哪列的数据进行拆分文件，下图我们输入4就是按照班级进行拆分，根据不同的班级拆分成不同的文件
5.点击确定后，如果弹出完毕提示框代表拆分完成
6.到源文件所在的目录文件中查看拆分的文件
2. excel分为多个文件
怎么把WPS表格一个文档拆分为多个文档
1.
首先我们来打开一个需要拆分的WPS表格。
2.
接着我们点击菜单栏的“开始”。
3.
然后点击开始菜单下的工作表。
4.
接着点击工作表，选择“拆分表格”。
◾点击“工作表”中的“拆分表格”选择“一个文档拆分成多个文档”，勾选需要拆分的文档。
点击下一步，选择“拆分方式”，也可以选择“范围”进行局部拆分，选择好输出目录后点击开始拆分即可。
3. 怎么把一个文件夹里的多个excel分成多个文件夹
具体操作如下：
1.第一步，打开电脑中的一个excel文档，需要拆分单元格中的内容。
2.第二步，选中需要拆分的B列。
3. 第三步，点击上方菜单栏中的数据选项。
4. 第四步，在数据工具栏中，点击分列选项。
5. 第五步，点击分列后，将会打开文本分列导向-
6. 第六步，在窗口中，选中分隔符号
7. 第七步，选择完成后，点击窗口下方的下一步按钮。
8. 第八步，来到文本分列导向，将分割符号设置为空格
9.第九步，分隔符号设置完成后，点击下一步按钮。
10. 第十步，来到弹出“文本分列导向，可以看到单元格中的内容已完成了拆分。
11. 第十一步，点击完成按钮即可。
4. 如何把一个excel分成多个excel文件
打开Excel，当我们需要对时间这一列单元格进行拆分。
首先，选中我们需要拆分的那一列“B”
选中后，点击菜单栏中的“数据”
找到“数据”后，点击“分列”。
点击后，弹出“文本分列导向-步骤之1”。
弹出后，我们在这选择“分割符号”。
选择后，点击“下一步”。
点击后，弹出“文本分列导向-步骤之2”，分割符号在这我们选择“空格”。
选择后，点击“下一步”。
点击后，弹出“文本分列导向-步骤之3”，发现弹出框下方数据预览已经按照我们的要求分割了。
最后，点击“完成”。我们的单元格就拆分完了。
5. 把excel文件分成多个文件夹怎么分开
1、新建一个文件夹，将需要合并的excel文档复制到该文档目录下。 2、新建一个EXCEL空白文档，鼠标移动到在sheet工作表上单击右键，选择“查看代码”选项，进入VBA控制台。 3、在菜单栏点击“插入”菜单，选择“模块”选项，进入模块编辑界面。 4、在编辑框中复制以下代码，注意符号，需是英文状态下。
5、代码输入后，点击菜单项中“运行”，选择“运行子过程”选项，或者按下F5快捷键，运行代码。 6、运行代码后，会弹出文档选择界面，找到新建文件夹的路径，选择你所需要合并的文档，选择文档后，点击“打开”，代码正在运行，运行时间视文档数目而定。 7、代码段运行结束后，就会出现已经合并完成的excel文档界面，新工作表的名称等于原工作簿的名称，大功告成！
- 相关评论
- 我要评论
-