跨工作簿查询【得到目标值的单元格地址】

笨大孩 · 发表于 2016-11-14 10:53

本帖最后由笨大孩于 2016-11-15 18:01 编辑

跨工作簿查询【得到目标值的单元格地址】后续通过函数公式引用其他相关值
因为工作簿里面包含大量工作表而且数据不规范我想不到什么函数公式能解决这个问题
发来论坛请高手帮忙
方式不限
在函数公式区没人解答估计是函数公式没法实现，转到VBA求高人解答
非常感谢chxw68 老师的热心帮助和不厌其烦的解答。

microyip · 发表于 2016-11-14 11:42

请参考《多工作簿多表查询汇总的通用解决方案》http://club.excelhome.net/thread-1310803-1-1.html

chxw68 · 发表于 2016-11-14 11:48

Sub test()
Dim r%, i%
Dim arr, brr
Dim ws As Worksheet
Dim wb As Workbook
Dim mypath$, myname$
Dim reg As New RegExp
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Worksheets("查询对象")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("b2:b" & r)
For i = 1 To UBound(arr)
d(arr(i, 1)) = ""
Next
End With
With reg
.Global = True
.Pattern = Join(d.keys, "|")
End With
mypath = ThisWorkbook.Path & ""
myname = Dir(mypath & "*.xlsx")
Do While myname <> ""
If myname <> ThisWorkbook.Name Then
Set wb = GetObject(mypath & myname)
With wb
For Each ws In .Worksheets
With ws
r = .Cells(.Rows.Count, 2).End(xlUp).Row
If r = 1 Then
Exit For
End If
brr = .Range("b1:b" & r)
For i = 2 To UBound(brr)
Set mh = reg.Execute(brr(i, 1))
For j = 0 To mh.Count - 1
xm = mh(j)
If d.exists(xm) Then
If Not IsArray(d(xm)) Then
m = 1
ReDim crr(1 To m)
Else
crr = d(xm)
m = UBound(crr) + 1
ReDim Preserve crr(1 To m)
End If
crr(m) = ws.Name & "!" & .Cells(i, 2).Address
d(xm) = crr
End If
Next
Next
End With
Next
.Close False
End With
End If
myname = Dir()
Loop
With Worksheets("查询对象")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
For i = 2 To r
xm = .Cells(i, 2).Value
If IsArray(d(xm)) Then
crr = d(xm)
.Cells(i, 3).Resize(1, UBound(crr)) = crr
End If
Next
End With
End Sub

复制代码

chxw68 · 发表于 2016-11-14 11:49

详见附件。

jsgj2023 · 发表于 2016-11-14 14:54

学习把字典关键字作为正则匹配规则的用法。

笨大孩 · 发表于 2016-11-14 16:02

chxw68 发表于 2016-11-14 11:48

非常感谢chxw68 老师的回答和帮助。新人没法送鲜花，实在不好意思。
老师我还有个问题
如果数据源有新的表（数据）增加，还有人名不一定在B 列
能改代码实现查询么？

笨大孩 · 发表于 2016-11-14 16:04

microyip 发表于 2016-11-14 11:42
请参考《多工作簿多表查询汇总的通用解决方案》http://club.excelhome.net/thread-1310803-1-1.html

感谢提点和帮助，VBA 对于我来说有点难短时间内自己没法学会到能解决自己的问题。以后多学习。

笨大孩 · 发表于 2016-11-14 16:05

jsgj2023 发表于 2016-11-14 14:54
学习把字典关键字作为正则匹配规则的用法。

感谢提点和帮助，VBA 对于我来说有点难短时间内自己没法学会到能解决自己的问题。以后多学习。你说的这个没听过回头百度一下。

chxw68 · 发表于 2016-11-14 16:11

笨大孩发表于 2016-11-14 16:02
非常感谢chxw68 老师的回答和帮助。新人没法送鲜花，实在不好意思。
老师我还有个问题
如果数据源有 ...

标题一定是“人名”对吗？如果没有唯一的识别标志，代码就不知道哪列是人名。

笨大孩 · 发表于 2016-11-14 16:57

chxw68 发表于 2016-11-14 16:11
标题一定是“人名”对吗？如果没有唯一的识别标志，代码就不知道哪列是人名。

能不能让Excel查询所有的列（或者所有非空的单元格），而不指定某一列呢？

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

[已解决] 跨工作簿查询【得到目标值的单元格地址】

最新热点 /1