excel中将一张表中数据拆分成多个工作表，按部门不相同的拆分成单个工作表，且单个工作表名及为部门

excel中将一张表中数据拆分成多个工作表，按承揽人姓名不相同的拆分成单个工作表~

如何将一张工作表拆分成多个工作表？

如何将一张工作表拆分成多个工作表？

方法和详细的操作步骤如下：

1、第一步，在excel加载项中，选择“方方格子”选项，然后选择“汇总拆分”选项，见下图，转到下面的步骤。

2、第二步，执行完上面的操作之后，在下拉菜单中，选择“拆分工作簿”选项，见下图，转到下面的步骤。

3、第三步，执行完上面的操作之后，设置要拆分的工作表以及需要存储的位置，然后单击“确定”，见下图，转到下面的步骤。

4、第四步，执行完上面的操作之后，将提示“立即查看文件”，见下图，转到下面的步骤。

5、第五步，执行完上面的操作之后，在指定的文件夹中，可以看到拆分的表格并完成拆分，见下图。这样，就解决了这个问题了。

在工作表名称上点右键选查看代码,粘贴以下代码到弹出窗口.关闭弹出窗口 ALT+F8选中该宏执行

Sub 拆分工作表()
Application.ScreenUpdating = False
Dim rng As Range, arr()
endrow = Range("A65536").End(xlUp).Row
ReDim arr(2, 0)
arr(0, 0) = Range("A2").Value
arr(1, 0) = Range("A2").Row
arr(2, 0) = Range("A2").Row
L = 0
For i = 2 To endrow
temp = Range("A" & i).Value
For ii = i + 1 To endrow
With Range("A" & ii)
If .Value = temp Then
arr(2, L) = .Row
Else
L = L + 1
ReDim Preserve arr(2, L)
arr(0, L) = .Value
arr(1, L) = .Row
arr(2, L) = .Row
i = .Row - 1
Exit For
End If
End With
Next
Next
For i = 0 To L
Workbooks.Add
ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & arr(0, i)
ActiveSheet.Name = arr(0, i)
ActiveSheet.Range("A:C").ColumnWidth = 10
ActiveSheet.Range("A:C").HorizontalAlignment = xlCenter
ActiveSheet.Range("A:C").VerticalAlignment = xlCenter
ActiveSheet.Range("C:C").NumberFormatLocal = "m-d"
ActiveSheet.Range("D:D").ColumnWidth = 30
ThisWorkbook.Activate
Workbooks(arr(0, i) & ".xls").Sheets(1).Rows(1).Value = Sheet1.Rows(1).Value
For bc = arr(1, i) To arr(2, i)
Workbooks(arr(0, i) & ".xls").Sheets(1).Rows(bc - arr(1, i) + 2).Value = Sheet1.Rows(bc).Value
Next
Workbooks(arr(0, i) & ".xls").Close SaveChanges:=True
Next
Application.ScreenUpdating = True
MsgBox "拆分工作表完成!" & vbCrLf & "在当前工作薄路径下创建工作薄:" & L + 1 & "个."
End Sub

如何将一张工作表拆分成多个工作表？

可以把文件发过来,我帮你拆分,几分钟搞定463927719

---

景谷傣族彝族自治县13633462872： 如何把Excel一张表格的内容分成多个表格 - ？
雀独清肝： 可选用以下方法: 一、使用“分列”功能解决.选中需要拆分的单元格,点菜单“数据”——“分列”—,根据实际情况选择“分隔符号”或“固定宽度”分隔——“下一步”,在“其他”中输入分隔符号或点标尺切割数据,最后在“目标区域...

景谷傣族彝族自治县13633462872： 如何将一个excel工作表的数据拆分成多个工作表 - ？
雀独清肝： 方法一:Excel2007或2010适用 选取D列,点击菜单“数据”--》“分列” 选取“分隔符号”-》“下一步”,点击“空格”,然后“下一步”,点击“完成”即可.方法二:公式法 设时间1为E列,时间2为F列,时间3为G列,时间4为H列.E2输入公式:=LEFT(D2,5) F2输入公式:=RIGHT(LEFT(D2,11),5) G2输入公式:=LEFT(RIGHT(D2,11),5) H2输入公式:=RIGHT(D2,5) 下拉单元格,即可.

景谷傣族彝族自治县13633462872： excel表中怎么把一个单元格内容分到多个单元格 - ？
雀独清肝： 1打开excel表,找到需要拆分的单元格,选中后,在表格上面找到“数据”选项,点开,其下拉选项中找到“分列”按扭.表格内有三个实线单元格,就是为了显示分拆后的内容. 2 点击“分列”按扭后,会弹出一个文件框,在这个文件框内...

景谷傣族彝族自治县13633462872： 如何把一个excel表格拆分成多个单独表格 - ？
雀独清肝： 打开要分列的excel文档,在菜单栏找到数据,点开.先选定要分列的列,点列的上部就全选了,还要注意后面留下一空列.点击分列,调出分列窗口,根据分隔符来分列,此例分隔符就是空格.勾选其他,在其他后面输入一个空格.这个空格是前面列中姓名与证件号的分隔符.下方还有数据预览,可以看到有一条线隔开了.点下一步,然后点完成.就行了.如果后面不空出一列,就会被分列后的数据覆盖,当然会有提示的.当然可以用固定宽度来分列.在需要的地方点一下就可以了.结果如下:注意 第三步可设置 列数据格式, 根据需要选择当列 格式 为文本还是常规/或日期格式

景谷傣族彝族自治县13633462872： Excel表格内容怎么分成多个工作表 - ？
雀独清肝： 方法/步骤打开需要编辑的Excel文档.,工作簿下方有很多工作表.现在需要将这些工作表单独拆分开成一个个工作簿.右键任意一个工作表标签,在弹出的下拉列表中选择查看代码.即弹出代码窗口.点击菜单插入-模块 在弹出的模块对话...

景谷傣族彝族自治县13633462872： 如何将excel一个表格拆成多个 - ？
雀独清肝： 最简单的方法,就是复制需要的部分到新表.当然,如果数据拆分的情形成千上万,半天复制不完,那么可以考虑使用VBA编写程序模拟人工复制,达到相同的效果.如果需要帮你编写VBA程序,请上传文件,我把程序写到你的文件里面回你.

景谷傣族彝族自治县13633462872： Excel怎样将一列的数据分割成多列 - ？
雀独清肝： 原始数据 选中列,点击分列

景谷傣族彝族自治县13633462872： 如何将一个excel表格中的数据拆分成多个sheet - ？
雀独清肝： 请参考:excel将一个工作表根据条件拆分成多个工作表_百度经验 http://jingyan.baidu.com/article/d7130635071d2313fdf47585.html

景谷傣族彝族自治县13633462872： excel里的一个单元格怎样拆分成几个单元格 - ？
雀独清肝： 1.打开excel文件,将想要分开的内容用一个空格隔开,全选内容; 2.点击”数据“,选择”分列”,将单列分本拆分为多列; 3.在文本分列向导-第1步中,选择“分隔符号”,点击“下一步”; 4.在文本分列向导第2步中,把“空格”打勾(如果使用其他符号隔开,选择相应的即可),点击“下一步”; 5.在文本分列向导第3步中,选择“常规”,点击“完成”; 6.实现分列,效果如下图.

景谷傣族彝族自治县13633462872： excel中,我要将一张表中数据拆分成多个工作表,按编号相同的拆分成单个工作表,且单个工作表名及为编号名 - ？
雀独清肝： 比如你的编号在A列 ALT+F11,输入以下代码 Sub 分工作表保存() '分页 Dim n%, i%, j%, sn$ Application.ScreenUpdating = False On Error Resume Next sn = ActiveSheet.Name '当前工作表名 With Sheets(sn)n = .Range(＂A65536＂).End(3)....