excel怎么将一张工作表拆分成多个工作表
1、在excel的加载项选择方方格子,选择汇总拆分功能。
2、在下拉菜单中选择拆分工作簿。
3、设置要拆分出的工作表,以及需要储存的位置,然后点击确定。
4、运行完成后,会有提示,可以直接查看文件。
5、在指定的文件夹内就可以看到拆分好的表格即完成拆分。
如何将一张工作表拆分成多个工作表?
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
单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 如下图所示
返回Excel工作簿文件所在路径 查看 如下图所示 原先工作簿中的工作表已经成为单独的工作簿了!
操作步骤:
原始数据表如下(名称为:数据源),需要根据B列人员姓名拆分成每个人一个工作表。
点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。
如下图所示插入一个新的模块。
如下图,粘贴下列代码在模块中:
Sub CFGZB()
Dim myRange As Variant
Dim myArray
Dim titleRange As Range
Dim title As String
Dim columnNum As Integer
myRange = Application.InputBox(prompt:="请选择标题行:", Type:=8)
myArray = WorksheetFunction.Transpose(myRange)
Set titleRange = Application.InputBox(prompt:="请选择拆分的表头,必须是第一行,且为一个单元格,如:“姓名”", Type:=8)
title = titleRange.Value
columnNum = titleRange.Column
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim i&, Myr&, Arr, num&
Dim d, k
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> "数据源" Then
Sheets(i).Delete
End If
Next i
Set d = CreateObject("Scripting.Dictionary")
Myr = Worksheets("数据源").UsedRange.Rows.Count
Arr = Worksheets("数据源").Range(Cells(2, columnNum), Cells(Myr, columnNum))
For i = 1 To UBound(Arr)
d(Arr(i, 1)) = ""
Next
k = d.keys
For i = 0 To UBound(k)
Set conn = CreateObject("adodb.connection")
conn.Open "provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;data source=" & ThisWorkbook.FullName
Sql = "select * from [数据源$] where " & title & " = '" & k(i) & "'"
Worksheets.Add after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = k(i)
For num = 1 To UBound(myArray)
.Cells(1, num) = myArray(num, 1)
Next num
.Range("A2").CopyFromRecordset conn.Execute(Sql)
End With
Sheets(1).Select
Sheets(1).Cells.Select
Selection.Copy
Worksheets(Sheets.Count).Activate
ActiveSheet.Cells.Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next i
conn.Close
Set conn = Nothing
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
如下图所示,插入一个控件按钮,并指定宏到刚才插入的模块代码。
点击插入的按钮控件,根据提示选择标题行和要拆分的列字段,本例选择“姓名”字段拆分,当然也可以选择C列的“名称”进行拆分,看实际需求。
代码运行完毕后在工作簿后面会出现很多工作表,每个工作表都是单独一个人的数据。具体如下图所示:
注意:
1)原始数据表要从第一行开始有数据,并且不能有合并单元格;
2)打开工作簿时需要开启宏,否则将无法运行代码。
直接小蓝条-excel大师“拆分工作表”功能,一键拆分,2s完成。
如何将一张工作表拆分成多个工作表?
是说一张工作表上的某项内容分成很多么,看了其他人的回答,我这里有个懒人的方法,不知道是不是你说的拆分模式,当然懒人的方法就是用软件了,这个我用过可以放心是无毒的,百度小蓝条就可以搜索的到,这里给你演示下,看看是不是你要的拆分表格功能
以这张表为例选择你要以产品名拆分
小蓝条工具栏选择工作表拆分
选择指定拆分标准的标题点击确定
提示已完成可以看到下面已经有了
结果
可以看到都已经拆分出来了
就很实用
当然你也看到那个工具条有很多其他功能如果你是拆分一张工作簿下的不同工作表成为一个个新工作簿就点下面那个工作簿拆分这里就不一一列举了,我觉得这个小蓝条的功能挺全面的你可以试试,就一般excel表格求和函数啊,合并表格,审核校对同样栏目表格之类的都可以使用,甚至还可以语音输入,以及截图,识别图片里文字之类的小程序,你可以百度搜索它名字看看
2010年,NBA的阿泰斯特的总冠军戒指卖了多少钱。
北京时间2010年12月27日,《洛杉矶时报》报道,罗恩-阿泰斯特已经将自己的 NBA总冠军戒指 拍卖给了一位来自加州的球迷,成交价50万美元左右。而拍卖所得的钱,阿泰斯特将全部捐给慈善机构,用于爱心事业。阿泰斯特通过 这场拍卖活动 总计得到了65万美金左右的善款,而这笔钱也将被悉数捐给慈善机构...
如何在蓝湖上用Photoshop做设计图?
启用快速上传”● 如果你有上传 SVG 的需求, 可以开启“导出 SVG”, 如果不需要, 可以关闭它来提升上传速度。大家都在看:C4D样条布尔之C4D中布尔运算怎么用s切片工具切完以后怎么保存图片cdr字体加粗如何操作xcel产品激活失败是什么意思么处理ad复制粘贴到另一个图里面不显示怎么办?
为什么Excel文件部分字体在电脑上显示为黑色,传到手机上为什么显示为...
尤其是文本的颜色不同,那么很有可能是电脑上的设置和手机上的设置不同所导致,用户可以查看一下在电脑上以及在手机上的默认颜色设置,这样就可以判断颜色不同的原因所在,然后将手机上或者电脑上的默认颜色进行修改,使得两者变成统一的颜色,就可以保证Excel文件在不同的终端上显示是完全一样的。
面试视频自我介绍
最后,怀着自信我向您推荐自己,我十分渴望加入贵公司,希望能够合作,我不一定是贵公司所需要的一张王牌,但我相信自己一定会成为贵公司的一张好牌!谢谢! 面试视频自我介绍 篇9 尊敬的考官: 您好! 我是来自xxxx大学的应届生,我叫xxxx,今年xxxx岁是xxxxxx市人。我通过招聘 网 站了解贵公司正在招募文员岗位,正式我的...
Microsoft Excel 工作表快捷键列表
五、xcel中输入并计算公式的快捷键 键入公式 =(等号) 关闭单元格的编辑状态后,将插入点移动到编辑栏内 F2 在编辑栏内,向左删除一个字符 Backspace 在单元格或编辑栏中完成单元格输入 Enter 将公式作为数组公式输入 Ctrl+Shift+Enter 取消单元格或编辑栏中的输入 Esc 在公式中,显示“插入函数”对话框 Shift+F3...
Microsoft Excel 工作表快捷键列表
五、xcel中输入并计算公式的快捷键 键入公式 =(等号) 关闭单元格的编辑状态后,将插入点移动到编辑栏内 F2 在编辑栏内,向左删除一个字符 Backspace 在单元格或编辑栏中完成单元格输入 Enter 将公式作为数组公式输入 Ctrl+Shift+Enter 取消单元格或编辑栏中的输入 Esc 在公式中,显示“插入函数”对话框...
张曹圣平: 打开要分列的excel文档,在菜单栏找到数据,点开.先选定要分列的列,点列的上部就全选了,还要注意后面留下一空列.点击分列,调出分列窗口,根据分隔符来分列,此例分隔符就是空格.勾选其他,在其他后面输入一个空格.这个空格是前面列中姓名与证件号的分隔符.下方还有数据预览,可以看到有一条线隔开了.点下一步,然后点完成.就行了.如果后面不空出一列,就会被分列后的数据覆盖,当然会有提示的.当然可以用固定宽度来分列.在需要的地方点一下就可以了.结果如下:注意 第三步可设置 列数据格式, 根据需要选择当列 格式 为文本还是常规/或日期格式
潍坊市18431477994: 怎么拆分一个excel工作簿中的多个工作表 - ?
张曹圣平: Excel工作簿中含有多个工作表,可以通过Excel本身的功能来把工作表分开,具体方法如下: 所需工具: Microsoft Office Excel 2007电脑 详细步骤: 1、首先打开Excel工作簿,可以看到如下图所示的三个工作表. 2、选择“案例1”工作表,右击鼠标,选择“移动或者复制工作表”如图所示: 3、选择之后,出来如下图的界面,勾选“建立副本”,在工作簿需要选择新工作簿如图: 4、点击确定,即可出来新的工作表.如图所示: 5、然后在把这个新建的工作簿另存在电脑,即可完成.
潍坊市18431477994: excel怎么把表格分成多个工作表 - ?
张曹圣平: 最简单的就是复制、粘贴,可以筛选或者排序后按类复制; 点鼠标就可以完成的自动分类的方法,是使用数据透视表、报表筛选、自动建立表; 另外,可以用VBA写代码完成自己需要的方法拆分.
潍坊市18431477994: 如何将一个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) 下拉单元格,即可.
潍坊市18431477994: excel如何将一个工作表根据条件拆分成多个工作表 - ?
张曹圣平: 操作步骤:原始数据表如下(名称为:数据源),需要根据B列人员姓名拆分成每个人一个工作表. 点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面. 如下图所示插入一个新的模块. 如下图,粘贴下列代码在模块...
潍坊市18431477994: 如何把在一个excel表格里的表分成多个文件 - ?
张曹圣平: Alt+F11 视图--代码窗口,把如下复制进去按F5运行即可最好把这个Excel 放到一个文件夹内操作, 因为默认生成到当前文件夹1 2 3 4 5 6 7 8 9 10 11Subfencun() Application.ScreenUpdating = False Foreach sht in thisworkbook.sheetssht....
潍坊市18431477994: “EXCEL”中如何将一个工作表按条件分割成多个工作表? - ?
张曹圣平: 你这个可以用查询的方法.在同一个工作簿上建立多个以地区为名的表.假设原表名为“明细”,新建了一个名为“广州”表,要把原表中广州地区的都放进来.选中广州表,点击菜单 数据—〉导入外部数据—〉新建数据库查询—〉,在弹出的...
潍坊市18431477994: 如何把excel表格分成多个工作表 - ?
张曹圣平: 原始数据表如下(名称为:数据源),需要根据B列人员姓名拆分成每个人一个工作表.点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面.如下图所示插入一个新的模块.http://jingyan.baidu.com/article/d7130635071d2313fdf47585.html
潍坊市18431477994: EXCEL如何将1个工作表按条件分割成多个工作表 比如按照不同部门分开 2474292504@qq.com - ?
张曹圣平: 可以考虑采用“导入外部数据”,点菜单:数据→导入外部数据→新建数据库查询 选择数据源:Excel Files* → 确定 选择工作簿:选驱动器→选目录 → 选文件(你想分割的工作表所在的工作簿)→ 确定 添加表:选你要分割的工作表 → 添加 → 关闭 点菜单:记录 → 添加列 → 添加(也可以有选择的添加) 点菜单:条件→添加条件→选字段(如部门)→选运算符(如等于) →指定值(如A部门)→添加→关闭 点菜单:文件 → 将数据返回MS excel → 确定 完成一个部门的分割,重复以上步骤,分割出其他部门数据
潍坊市18431477994: Excel 求助 把一张表拆分成多个SHEET - ?
张曹圣平: excel将一个工作表根据条件拆分成多个工作表_百度经验 http://jingyan.baidu.com/article/d7130635071d2313fdf47585.html