根据一个值，匹配并引用（有多个值）

arthur0628

求教 各位大神    在一页中，通过下拉选定一个值， 根据这个值，查找引用另一个页面中对应的相关信息。见图片

舞台中的鱼

index+match

arthur0628

excel 压缩件 在这里

arthur0628

舞台中的鱼 发表于 2015-12-4 11:48
index+match

我这引用了很多，估计不行吧。

yeminqiang

1. Sub ttt()
   
2.     Dim cnn As Object, rs As Object, i&, SQL$
   
3.     Set cnn = CreateObject("ADODB.Connection")
   
4.     cnn.Open "Provider = Microsoft.ace.Oledb.12.0;Extended Properties =Excel 12.0;Data Source =" & ThisWorkbook.FullName
   
5.     SQL = "select * from [BOMdata$a4:d] where 产成品名称 = '" & Sheets("引用分析").[b2] & "'"
   
6.     Set rs = cnn.Execute(SQL)
   
7.     Sheets("引用分析").Range("a5:d1000").ClearContents
   
8.     Sheets("引用分析").Range("a5").CopyFromRecordset rs
   
9.     rs.Close
   
10.     cnn.Close
    
11.     Set rs = Nothing
    
12.     Set cnn = Nothing
    
13. End Sub
    

复制代码

演示文件.zip (18.92 KB, 下载次数: 82)

2015-12-4 12:14 上传

点击文件名下载附件

arthur0628

yeminqiang 发表于 2015-12-4 12:14

大神厉害！
请问可以用函数吗？

舞台中的鱼

=IFERROR(INDEX(BOMdata!$A$1:$D$18,SMALL(IF(BOMdata!$B$1:$B$18=引用分析!$B$2,ROW(BOMdata!$B$1:$B$18),2^20),ROW($A1:A99)),MATCH(引用分析!A$4,BOMdata!$A$1:$D$1,0)),"")