如何查询返回指定数据对应另一列的所有数据

随心倾听

这个问题困扰我许久，感觉公式搞不定，我又是VBA小白……

请看图一，

图一

我从指定货物中选cat treat，想显示对应有这个货物的货架上的所有货物，该如何实现呢？

效果如图，其他货架将不显示。




VBA或公式都可以，最好统计数据可以另起一个工作表显示。我是做统计用的，不改变原文档。
万分感谢~


vari1.zip (8.81 KB, 下载次数: 13)

2019-12-25 11:28 上传

点击文件名下载附件

jians0529

=INDEX(A:A,SMALL(IF($B$2:$B$50=$E$1,ROW($B$2:$B$50),4^8),ROW(1:1)))&""
数组公式。。。右拉下拉

随心倾听

jians0529 发表于 2019-12-25 12:03
=INDEX(A:A,SMALL(IF($B$2:$B$50=$E$1,ROW($B$2:$B$50),4^8),ROW(1:1)))&""
数组公式。。。右拉下拉

感谢解答！

但是… 拉完后是这个样子的，好像不太对啊



我的意思是左边的数据是A-G货架都有的，每个货架上有若干货物，在指定一个货物后筛选出含有这个货物的货架，并显示这些货架上的所有货物。

jians0529

随心倾听 发表于 2019-12-26 09:49
感谢解答！

但是… 拉完后是这个样子的，好像不太对啊

就比如上图。。所有D E G对应的货物都要出来是吗？

iwangyi

Sub C()
Set CN = CreateObject("ADODB.CONNECTION")
CN.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;EXTENDED PROPERTIES=EXCEL 8.0;DATA SOURCE=" & ThisWorkbook.FullName
N = [B65536].End(xlUp).Row
Sql = "SELECT 货架 FROM [SHEET1$A1:B" & N & "] WHERE 货物='" & Cells(1, 5) & "'"
K = CN.Execute(Sql).GETRows
For Each HJ In K
Sql = "SELECT 货架,货物 FROM [SHEET1$A1:B" & N & "] WHERE 货架='" & HJ & "'"
RN = [D65536].End(xlUp).Row + 1
Range("D" & RN).CopyFromRecordset CN.Execute(Sql)
Next
End Sub

iwangyi

附件请参考*******

随心倾听

jians0529 发表于 2019-12-26 09:58
就比如上图。。所有D E G对应的货物都要出来是吗？

是的。sorry，可能说的不够详细

浮生若梦~~~

那不就是指定货架吗

浮生若梦~~~

~~~~~~指定货架出来所有的货物