excel如何将一个工作表根据条件拆分成多个工作表
本例介绍在excel中如何将一个工作表根据条件拆分成多个工作表。
注意:很多朋友反映sheets(i).delete这句代码出错,要注意下面第一个步骤,要拆分的数据工作表名称为“数据源”,而不是你新建工作簿时的sheet1这种。手动改成“数据源”即可。
操作步骤:
原始数据表如下(名称为:数据源),需要根据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
5、如下图所示,插入一个控件按钮,并指定宏到刚才插入的模块代码。
6、点击插入的按钮控件,根据提示选择标题行和要拆分的列字段,本例选择“姓名”字段拆分,当然也可以选择C列的“名称”进行拆分,看实际需求。
7、代码运行完毕后在工作簿后面会出现很多工作表,每个工作表都是单独一个人的数据。具体如下图所示:
8、注意:
1)原始数据表要从第一行开始有数据,并且不能有合并单元格。
2)打开工作簿时需要开启宏,否则将无法运行代码。
以上就是excel将一个工作表根据条件拆分成多个工作表图文教程,希望能对大家有所帮助!
家用采暖哪个品牌好德氏地冷凝壁挂炉介绍现在的家庭供暖方式越来越多元化,安装地暖和暖气片的用户越来越多,作为供暖核心的壁挂炉设备也成为消费者关注的中心。德氏地冷凝壁挂炉是来自法国的贵族采暖品牌,历史悠久,采用的冷凝技术先
壁挂炉哪个品牌好壁挂式采暖炉品牌介绍随着人们生活水平质量的提高,在寒冷的冬季人们对于住宅保暖的要求越来越高。壁挂式采暖炉的应用,使人们冬季的居室变得更加舒适。以下对几种常见的壁挂式采暖炉品牌的作进一步分析。拥有300
燃气采暖炉哪个牌子好如何选择好品牌燃气采暖炉现在市场上的采暖设备已越来越纷杂,如果我们事先不了解一些关于这方面知识的话,一定会被销售者所蒙骗,不仅花了钱,还买不到适合自己的产品。所以我们就需要自己先补充一下这方面的知识,这样
壁挂炉哪个牌子好壁挂炉推荐品牌壁挂炉全称是燃气壁挂式采暖炉,也可简称为燃气壁挂炉,是一种采用天然气为主要能源,为家庭提供温暖舒适的供暖及生活用水的家用设备,它可以根据需求随意设定舒适的温度,并能提供大流量的恒温
家庭供暖炉哪个品牌好家庭供暖炉三大知名品牌介绍详解随着科技的发展,生活水平的提高,人们对于冬季家庭供暖的要求也越来越高。市面上的家庭供暖炉也是品种繁多,令消费者眼花缭乱。那么,究竟哪些品牌的家庭供暖炉是值得信赖的呢?德地氏品牌是法
海歌燃气壁挂炉好不好壁挂炉工作原理介绍现在人们的生活水品都提高了,家家户户都安装了采暖设备,以防冬天的居室寒冷。随着人们的需求扩大,市场上也出现了多种多样的采暖设备。而倍受青睐的便是燃气壁挂炉,其既可以采暖又可以提供热
海歌燃气壁挂炉怎么样海歌燃气壁挂炉特点有哪些详解燃气壁挂炉对我们生活还是非常有帮助的,燃气壁挂炉可以跟我们的燃气互道连接,使用起来非常的方便。海歌燃气壁挂炉作为现在市场中一个不错的品牌,产品使用起来效果也是很不错的,同时现在海歌
海顿变频壁挂炉好不好海顿变频壁挂炉优势详细介绍人们现在对生活条件要求的增加,同时为了减少生活中人们使用热水的麻烦,所以很多人都会在家里面安装一个好的壁挂炉来使用。现在市场中的壁挂炉品牌还是非常多的,海顿变频壁挂炉就是其中一个不
海顿壁挂炉好不好海顿壁挂炉特点介绍说到壁挂炉,大家对于海顿壁挂炉应该不会陌生,好多人可能还用过海顿壁挂炉。那么海顿壁挂炉怎么样呢?需要购买壁挂炉的人,这个时候就想要知道海顿壁挂炉好不好。下面小编就来接说一下海顿壁挂
海顿壁挂炉好不好海顿壁挂炉优势介绍海顿壁挂炉作为一个专业生产壁挂炉的品牌,生产的产品在使用效果上还是非常不错的,同时海顿壁挂炉的产品使用起来节能,能够给我们带来更加舒适的使用体验,提升我们生活的质量。海顿壁挂炉在现
国产壁挂炉哪个好海顿壁挂炉怎么样现在,很多家庭在用壁挂炉,但国产壁挂炉有很多品牌,选择哪种才是最好的呢?很多消费者都对这个问题很苦恼。其实,海顿壁挂炉是一款非常值得推荐的壁挂炉,它的很多优点是其它国产壁挂炉无法比
海信液晶电视维修点在哪海信液晶电视维修点简介图文相信大家都听说过海信这个品牌,海信的旗下已经拥有了20个子品牌。许多人家里的电视都是海信这个品牌的,但是大家知道当海信电视机发生故障的时候,应该去哪里进行维修呢?这篇文章主要为大家
aoc液晶电视价格怎么样aoc液晶电视价格参数图文液晶电视行业的竞争是十分激烈的,同样的价格,有着国外厂商如三星夏普索尼LG等的产品,也有着国内厂商如长虹TCL创维海尔等的品牌。这么多的产品对于消费者来说是幸福的烦恼,对于厂商来说
90hz和144hz的区别90hz和144hz指手机屏幕画面显示的刷新速度,两者在屏幕刷新速度和画面帧率上存在区别。在刷新速度方面,90Hz手机屏幕每秒最高可刷新90次屏幕,144Hz手机屏幕则为每秒可刷新
索尼KDL60LX900怎么样作为索尼BRAVIA在2010年的3D旗舰型产品,LX900运用了包括绚丽黑曜面板3D炫薄LED背光源Motionflow200HzPRO四倍速驱动BRAVIAENGINE3图像处
新品电磁炉怎么选购新品电磁炉选购技巧介绍新品电磁炉大家有没有了解过如何去选购呢,电磁炉可以打火锅可以煲汤还可以炒菜。真的是一个电磁炉就可以把传统的燃气炉取代了。大家在选购电磁炉的时候会有哪些标准呢?有没有选择的时候掉进了
如何选购电磁炉电磁炉选购技巧介绍现在越来越多家庭使用电磁炉了。因为电磁炉的功能非常多,电磁炉可以打火锅可以煲汤还可以炒菜。真的是一个电磁炉就可以把传统的燃气炉取代了。大家在选购电磁炉的时候会有哪些标准呢?有没有选
电磁炉怎么选购电磁炉选购技巧介绍如何选电磁炉大家有没有了解过呢。因为电磁炉的功能非常多,电磁炉可以打火锅可以煲汤还可以炒菜。真的是一个电磁炉就可以把传统的燃气炉取代了。大家在选购电磁炉的时候会有哪些标准呢?有没有
冰箱结冰抽屉拉不出来怎么办冰箱冷冻室结冰的原因详解冰箱是每家每户都有的电器设备,它可以为家中的食物提供适合的储藏温度,避免食物变质或者腐烂。在后期冰箱的使用过程中,往往会遭遇故障,比如说冰箱结冰抽屉拉不出来,这该怎么办?今天小编就
如何给电冰箱加氟电冰箱加氟方法介绍详解很多朋友都遇到过电冰箱不制冷的一些情况,这种情况的出现多半是由于电冰箱内的氟利昂不够了,所以我们需要给电冰箱加氟才能解决这类问题。不过针对这一问题,很多朋友都会比较犯难,接下来小编
冰箱使用过程要注意什么冰箱使用过程注意事项详解冰箱给我们的生活带了许多便利,但是你的冰箱你真的会使用吗?这里整理了冰箱使用过程须注意事项,一起来看看。1食物摆放有讲究冰箱内存放的食品一定要生熟分开,防止交叉污染,食用前应检查食
冰箱使用注意什么冰箱使用常识介绍详解导语随着科学技术的发展,各种各样的冰箱,走进了人们的家庭,不仅有柜式的冰箱,还有开门的冰箱,不论是哪一种冰箱,都是为了储存食物而设计的,为我们的日常生活提供了很大的便捷,大家在日常