求大神 解决最难excel跨表数据连接引用问题

萍水相逢龙

各位大神，我有一个汇总表宋，有一堆唐11  12  13  14  15等等很多很多的表，里面每个页签名称不一样 叫做张王李赵之类的   但是页签里面的内容完全一样，都是武功 轻功 气功 暗器，我如何打开宋这个表，输入唐表名称中的日期如11DEC2020以及名称如张王等，就可以自动引用过来武功轻功等的数值呢，跪求怎么做，我只是简单的写了几项武功轻功等  实际上有非常多项，求解答？

3190496160

Sub 取数()
Application.ScreenUpdating = False
Dim d As Object
Set d = CreateObject("scripting.dictionary")
Set sh = ThisWorkbook.Worksheets(1)
r = sh.Cells(Rows.Count, 1).End(xlUp).Row
sh.Range("c2:f" & r) = Empty
ar = sh.[a1].CurrentRegion
For i = 2 To UBound(ar)
    If Trim(ar(i, 1)) <> "" And Trim(ar(i, 2)) <> "" Then
        d(Trim(ar(i, 1))) = ""
        zf = Trim(ar(i, 1)) & "|" & Trim(ar(i, 2))
        d(zf) = i
    End If
Next i
For j = 3 To UBound(ar, 2)
    If Trim(ar(1, j)) <> "" Then
        d(Trim(ar(1, j))) = j
    End If
Next j
For Each k In d.keys
    mc = "唐" & Format(k, "dmmmyyyy")
    f = Dir(ThisWorkbook.Path & "\" & mc & ".xls*")
    If f <> "" Then
        Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & f, 0)
        For Each sht In wb.Worksheets
            rs = sht.Cells(Rows.Count, 2).End(xlUp).Row
            br = sht.Range("b1:c" & rs)
            n = d(k & "|" & sht.Name)
            For i = 2 To UBound(br)
                m = d(Trim(br(i, 1)))
                If n <> "" And m <> "" Then
                    ar(n, m) = br(i, 2)
                End If
            Next i
        Next sht
        wb.Close False
    End If
Next k
sh.[a1].CurrentRegion = ar
Application.ScreenUpdating = True
MsgBox "ok!"

3190496160

3190496160

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

2020-12-12 10:16 上传

点击文件名下载附件

3190496160

这个问题，本来不难，但是，对文件名称的判断比较麻烦，代码供参考

萍水相逢龙

大哥，这个代码不会看，用公式解决不了吗

萍水相逢龙

谁还能帮忙一下呢