一对多跨工作薄多表引用？

edm7321 · 发表于 2015-12-3 21:39

“数据表”工作簿在当前目录，有名称为“表一”、“表二”、“表三”的工作表且结构相同。
要求：在“测试”工作簿中，在“证书编号：”输入，则获得“数据表”工作簿“表一”、“表二”、“表三”中的相应的数据。

看见星光 · 发表于 2015-12-3 22:33

如果是值含多个结果，放在一个单元格里，再测试看看：

新建文件夹.rar (20.09 KB, 下载次数: 33)

看见星光 · 发表于 2015-12-3 21:55

复制代码

看见星光 · 发表于 2015-12-3 21:56

参考

新建文件夹.rar (20.02 KB, 下载次数: 114)

edm7321 · 发表于 2015-12-3 22:26

看见星光发表于 2015-12-3 21:56
参考

回复的很快，谢谢“看见星光”老师的帮助，基本达到了要求，要是把其中的“一对多”问题也解决了就全部达到要求了。再次谢谢“星光”老师，真的我看到希望了。

看见星光 · 发表于 2015-12-3 22:30

edm7321 发表于 2015-12-3 22:26
回复的很快，谢谢“看见星光”老师的帮助，基本达到了要求，要是把其中的“一对多”问题也解决了就全部达 ...

一对多，是什么意思啊？不是多个表吗？

看见星光 · 发表于 2015-12-3 22:32

edm7321 发表于 2015-12-3 22:26
回复的很快，谢谢“看见星光”老师的帮助，基本达到了要求，要是把其中的“一对多”问题也解决了就全部达 ...

Sub 查找()
Dim path, ws As Workbook, sht As Worksheet, d As Object
Dim arr, brr, i&, j&, k
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
path = ThisWorkbook.path & "/"
Set ws = Workbooks.Open(path & "数据表.xls")
For Each sht In Worksheets
If sht.Name <> "备注" Then
arr = sht.[b1].CurrentRegion
For i = 1 To UBound(arr)
If Not d.exists(arr(i, 1)) Then
d(arr(i, 1)) = Array(arr(i, 2), arr(i, 9), arr(i, 10))
Else
k = d(arr(i, 1))
d(arr(i, 1)) = Array(k(0) & "," & arr(i, 2), k(1) & "," & arr(i, 9), k(2) & "," & arr(i, 10))
End If
Next
End If
Next
ws.Close False
arr = Range("b1:e" & Cells(Rows.Count, 2).End(3).Row)
For i = 2 To UBound(arr)
If d.exists(arr(i, 1)) Then
k = d(arr(i, 1))
For j = 2 To 4
arr(i, j) = k(j - 2)
Next
End If
Next
Cells.Clear
[b1].Resize(UBound(arr), 4) = arr
Set d = Nothing
Application.ScreenUpdating = True
End Sub

复制代码

edm7321 · 发表于 2015-12-3 22:49

看见星光发表于 2015-12-3 22:33
如果是值含多个结果，放在一个单元格里，再测试看看：

是的，如果值含多个结果，就放在一个单元格里。现经测试达到了全部要求，太快了，真是神，谢谢星光老师，承蒙星光老师多次帮助，借此机会深表感谢！！！

陈功 · 发表于 2019-5-2 20:58

学习收藏中！

会志 · 发表于 2023-5-31 09:55

请问看见星光老师，如何查找多些数据你，如生产日期，客户地址，仪器名称等

		自动登录	找回密码
密码			免费注册

[求助] 一对多跨工作薄多表引用？