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将一个工作表根据条件拆分成多个工作表图文教程,希望能对大家有所帮助!
华擎h61主板怎么样华擎h61主板性能评测大家都知道现在的人们都是非常注重个性化的以及DIY,因此传统的电脑已经满足不了人们的需要,人人都会为自己组装一台电脑。而大家都知道组装电脑最为重要的就是主板,因此人人都会选择一款好
盈通H61价格多少盈通H61价格详细介绍图文详解盈通h61是一款在各个方面均表现良好的产品,它出色的性能参数设置以及定位于399元的大众化定价无一不体现着盈通h61高性价比高口碑优势,可以说盈通h61是一款十分适合各个需求段的消
映泰h61mlc多少钱映泰h61mlc评测详解主板作为电脑部件中一个核心的存在,它的性能也是决定着一台电脑性能的核心部件,所以,一台好的主机必须有一块出色的主板,不然,即使你有强劲的处理器,有出色的显卡,有海量的内存,但是你没
畅玩7A怎么截屏畅玩7A怎么截屏?畅玩7A作为荣耀出品的千元性价比手机,受到了相当多用户的青睐。想必这里面有许多用户都是从原来169屏幕手机转到全面屏手机上来的,所以对新手机的操作还不熟悉。接下来
开博尔h1073固件怎么升级开博尔h1073固件升级操作流程开博尔H1073是一款高清智能播放机,性能强悍实用,而且拥有非常丰富的播放资源,是一款相当实用的播放机产品。接下来,小编就为大家带来开博尔H1073的固件升级教程以及其升级版本开博
开博尔c6怎么刷机开博尔c6刷机方法图文教程ldquo刷机rdquo这个词大家如今并不怎么陌生吧,随着科学技术的不断发展,电子产品得到了飞速的发展,由于产品自身的缺陷或者是产品自身超负荷的工作导致产品会出现这样那样的问题,于
奇趣果网络摄像机怎么样图文当今时代,被称为信息的时代。人们的生活因为网络而改变,就拿看护家中的老人,或者看管正在营业的店铺来说吧,以往常常离不开人,需要形影不离的看管。自从信息时代的到来,不少高新科技的发展
iPhone16GB内存太小怎样释放5招释放iPhone存储空间假定你购买了入门级型号iPhone6s,尽管价格不菲,但由于仅配置16GB机身内存,而且配置800万像素相机,更不要说还支持LivePhotos了,存储空间很快就会被占满。近日,t
u盘0字节无法格式化怎么修复u盘修复方法图文教程对于U盘大家都很熟悉了,在平时的学习生活中都会用到,U盘在使用过程中也是会出现一些小问题小故障的。虽说一个U盘的价格并不贵,大家都更换的起,但是自己会解决这些故障就更好了。而u盘0
分析镁光内存怎么样图解镁光作为知名内存与硬盘制造商,一直与金士顿占据着存储器市场的ldquo半壁江山rdquo。最近几年,随着国内品牌现代和台湾品牌威刚等崛起,镁光在全球市场份额降至5。84。但是,这家
惠普内存条怎么安装惠普内存条安装方法详解对于新时代的人们来说,笔记本电脑的存在已经是很常见的事情,大部分人都在使用笔记本电脑,笔记本电脑已经是很普遍的产品。但是大家对于笔记本电脑的内存条有所了解吗?现在大部分的笔记本是有
m4a是什么格式m4a格式文件介绍一些网友想知道m4a是什么格式?如果您也对这个问题感兴趣的话,就一起来看看今天的教程内容。在今天的教程,我们将给大家带来的是m4a格式文件的介绍,以及m4a格式文件用播放器的推荐。
f4v文件是什么格式f4v文件格式介绍详细介绍f4v是什么格式?随着高清时代的来临,作为一种更小更清晰,更利于在网络传播的格式,F4V已经逐渐取代了传统FLV,也已经被大多数主流播放器兼容播放,而不需要通过转换等复杂的方式,譬
mp4是什么格式mp4视频格式不能播放怎么办解决方法不管是什么文件都有自己的文件格式,比如音乐的文件的格式有mp3wma和wav等等格式,图片的文件有gif和jpg等等格式,视频文件有mp4和rmvb等格式,每一种格式决定每一个文件
mp4是什么文件格式?。mp4文件用什么打开?mp4这个词有两种解释,一种是我们很常用的视频格式,还有一种就是指mp4播放器。说到mp4播放器大家都很熟了,这里小编主要介绍下mp4视频格式mp4是一种兼容性非常好的视频格式,几
微信如何使用微博发图助手微信使用微博发图助手方法1首先在通讯录中选择ldquo微博发图助手rdquo这个联系人。2点击拍照发送到微博的按钮。3可以使用手机的相机直接拍照,也可以选择手机相册的图片。4拍照或
微信怎样才能使用收发腾讯微博中的私信此功能微信需要使用此功能,需具备以下条件1目前支持iPhone1。1或以上版本(1。0版的用户请升级)支持SymbianS60v31。3和S60v51。0版本,支持Android1。1版
微博注销怎么解除手机绑定微博注销怎么解除手机绑定?微博是一款非常好用的社交软件,用户们可以将账号注销后快速解绑手机号,这里给大家带来了详细的攻略,一起来IT百科了解一下吧!微博注销可以解除手机绑定,微博注
微博渔场怎么关闭怎么关闭微博渔场微博渔场是由微博推出的一个休闲养鱼游戏,用户可以通过手机微博客户端进入微博渔场专区,获取你的养鱼游戏体验。那微博渔场怎么关闭呢?一起来看看吧微博渔场怎么关闭?微博渔场不能关闭,但可
微博个性化广告推荐怎么关闭微博是我们常用的了解新鲜事物的平台,每天都很多热点新闻在这里看到,同时每个用户还可以用来分享生活工作上的事情,我们在使用的过程中会收到很多的个性化广告推荐,那怎么关闭呢,下面就一起
微博怎么改名字微博改名字方法教程微博是当下很多年轻人正在使用的社交平台,也是比较火爆的一个媒体平台,其中我们可以关注很多名人明星,带来各种消息分享,所以一个名字是非常重要的,所以很多用户想要知道微博怎么改名字,那
微博如何打开一键防护微博一键防护开启教程相信微博重度用户总是会由于一些言论收到陌生人的骚扰和攻击,今天微博终于为用户带来了一键防护的功能,可以保护我们不受陌生人的侵害,快来看看怎么开启吧。第一步,打开微博,点击右下角ld