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

萍水相逢龙 · 发表于 2020-12-12 00:06

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

3190496160 · 发表于 2020-12-12 10:14

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 · 发表于 2020-12-12 10:15

3190496160 · 发表于 2020-12-12 10:16

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

3190496160 · 发表于 2020-12-12 10:17

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

萍水相逢龙 · 发表于 2020-12-12 11:16

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

萍水相逢龙 · 发表于 2020-12-17 18:14

谁还能帮忙一下呢

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

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

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