VBA如何智能筛选所要数据及其上下行？？

wwgr007

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

liulang0808

希望楼主可以结合附件内容，举例说明下具体需求吧
目前的内容描述及附件，看不大懂，楼主是要解决什么问题的

w609053988

筛选哪一列？关键字是什么？可以通过循环去查找关键字，在根据关键字的位置取得上下一行的数据，提取到另一个位置

wwgr007

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

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

wwgr007

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

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

zpy2

wwgr007 发表于 2019-8-21 14:10
老师您能抽空看看吗，动用excel筛选只能得到类型中半成品这几行数据，，可我的需求是还要有半成品上下行 ...

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

wwgr007

zpy2 发表于 2019-8-21 15:34
返回 半成品 所在的 行号row，然后，row+1,row-1
得到所有的行号，就可以返回所在的行

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

lvying

如果用VBA没有必要用筛选的形式体现，可以将符合条件的表在新的sheet中展示

wwgr007

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

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

liulang0808

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
    

复制代码