ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

EH搜索     
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
Excel不给力? 何不试试FoxTable! Excel 2016函数公式学习大典 Office知识技巧免费学 打造核心竞争力的职场宝典
300集Office 2010微视频教程 Tableau-数据可视化工具 精品推荐-800套精选PPT模板,点击获取 ExcelHome出品 - VBA代码宝免费下载
你的Excel 2010实战技巧学习锦囊 欲罢不能, 过目难忘的 Office 新界面 Excel VBA经典代码实践指南
查看: 489|回复: 11

[求助] VBA如何智能筛选所要数据及其上下行??

[复制链接]

TA的精华主题

TA的得分主题

发表于 2019-8-21 13:08 | 显示全部楼层 |阅读模式
本帖最后由 wwgr007 于 2019-8-21 15:53 编辑

有一个表格,我想筛选出想要的数据,但是我必须要根据筛选出数据的上下行来判断这条数据是否有用,所以有没有办法既筛选数据又包含其上下行呢??附件里的半成品是我筛选的目标,但是我还要半成品的上下行一并显示.,,这个涉及到了智能筛选数据,excel自带筛选似乎解决不了。
图片标亮的只是一个例子,我需要的就是黄颜色那样的包含半成品和它的上下行那种
$N35@T%XEKDY}]3D6~}IA03.png

工作簿1.zip

10.97 KB, 下载次数: 9

TA的精华主题

TA的得分主题

发表于 2019-8-21 13:17 | 显示全部楼层
希望楼主可以结合附件内容,举例说明下具体需求吧
目前的内容描述及附件,看不大懂,楼主是要解决什么问题的

TA的精华主题

TA的得分主题

发表于 2019-8-21 13:25 | 显示全部楼层
筛选哪一列?关键字是什么?可以通过循环去查找关键字,在根据关键字的位置取得上下一行的数据,提取到另一个位置

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-21 13:31 | 显示全部楼层
liulang0808 发表于 2019-8-21 13:17
希望楼主可以结合附件内容,举例说明下具体需求吧
目前的内容描述及附件,看不大懂,楼主是要解决什么问题 ...

筛选      类型  那一列,关键字   半成品,,我需要半成品这行和它上下行这三行都要筛选出来,,   

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-21 14:10 | 显示全部楼层
liulang0808 发表于 2019-8-21 13:17
希望楼主可以结合附件内容,举例说明下具体需求吧
目前的内容描述及附件,看不大懂,楼主是要解决什么问题 ...

老师您能抽空看看吗,动用excel筛选只能得到类型中半成品这几行数据,,可我的需求是还要有半成品上下行的数据,图片上标亮的就是我想要的结果,,就是包含半成品和它的上下行

TA的精华主题

TA的得分主题

发表于 2019-8-21 15:34 来自手机 | 显示全部楼层
wwgr007 发表于 2019-8-21 14:10
老师您能抽空看看吗,动用excel筛选只能得到类型中半成品这几行数据,,可我的需求是还要有半成品上下行 ...

返回 半成品 所在的 行号row,然后,row+1,row-1
得到所有的行号,就可以返回所在的行

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-21 16:27 | 显示全部楼层
zpy2 发表于 2019-8-21 15:34
返回 半成品 所在的 行号row,然后,row+1,row-1
得到所有的行号,就可以返回所在的行

很抱歉,我的知识学的还不到家,能用代码表示吗

TA的精华主题

TA的得分主题

发表于 2019-8-21 16:40 | 显示全部楼层
如果用VBA没有必要用筛选的形式体现,可以将符合条件的表在新的sheet中展示

TA的精华主题

TA的得分主题

 楼主| 发表于 2019-8-21 16:58 | 显示全部楼层
lvying 发表于 2019-8-21 16:40
如果用VBA没有必要用筛选的形式体现,可以将符合条件的表在新的sheet中展示

的确,两位老师给出的思路也是如此,我也是初学,这个编程不是很会

TA的精华主题

TA的得分主题

发表于 2019-8-21 18:51 | 显示全部楼层
wwgr007 发表于 2019-8-21 16:58
的确,两位老师给出的思路也是如此,我也是初学,这个编程不是很会
  1. Sub test()
  2.     Application.ScreenUpdating = False
  3.     Set d = CreateObject("scripting.dictionary")
  4.     Set Rng = Nothing
  5.     For j = 2 To Cells(Rows.Count, "h").End(3).Row
  6.         If Cells(j, 8) = "半成品" Then
  7.             d(j - 1) = j - 1
  8.             d(j) = j
  9.             d(j + 1) = j + 1
  10.         End If
  11.     Next j
  12.     For j = 2 To Cells(Rows.Count, "h").End(3).Row
  13.         If Not d.exists(j) Then
  14.             Rows(j).Hidden = True
  15.         End If
  16.     Next j
  17.     Application.ScreenUpdating = True
  18. End Sub
复制代码
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

关注官方微信,高效办公专列,每天发车

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2020-5-31 20:22 , Processed in 0.068958 second(s), 16 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2020 Wooffice Inc.

   

沪公网安备 31011702000001号 沪ICP备11019229号

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:徐怀玉律师 李志群律师

快速回复 返回顶部 返回列表