作者：绿色风
分类：
时间：2022-08-17
浏览：99
楼主
liuguansky |
Q:如何在其他工作簿中多条件查找内容并返回对应值?
工作簿中有表A 表B 表C 三个工作表，怎样把满足名称AA 并满足A列F所对应的数值6 引用至相关位置G2
A:用如下代码可以实现:
- Sub justtest()
- Dim arr, i&, sh As Worksheet, d, P$, wb As Workbook, s$, arrt() '变义变量
- Set d = CreateObject("scripting.dictionary") '创建字典项目
- P = ThisWorkbook.Path '获取路径
- Set wb = GetObject(P & "\数据库.xlsm") '获取待查找工作簿对象
- For Each sh In wb.Worksheets '循环工作簿中工作表
- With sh
- arr = .Range("A1:d" & .Cells(.Rows.Count, 1).End(3).Row).Value '对工作表中的内容赋值数组
- For i = 2 To UBound(arr, 1)
- s = arr(1, 2) & vbTab & arr(i, 1) '获取查找关键字
- d(s) = arr(i, 4) '生成 字典项目
- Next
- End With
- Next
- wb.Close False '关闭工作簿对象
- arr = Range("a2:b" & Cells(Rows.Count, 1).End(3).Row).Value '获取需查找,赋值数组
- ReDim arrt(1 To UBound(arr, 1), 1 To 1) '定义结果数组
- For i = 1 To UBound(arr, 1) '循环需查找内容
- s = arr(i, 1) & vbTab & arr(i, 2)
- If d.exists(s) Then arrt(i, 1) = d(s) '如果查找到,则返回对应值
- Next i
- Range("g2:g" & Rows.Count).ClearContents
- Range("g2").Resize(i - 1, 1) = arrt
- Set d = Nothing
- End Sub
|
2楼
xmyjk |
学习了，谢谢花花。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一