VBA 查找引用

game178

说明：【物品】表第一行为类别  入库数据可增删

目标1：G列数据有效性为【物品】表中品名数据（非第一行）  

目标2：F列对应行数据 引用  G列数据在【物品】表中的所在列的第一行数据。

        如笔记本 联想Thinkpad在【物品】表的c4,故对应的F列为【物品】表的c1数据：电脑相关

chaohuahch

建立三个字典，然后查字典。就可以了。

game178

物品表如果有4列，那不是要建立4个字典，有N列建立N个字典？

game178

我的理解应该是可以用find查找返回所在列，再引用该列第一行数据

game178

沉下去了，有出手的大侠吗？

game178

自行研究了半天，第二个问题解决了。慢慢摸索中


Sub yy()


  ro = Sheets("入库").Cells(Rows.Count, 4).End(3).Row
   ' 第7列取最大行数 此处为品名列
For x = 2 To ro

With Sheets("物品")
     bb = Sheets("入库").Range("g" & x)
          Set aa = .Range("a1:h100").Find(Trim(bb), LookAt:=xlWhole)
     '在物品表中逐一查找入库品名
     
     If Not aa Is Nothing Then
        bb = .Range(aa.Address).Column
       ' 如果找到，将数据所在列储存到bb中
        End If
End With

Sheets("入库").Range("f" & x) = Sheets("物品").Cells(1, bb)
'在对应行的F列：类别列显示找到数据在物品表中的该列的第一行数据

Next

End Sub

game178

这个是怎么实现的？有知道的吗？自适应下拉菜单复杂不？

game178

目标1就是想达到这样的效果