四川龙网

『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿

『四川龙网摘要_ 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿』在各行各业的日常工作中,经常须要把一份工作表的内容归类拆分到N个工作簿,最基本的办法就是经由过程筛 ⑴判蚬槔嗍荩缓蟾粗圃荩傩陆üぷ鞑荆程荩缢估慈......如不雅数量较小,如许操作没问题,如不雅分类的数据异常多,要新建几百,几...


 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

在各行各业的日常工作中,经常需要把一份工作表的内容归类拆分到N个工作簿,最基础的办法就是通过筛选、排序归类数据,然后复制原数据,再新建工作簿,粘贴数据,如此往复......如果数量较小,这样操作没问题,如果分类的数据非常多,要新建几百,几千个工作簿,那就是一个非常大的工作量了。
此时就需要使用批量处理的方法,可以用PQ,也可以用VBA,本文就分享用VBA来处理批量拆分工作簿,用VBA的好处在于,只要代码写好,不需要懂代码,任何人都可以直接拿来用,其他办法就需要对软件操作有一些要求了。
以下图这个表格为例:
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

工作场景:这是一位学员给我提出的问题,她说这个表格每个星期要做一次,需要把这个表格按A列的店铺名称归类到一起然后拆分到工作簿,A列中有几个店就要拆分成几个工作簿,并且还要保留原来的批注图片,拆分出来的工作簿名称以店铺名称命名。
这个问题的关键点:
1、A列的店铺是无序的
2、保留表格中的批注图片
3、工作簿命名为对应的店铺名称
OK,问题描述清楚了,那就开始讲解VBA操作步骤。
VBA操作步骤1、首先表格需要打开宏设置,点击文件——excel选项——信任中心——信任中心设置——宏设置——启用所有宏,然后点击确定。
这个步骤,每台电脑只要设置过一次,以后都默认开启,如果你以前用过VBA那这个步骤可以略过。
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

2、鼠标放在原数据所在的工作表,点击鼠标右键,查看代码,进入VBA编辑界面
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

将代码复制到上图所示的区域中。
复制下面的代码↓↓↓↓↓↓(黑色加粗部分)
Sub 按A列区分内容并拆分到工作薄()
Dim i%
arr = Sheets(1).[a1].CurrentRegion
【 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿】Set d = CreateObject("scripting.dictionary")
For i = 2 To UBound(arr)
If d.exists(arr(i, 1)) Then
Set d(arr(i, 1)) = Union(d(arr(i, 1)), Rows(i))
Else
Set d(arr(i, 1)) = Union(Rows(1), Rows(i))
End If
Next i
For ss = 0 To d.Count - 1
Workbooks.Add
With ActiveWorkbook
d.items()(ss).Copy .Sheets(1).[a1]
.SaveAs ThisWorkbook.Path & "/" & d.keys()(ss)
.Close
End With
Next ss
MsgBox "快学Excel提示您,工作薄拆分完毕!"
End Sub
3、点击运行(点击绿色三角形),代码运行时,屏幕会闪烁,拆分出来的新工作簿会放在原工作簿的路径里。如果原工作簿放在一个文件夹,那新拆分出来的工作簿也会在这个文件夹里,如果原工作簿放在桌面,那拆分出来的工作簿就会放在桌面上。当拆分完毕时,会弹出提示框,表明代码运行完毕。
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

拆分完毕后,新工作薄以店铺名称命名
拆分完后随意打开一张看一下,店铺名称已经归类拆分好了,并且批注图片保留下来了。
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

如何根据自己的需求修改代码?上面的案例所用的代码默认表格的格式为:表头一行,拆分依据为A列
1、如果我的表头是一行,但是我以B列为依据拆分应该如何对代码进行调整呢?
把代码的这4处(下图中红框标记处)修改为2
如果以C列为拆分依据就修改成3,以此类推。
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

2、如果我的表头是多行并且表头有合并单元格怎么改代码?
如下图所示,表头是2行,并且有合并单元格,以B列为拆分依据
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

表头有合并单元对代码运行没有任何影响,无需针对这个修改代码。
表头如果是两行需要对代码,上面红框处把2修改成3,下面红框处rows(1)修改成rows("1:2")
如果表头是3行,上面红框就修改成4,下面红框处就修改成rows("1:3") 以此类推。
 『一键』excel批量拆分工作簿,用VBA一键拆分,把数据分解到N个工作簿
文章图片

好了关于如何用VBA拆分工作簿就分享到这里,如果这篇文章能帮助到你请点赞,收藏,你的点赞是我继续创作的动力。

声明:本文是由网友投稿,文中所阐述的观点不代表四川龙网的立场。

生活

『快乐养生』风湿性关节炎患者,平时少吃这些食物

阅读(37)

脂肪在体内氧化过程中,能产生酮体,而过多的酮体,对关节有较强的刺激作用,风湿患者的饮食不宜多高脂肪类食物,如牛奶、肥肉等,炒菜、烧汤也宜少放油。2、忌海产类风湿患者的饮食不宜多无鳞鱼及海产品,如鲇鱼、泥鳅、黄鳝、海带、海参、海鱼、海虾等,因...

生活

营养健康学:几个实用的胃溃疡食疗偏方

阅读(15)

一、胃溃疡食疗方1、白胡椒煲猪肚汤白胡椒略打碎15g,猪肚1只(去杂,洗净),放水适量,慢火煲,调味后服食。适用于虚寒型溃疡病。2、莲子粥莲子30g,大米100g。按常法煮粥,每天食用,连续服1月。适用于脾胃虚弱型溃疡病。...

生活

健康零距离■忧郁人格:我爱你但与你无关,今日你爱搭不理,明日让你不得安宁

阅读(46)

内心害怕被抛弃,害怕自己一个人生存。没有归属感,没有安全感。有很强的同情心,同理心,愿意为其他人设身处地着想,甚至愿意舍弃自己的合法权益与立场。总是容易被人摆布,被人利用,总是愿意委曲求全。忍耐性超强,总是看起来一副绵羊的模样,愿意成为别人...

生活

「健康学堂」中国人不适合喝牛奶?

阅读(14)

文章图片 【「健康学堂」中国人不适合喝牛奶?】 “乳糖不耐受”并不绝对 , 能不能喝 , 得试 。 文章图片 文章图片 文章图片 文章图片 文章图片 文章图片 文章图片...

生活

犀浦和龙泉房价哪边升值空间更大一些 求大神?

阅读(19)

城市构造由本来的“两山夹一城”改变为“一山连两翼”。以龙泉山为界,西边为中间城区,东边则塑造全新的东部家当新城。 龙泉驿区正好位于”一山连两翼“的中间区域,并且当前成都第二机场正在扶植傍边,地位正好在简阳地区,大年夜地舆地位来看,龙泉驿到中...

科技

『经济』柴闪闪代表:实体经济要领军者,也要满天星

阅读(19)

“实际临盆中,企颐魅真正须要的高技能人冲垮本都是大年夜临盆一线的基本性技能人才一一步步成长起来的。实体经济的成长,既须方法军的立异型高端人才,更须要满天星一样的基本性技能后备人才,他们是相辅相成的。”柴闪闪说,基本性技能人才今朝际遇不佳,须...

科技

『东风』乘“新基建”东风 自动驾驶进入快车道

阅读(16)

那么,在“新基建”成长火热的背景下,主动驾驶可以在这波“新基建”海潮中获得哪些机会?  图片来源:cbronline.com  主动驾驶多项核心技巧获“新基建”提名  无论是主动驾驶照样车联网功能的应用,都须要大年夜量的基本举措措施和技巧支撑,得益于“...

科技

【服务器】魔兽怀旧服惊现50万金卖单,是谁在疯狂打压金币价格

阅读(11)

经由笔者的分析与查询拜访,发明这一轮币价暴跌很有可能是工作室结合体在幕后操控。在某有名玩家RMT虚拟交易平台,有些办事器出现了超低价甩货单,然则这些订单买了之后是无法交易的。拿狮心办事器的┞封个50万金币挂单来看,一看就知道是假的,因为单个账号...

科技

『产品』VX3000系列闪测仪在模切行业的应用

阅读(41)

跟着中国电子家当飞速成长,各大年夜品牌对证量请求越来越高,模切件作为电子产品的配件,质量管控也越来越严格,须要对产品尺寸进行全检,这导致测量义务极其沉重,传统测量对象已经无法胜任,市场急切须要一种新型高效的测量解决筹划。 跟着中图仪器VX300...

科技

#刻制实体印#看图 上海首推电子执照电子印章同步发放

阅读(19)

新平易近晚报讯(记者 金旻矣)经由3个月的开辟预备,搅糈上海创办企业瓯,电子营业执照和电子印章可同步领取。今天上午,3家新设企业的罪人在手机上获取并下载了电子执照和电子印章,标记住上海在全国范围内率先推出二者同步领取的改革举措。图说:新设企...

科技

创新@王海:跨界合作 创造协同创新的产业生态

阅读(15)

5月21日起,人平易近网金台圆桌两会特别版邀请工业互联网相干范畴全国人大年夜代表、全国政协委员、威望专家和企业家合营深刻商量,将持续推出三期圆桌访谈。 今朝,我国工业互联网家当生态扶植状况若何?本年两会,环绕工业互联网,行业范畴内都在存眷哪些...

科技

『厂家』35KV变电站电气试验设备厂家

阅读(31)

35KV变电站电气实验设备厂家  跟着社会的赓续成长进步,市情上出现了很多的35KV变电站电气实验设备厂家。那么,我们在选择这些厂家的时刻,应当留意什么呢?接下来的时光,我就给大年夜家解答一下这个问题,欲望大年夜家细心卖力地听我解答。  实际上,我...

科技

『汽车技术』分析师称:苹果向Apple Car项目投入大量研发资金

阅读(22)

分析师称:苹不雅向Apple Car项目投入大年夜量研发资金AppleInsider在看到的一份关于特斯拉的研究申报中看到,分析师Adam Jonas邀请Huberty对苹不雅和这家位于帕洛阿尔托的汽车制造商进行了比较。固然大年夜多半研究都集中在特斯拉在技巧和汽车行业的地位,但...