excel怎么将一张工作表excel批量拆分工作表成多个工作表

来源：蜘蛛抓取(WebSpider) 时间：2018-05-18 09:18 标签： excel快速拆分工作表
如何将一个EXCEL中的多个sheet表拆分为多个EXCEL表_百度知道
如何将一个EXCEL中的多个sheet表拆分为多个EXCEL表
我有更好的答案
操作步骤：原始数据表如下（名称为：数据源），需要根据B列人员姓名拆分成每个人一个工作表。点击【开发工具】-【Visual Basic】或者Alt+F11的快捷键进入VBE编辑界面。插入一个新的模块。粘贴下列代码在模块中：Sub CFGZB()Dim myRange As VariantDim myArrayDim titleRange As RangeDim title As StringDim columnNum As IntegermyRange = Application.InputBox(prompt:=&请选择标题行：&, Type:=8)myArray = WorksheetFunction.Transpose(myRange)Set titleRange = Application.InputBox(prompt:=&请选择拆分的表头，必须是第一行，且为一个单元格，如：“姓名”&, Type:=8)title = titleRange.ValuecolumnNum = titleRange.ColumnApplication.ScreenUpdating = FalseApplication.DisplayAlerts = FalseDim i&, Myr&, Arr, num&Dim d, kFor i = Sheets.Count To 1 Step -1If Sheets(i).Name && &数据源& ThenSheets(i).DeleteEnd IfNext iSet d = CreateObject(&Scripting.Dictionary&)Myr = Worksheets(&数据源&).UsedRange.Rows.CountArr = Worksheets(&数据源&).Range(Cells(2, columnNum), Cells(Myr, columnNum))For i = 1 To UBound(Arr)d(Arr(i, 1)) = &&Nextk = d.keysFor i = 0 To UBound(k)Set conn = CreateObject(&adodb.connection&)conn.Open &provider=microsoft.jet.oledb.4.0;extended properties=excel 8.0;datasource=& & ThisWorkbook.FullNameSql = &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 WithSheets(1).SelectSheets(1).Cells.SelectSelection.CopyWorksheets(Sheets.Count).ActivateActiveSheet.Cells.SelectSelection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _SkipBlanks:=False, Transpose:=FalseApplication.CutCopyMode = FalseNext iconn.CloseSet conn = NothingApplication.DisplayAlerts = TrueApplication.ScreenUpdating = TrueEnd Sub
采纳率：75%
方法/步骤打开需要编辑的Excel文档。，工作簿下方有很多工作表。现在需要将这些工作表单独拆分开成一个个工作簿。右键任意一个工作表标签，在弹出的下拉列表中选择查看代码。即弹出代码窗口。点击菜单插入-模块 在弹出的模块对话框中 输入以下代码：
Private Sub 分拆工作表()
Dim sht As Worksheet
Dim MyBook As Workbook
Set MyBook = ActiveWorkbook
For Each sht In MyBook.Sheets
ActiveWorkbook.SaveAs Filename:=MyBook.Path & &\& & sht.Name, FileFormat:=xlNormal
'将工作簿另存为EXCEL默认格式
ActiveWorkbook.Close
MsgBox &文件已经被分拆完毕!&
End Sub单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕” 5返回Excel工作簿文件所在路径 查看
原先工作簿中的工作表已经成为单独的工作簿了！不信 可以对照查看图中的修改日期
本回答被提问者采纳
为您推荐：
其他类似问题
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。新闻资讯NewsCenter
Excel技巧Excel>>>>
如何将excel汇总数据拆分成多个工作表？
　　有的小伙伴在工作过程中需要将excel汇总数据拆分成多个工作表，今天小编就为大家分享一个实用的方法，可以快速实现这一效果！
　　假设公司有150位员工，每位员工要有个人工资单，将复制粘贴的工序算上，相当于要动300次手指，还好新建工作表并切换工作表等等，这无形中要消耗大量时间及精力！其实，找到合适的方法的话，要完成这项工作是非常轻松的！
　　首先需要把每位员工的基本信息单独存放到一张工作表里面，工作表以姓名命名。
　　1. 插入数据透视表，按顺序设置字段
　　1.1 全选数据，在现有工作表插入【数据透视表】
　　1.2 设置数据透视表字段，筛选增加【姓名】，行数据依次增加【工号】、【身份证号码】、【手机号码】
　　2. 优化数据透视表
　　1.1 选择透视表任意数据，菜单【设计】、分类汇总选择【不显示分类汇总】
　　1.2 选择透视表任意数据，菜单【设计】、报表布局选择【以表格形式显示】
　　3. 按姓名生成工作表，完成汇总数据拆分
　　选择透视表任意数据，点击菜单【分析】、【数据透视表】、【选项】，使用【显示报表筛选页】功能，以姓名生成工作表，完成汇总数据拆分。
　　怎么样，是不是成功实现了呢？而且速度相当快！
　　联系方式：
　　1、如果您有任何疑问可以随时拨打我们24小时专线：；
　　2、仁和会计全国热线：400-；
　　3、您也可以直接点击咨询我们了解详情。
　　4、关注仁和会计官方微信，了解更多财税信息，微信号：whrhkj。
版权所有 (C)
武汉荣昌仁和会计咨询服务有限公司 电话：027-&&鄂ICP备号-1将EXCEL中多个sheet表拆分为多个单独的EXCEL表方法将EXCEL中多个sheet表拆分为多个单独的EXCEL表方法独家勘探前景百家号今天继续分享一点职场经常用到的小技能，如何将将EXCEL中多个sheet表（工作表）拆分为多个独立的EXCEL表（工作簿）的方法。话不多说，直接来干货。Office操作方法Office里操作方法：1.打开需要拆分的Excel文档（工作簿下方有很多工作表）；2.右键任意一个底部工作表标签，在弹出的下拉列表中选择查看代码，即弹出代码窗口；工作表右键“查看代码”3.点击菜单“插入”-“模块”在弹出的模块对话框中 输入以下代码；4.单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”。注：默认保存到原需要拆分的表格的想同文件夹里WPS里面的操作方法WPS里操作方法：wps操作起来稍微有点区别，由于其excel文件里不能直接查看源代码，需要提前安装一个wps vba宏插件，直接在网站上面百度下载安装即可！1.打开需要拆分的Excel文档（工作簿下方有很多工作表）；2.点击菜单栏的“开发工具”，出现如下式样（未安装wps vba宏插件之前框出部分为灰色）；表格菜单样式3.点击“VB编辑器”，选择上方窗口的“插入”，点击弹出“模块”，将代码内容复制进去；“插入”-“模块”，复制代码4.单击运行-运行子过程|窗体 几秒过后 弹出提示窗口“文件已被拆分完毕”。注：默认保存到原需要拆分的表格的想同文件夹里以下为复制代码内容Private Sub 分拆工作表()Dim sht As WorksheetDim MyBook As WorkbookSet MyBook = ActiveWorkbookFor Each sht In MyBook.Sheetssht.CopyActiveWorkbook.SaveAs Filename:=MyBook.Path & "" & sht.Name, FileFormat:=xlNormal '将工作簿另存为EXCEL默认格式ActiveWorkbook.CloseNextMsgBox "文件已经被分拆完毕!"End Sub操作有问题，欢迎私信或者评论，小编会一一作答！本文由百家号作者上传并发布，百家号仅提供信息发布平台。文章仅代表作者个人观点，不代表百度立场。未经作者许可，不得转载。独家勘探前景百家号最近更新：简介:分享最新的营销技巧作者最新文章相关文章Excel表格怎么将内容拆分成多个工作表
Excel表格怎么将内容拆分成多个工作表
学习啦【Excel表格】 宇能
　　excel表格中有很多内容，像根据不同的内容分成多个工作表，该怎么操作呢?对于刚从其它版本转型过来的朋友可能不太懂的，下面学习啦给大家介绍分成多个工作表的方法吧。
　　Excel表格内容分成多个工作表的方法
　　1、首先打开excel表格，看到有5个考生的成绩，我们想按照考生将其分为5个工作表，如下图所示：
　　2、找到方方格子按钮，如下图所示：
　　3、找到汇总拆分当中的拆分工作表，如下图所示：
　　4、在弹出的对话框中，标题行数我们选择1行，然后每3行拆分一个工作表，如下图所示：
　　5、然后单击确定按钮，即可弹出耗时对话框，如下图所示：
　　6、最后单击退出按钮，退出操作，如下图所示：
　　7、我们会看到生成了5个分表，如下图所示：
[Excel表格怎么将内容拆分成多个工作表]相关的文章
【Excel表格】图文推荐

我要回帖

更多关于 excel快速拆分工作表 的文章

 

随机推荐