扫码下载APP
随时选购服务
需求发布后1小时内收到服务商响应每个需求平均有10个服务商参与95%以上的需求得到了圆满解决所有需求不向雇主收取任何佣金好的包装增加视觉销售力
求用VBA编程写一自动更新网上数据 excel 表格
求用VBA编程写一自动更新网上数据 excel 表格
雇主预算：￥62.00
已收到 6 个服务商的文案稿件
， 最终中标并完成需求
有相似问题想解决?专业顾问来帮助您
01发布需求, 托管赏金02服务商交稿03雇主选稿04中标公示05验收并付款06评价
完成手机认证,保证能随时联系到服务商
该需求下的优秀交稿
TA的交稿：
专注于office&&VBA开发，需求详谈
**比较现实 计较
TA的交稿：
TA的交稿：
就是利用自动更新功能发现这个任务的。扣扣624-382-399
TA的交稿：
扣扣联系：40-54865-61
TA的交稿：
官网貌似没有数据啊.
还有2个服务商交稿：
或 查看更多优秀交稿
交易成功的需求
兼职相关需求Excel和VBA代码：筛选并自动另存为新工作簿
我的图书馆
Excel和VBA代码：筛选并自动另存为新工作簿
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&我要文库申报
查看: 8955|回复: 10
如何利用vba代码进行数据的筛选及分表处理？
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次管理次数 次
网站名称: Excel技巧网 | Excel专家栖息谷 | 微软中文技术社区合作伙伴站内采编:
署名作者: KevinChengCW
版权声明: 版权归本站与作者共有 除本站官方外非作者本人转载须经许可并注明出处
适用版本: 03以前版本&
语言环境: 简体中文
学习方法: 掌握Excel技巧的关键是动手操作
下载 ≠ 知识
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
Q: 如何利用vba代码进行数据的筛选及分表处理？
A: 下面通过一个例子来演示如何利用vba操作自动筛选，将数据拆分放入新表中的方法，代码如下： Sub test()
Dim dic As Object, Arr, N%, Rng As Range, Ws As Worksheet
On Error Resume Next& & '设置容错语句，防止操作出错时卡住
Application.ScreenUpdating = False&&'因为要用到复制粘贴操作，关闭屏幕刷新提高速度
Set dic = CreateObject(&scripting.dictionary&)&&'创建字典项目，用来装载班级信息
With Sheet1& &&&'对源数据页进行操作
& & For Each Rng In .Range(.[a2], .Cells(.Rows.Count, 1).End(3))& & '循环源数据中准考证号列各单元格
& && &&&If Rng && && Then dic(Mid(Rng.Text, 3, 2)) = &&& &&&'提取出班级信息，装入字典
& & Next Rng
& & Arr = dic.keys& && &'将提取到的班级信息内容赋值给数组，便于取用
& & For N = LBound(Arr) To UBound(Arr)& && &'循环取出已取得的班级信息
& && &&&.[a2].CurrentRegion.AutoFilter field:=1, Criteria1:=&=??& & Arr(N) & &*&& & '对源数据进行筛选（筛选关键字为第3位开始的两个字符与当前班级信息相符的内容）
& && &&&Set Ws = Worksheets.Add& &&&'添加一个新的工作表
& && &&&Ws.Name = Val(Arr(N)) & &班&& & '更改为对应的班级名
& && &&&.Cells.SpecialCells(xlCellTypeVisible).Copy Ws.[a1]& &&&'将当前筛选到的结果复制到新表中
& && &&&.[a2].CurrentRegion.AutoFilter&&'取消筛选
& & Next N
End With
Set dic = Nothing& &'清空字典项目
Application.ScreenUpdating = True& &'打开屏幕刷新
End Sub复制代码附示例文件。
16:31 上传
点击文件名下载附件
下载积分: 消费券 -5 Ti币
58.04 KB, 下载次数: 340, 下载积分: 消费券 -5 Ti币
如何利用vba代码进行数据的筛选及分表处理？
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 50, 距离下一级还需 200 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
利用vba代码进行数据的筛选及分表处理
请问：筛选内容如何按包含某些字符进行筛选和分表处理？
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 95, 距离下一级还需 155 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
您好版主；我正在学习工作表的汇总和拆分，看了您的代码感觉好，可是您的附件无法下载啊、、、急**！我要下载附件学习。
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 12, 距离下一级还需 38 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
下来学习，谢谢
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
多谢楼主！
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 29, 距离下一级还需 21 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
多谢楼主！
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
谢谢，正需要，学习了。
学office，哪能不关注全网最大的Office类微博（新浪）
初级二, 积分 80, 距离下一级还需 170 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
不知道字典和数组是什么关系？
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
感谢分享，如果数据量比较大呢？
学office，哪能不关注全网最大的Office类微博（新浪）
新鲜人, 积分 1, 距离下一级还需 9 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
感谢楼主，自己想好好久没解决
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by}