怎么拆分一个excel工作表与工作簿簿中的多个工作表

来源：蜘蛛抓取(WebSpider) 时间：2016-04-03 06:13 标签： excel拆分多个工作簿
怎么拆分一个Excel工作簿中的多个工作表_百度知道问题是这样的：如何将一个Excel工作表的数据按一列的关键字拆分成多个工作表？举例说明：在平常工作中我们经常遇到这样的问题，这里分享一段VBA代码：Sub learningexcel()
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)) '把行连合起来
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 '清除工作中所有内容和格式
Rng.Copy Sht.Range(&A1&) '把标题写入第一行
t(i).Copy Sht.Range(&A2&) '写入其他内容
Sht.Cells.EntireColumn.AutoFit '自动调整全工作表单元格的列宽
Set Sht = Nothing '变量处于初始状态
Sheets(1).Activate '第1个工作表处于激活状态
Application.ScreenUpdating = True '打开屏幕更新End Sub说明：依据拆分的列中请勿带/*之类的通配符标识，否则会出错。延伸问题1：至于有了vba代码如何在excel中运行？解答：1、ALT+F11，进入VBE对话框2、右击-插入-模块3、输入代码(使用已有代码，直接复制粘贴进入即可），修改下4、按F5运行或者点击三角按钮运行代码5、查看效果延伸问题2:怎么拆分成工作簿，而不是工作表？解答：建议大家使用拆分为工作表，检查后再按工作表拆分为工作簿，拆分可以使用工具：易用宝下载易用宝的链接为：http://dl2.excelhome.net/EZTESetup1.1.0.zip 延伸问题3:怎么使用vba拆分成工作簿解答：请点击“阅读原文”阅读教程。
看过本文的人还看过
人气：35869 更新：
人气：33440 更新：
人气：29597 更新：
人气：24756 更新：
Excel的更多文章
大家在看 ^+^
推荐阅读 ^o^
文|每个人都有自己的隐藏情绪
?心情不好的时候，你会做什么？
【不可错过的七月书单】有趣的好玩可以角色扮演的经典绘本！
哪有男人天生会当爸
猜你喜欢 ^_^
24小时热门文章
微信扫一扫
分享到朋友圈请教如何把一个总工作表中数据以其中一列为条件进行拆分成多个表_vba吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：5,961贴子：
请教如何把一个总工作表中数据以其中一列为条件进行拆分成多个表收藏
请教如何把一个总工作表中数据以其中一列为条件进行拆分成多个表
FoxTable上市,兼具数据库和电子表格优势,轻松输入,轻松统计,快速搭建管理软件.
当然是编程，如果数据比较规整，用数据透视表就很简单
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或在EXCEL中实现一个窗口中显示多个工作表_文档下载
亿万文档 免费下载
当前位置： &
& 在EXCEL中实现一个窗口中显示多个工作表
在EXCEL中实现一个窗口中显示多个工作表
很有用的一个办法,对于要在两个表中来回进行复制粘贴时,用处特别大。
在EXCEL中实现一个窗口中显示多个工作表
在日常的的表格操作中，经常会有数据在各表格中取数、复制、查询等，为了方便比较各工作表之间的数据，可以在一个窗口中显示多个工作表。
（1）、打开EXCEL文档后，默认显示的是Sheet1。选中Sheet2，执行“窗口”菜单中的“新建窗口”命令。
（2）、执行命令后，会弹出一个新的工作簿，这个工作簿基于Sheet2建立。
（3）、执行这“窗口”菜单中的“重排窗口”命令，打开“重排窗口”对话框，在“排列方式”栏中选择窗口的排列方式，并选中“当前活动工作簿的窗口”复选框。
(4)、设置完成后，单击“确定”按钮，即可将两张工作表在一个窗口显
Word文档免费下载： （下载1-2页，共2页）
所示的“图 表向导”对话框时,直接单击“完成”按钮,在工作表中创建一个柱形...随窗口大小调整”,这样 当我们缩放 Excel 窗口或工作簿窗口时, 图表工作表中的...所示的“图 表向导”对话框时,直接单击“完成”按钮,在工作表中创建一个柱形...&随窗口大小调整”,这样当我们 缩放 Excel 窗口或工作簿窗口时,图表工作表中的...Excel中的多个sheet内容显示到多个屏幕上,如何让Excel文件中的sheet内容显示到...4、 所有显示器所显示的内容用户还可以在主控机上监视小窗口的播放进程及内容,...2 “若弹出用户账户控制窗口,请允许以 继续”3 定位到注册表键值:HKEY_CLASSES_ROOT/Excel.Sheet.12/shell/Open 右击, 选择 “导出” 在修改之前, 。 我们...excel工作簿窗口中不显示的元素是a)列标 b)行标 c)工作表标签_建筑/土木_...Excel 提供了创建复杂公式的功能以及大量的函数可实现对数据进行各种计算, 以下不...把几个Excel文档中的工作表(sheet)合并到同一工作...实现 Excel 表格单元格文本自动换行的两个技巧发布...在 Google 文档的编辑窗口中,同时按下“Ctrl+V”...1在 Excel97 中为了在屏幕上同时显示两个工作表的内容,可使用“窗口”菜单中...总体目标之一是, 2010 年, 到 力争使___以上的基层单位基 本实现会计电算化...然后, 用相同的办法,对 HKEY_CLASSES_ROOT\Excel.Sheet.8\shell\Open 进行备份和修改。 现在是不是能在单独的窗口中打开 Excel 文件呢? ...Excel 中如何彻底隐藏部分工作表在实际工作中,可能因需要建立多个 excel 工作表,当工作完成后,为了安全起见又需 要将其中部分工作表隐藏起来,不让其显示。 那么,...若要汇总和报告多个单独工作表的结果, 可以将每个单独工作表中的数据合并计算到... excel如何合并多个工作簿... 2页 免费 利用Excel实现多个工作表... 5页 ...

我要回帖

更多关于 excel拆分多个工作簿 的文章

 

随机推荐