怎样快速地把一个EXCEL表格里的多个工作表分开成单个的文件
1、打开表格，可以看到一个工作簿中有多个工作表。
2、右击工作表名称，点击查看代码(V)。
3、显示如下页面。
4、空白处，复制黏贴如下代码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path "\" sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
Next
MsgBox "文件已经被分拆完毕!"
End Sub
5、点击运行-运行子过程/用户窗体。
6、完成后，保存，显示如下，工作表已经拆分成单独的文件了。
怎样将EXCEL里的多个工作表快速拆分成单个EXCEL档案?
怎样将EXCEL里的多个工作表快速拆分成单个EXCEL档案? 1、手动：复制多个，一个个删
2、筛选：先筛选出需要的，复制到新表
3、VBA：编写程式，自动进行
怎样快速地把一个EXCEL表格里的多个工作表分开成单个的档案
右击工作表标签--移动或复制；
选择移动到“新工作簿”，勾选“建立副本”为复制，不勾选为移动；
以上方法，也要一个一个的移动或复制，没有一气呵成，全部分散拆开的方法，事实上也没有必要，能并到一个工作簿的尽量并到一个工作簿，便于查询和引用。
1、在需要单独储存的工作表上右键，弹出选单选择移动或复制工作表
2、在第一个里选择新工作薄然后确定
3、然后会出现新的excel档案，接着储存下来
excel中将一张表中资料拆分成多个工作表，按承揽人姓名不相同的拆分成单个工作表
Sub 如何将一个Excel工作表的资料拆分成多个工作表() Dim Arr, Rng As Range, Sht As Worksheet, Dic As Object Dim k, t, Str As String, i As Long, lc As Long Application.ScreenUpdating = False '关闭萤幕更新 Arr = Range("A1").CurrentRegion.Value lc = UBound(Arr, 2) '求取最后一列的列号 Set Rng = Rows(1) '标题行 Set Dic = CreateObject("Scripting.Dictionary") '建立字典 For i = 2 To UBound(Arr) Str = Arr(i, 3) '承揽人姓名，关键字 If Not Dic.Exists(Str) Then '如果字典没有关键字 Set Dic(Str) = Cells(i, 1).Resize(, lc) '把当前行装入到字典中 Else '否则(字典中存在关键字) Set Dic(Str) = Union(Dic(Str), Cells(i, 1).Resize(, lc)) '把行连合起来 End If Next k = Dic.Keys '字典关键字集合 t = Dic.Items '字典专案集合 On Error Resume Next With Sheets For i = 0 To Dic.Count 1 '回圈关键字的个数 Set Sht = .Item(k(i)) '给变数赋值(工作表名为关键字) If Sht Is Nothing Then '该工作表不存在则插入一个空工作表 .Add(After:=.Item(.Count)).Name = k(i) '新建的工作表将置于所有工作表之后，并命名为关键字 Set Sht = ActiveSheet '活动工作表给变数 Else '否则 Sht.Cells.Clear '清除工作中所有内容和格式 End If Rng.Copy Sht.Range("A1") '把标题写入第一行 t(i).Copy Sht.Range("A2") '写入其他内容 Sht.Cells.EntireColumn.AutoFit '自动调整全工作表单元格的列宽 Set Sht = Nothing '变数处于初始状态 Next End With Sheets(1).Activate '第1个工作表处于启用状态 Application.ScreenUpdating = True '开启萤幕更新End Sub 假如承揽人姓名在C列
怎样把excel一个工作表拆分到多个工作表
excel将一个工作表根据条件拆分成多个工作表_百度经验 :jingyan.baidu./article/d7130635071d2313fdf47585.
excel中的多个工作表怎么快速分离到单个工作簿
1、开启表格，在表格名称上右键，选择：移动或复制工作表，然后工作薄上选择新建，点选确定。
2、然后再在其它的工作表名称上，按上述进行操作即可。
一个excel工作簿中的多个工作表怎么拆分成多个工作簿
对着某个工作表的标签右键，“移动或复制”，再选“新建工作簿”，这样就到一个新工作簿里了。
EXCEL的多个工作表如何汇出单个EXCEL工作表
在你需要汇出的那个工作表上单击右键----选劝移动或复制工作表”-----“工作簿”选劝新工作簿”------确定 这样你就汇出了一个单一的，与原版一模一样的新档案啦！EXCEL的多个工作表如何汇出单个EXCEL工作表
如何将excel一个工作表拆分多个工作表
方法/步骤
开启需要编辑的Excel文件。，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。
右键任意一个工作表标签，在弹出的下拉列表中选择检视程式码。即弹出程式码视窗。
点选选单插入-模组 在弹出的模组对话方块中 输入以下程式码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
sht.Copy
ActiveWorkbook.SaveAs Filename:=MyBook.Path "\" sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL预设格式
ActiveWorkbook.Close
Next
MsgBox "档案已经被分拆完毕!"
End Sub
单击执行-执行子过程|窗体 几秒过后 弹出提示视窗“档案已被拆分完毕”
5
返回Excel工作簿档案所在路径 检视 原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照检视图中的修改日期
怎样将一个excel分成多个工作表
用VBA程式码，可以按规则，分拆工作表，只是要写具体程式码，你得给出具体规则。
怎么把EXCEL表格拆分成多个独立的文件？
点击【汇总拆分】，选择【拆分工作表】。将【表头行数】设置为1。关键词所在列设置为部门。勾选【保存为独立工作簿】，点击【确定】即可完成，详细步骤：
1、打开演示文件，要求将表格拆分为多个独立的文件。
2、点击下图选项。
3、点击【汇总拆分】，选择【拆分工作表】。
4、将【表头行数】设置为1。
5、关键词所在列设置为部门。
6、勾选【保存为独立工作簿】，点击【确定】即可完成。
7、完成效果如下。
“EXCEL”中如何将一个工作表按条件分割成多个工作表？
你这个可以用查询的方法。在同一个工作簿上建立多个以地区为名的表。假设原表名为“明细”，新建了一个名为“广州”表，要把原表中广州地区的都放进来。选中广州表，点击菜单\x0d\x0a数据—〉导入外部数据—〉新建数据库查询—〉，在弹出的窗口双击 “Excel Files ”，然后在新弹出的窗口定位到当前工作簿，双击工作簿名，在“查询向导”窗口点击展开“明细”表，双击字段名称，分别将序号、地区、姓名、日期、数量都选择到右边，下一步“筛选数据”窗口，左侧选“地区”，条件选择“等于”右侧输入“广州”，下一步还可以选择按多个字段排序。最后选将数据返回excel，选择广州表的$A$1，确定即可。\x0d\x0a同以上操作方法，分别建立各个地区表并创建查询。这样做有个好处，不会增加工作簿大小，因为实际上各个地区表只是一个查询，真正的数据在明细表。平时只需对明细表操作，需要时，在地区表有数据的任意位置，右键点击，选择刷新就可以马上得到最新的数据。你还可以录制一个宏，逐个对地区表刷新，并为宏指定一个快捷键。以后只要用快捷键就可以很方便刷新所有表。\x0d\x0a个人觉得你其实还可以用自动筛选来达到目的。