多表查询引用求助

ZUNYI

多表查询引用求助

1、我现在追踪表里D6用的是万金油一对多查询引用公式，因无法解决多表查询引用，只好将各表的数据全部粘贴到“合并”表。用“合并”表作为数据源实现追踪表的查询。

2、希望实现"追踪表"D6查询引用多张数据表为“德阳”“双流”“武侯”“银行”“职场营销”。依据各表T列小于等于3为条件，在各数据表查询引用符合条件的G列单号。

3、请大神帮忙，将追踪表D列的公式改为以“德阳”“双流”“武侯”“银行”“职场营销”为数据源的多表查询引用。

先谢谢了

活在理想的世界

注意：D列的单号请改成文本格式。

ZUNYI

好的，谢谢老师

ZUNYI

活在理想的世界 发表于 2017-11-16 16:08
注意：D列的单号请改成文本格式。

老师，您上传的压缩包解压错误，能麻烦您再传一下吗，谢谢

活在理想的世界

ZUNYI 发表于 2017-11-16 16:48
老师，您上传的压缩包解压错误，能麻烦您再传一下吗，谢谢

11111111111111111111111111111111111111111111111111111111111111

ZUNYI

活在理想的世界 发表于 2017-11-16 16:52
11111111111111111111111111111111111111111111111111111111111111

不知道怎么回来，下载了解压还是提示未知文件格式，打不开。我其它的RAR文件都能打开。能麻烦老师把公式粘在网页上吗，谢谢

活在理想的世界

1. Private Sub Worksheet_Activate()
   
2. Application.ScreenUpdating = False
   
3. Dim arr(), brr(1 To 1048576, 1 To 10), sht As Worksheet
   
4. For Each sht In Sheets
   
5.     If sht.Name <> Sheet1.Name Then
   
6.         k = sht.Range("a1048576").End(3).Row - 2
   
7.         h = sht.Range("a2").End(2).Column
   
8.         arr = sht.Range("a3").Resize(k, h)
   
9.         For r = 1 To UBound(arr)
   
10.             If arr(r, 20) <= 3 And arr(r, 20) <> "" Then
    
11.                 i = i + 1
    
12.                 brr(i, 1) = arr(r, 3)
    
13.                 brr(i, 2) = arr(r, 2)
    
14.                 brr(i, 3) = arr(r, 7)
    
15.                 brr(i, 4) = arr(r, 10)
    
16.                 brr(i, 5) = arr(r, 9)
    
17.                 brr(i, 6) = arr(r, 13)
    
18.                 brr(i, 7) = arr(r, 14)
    
19.                 brr(i, 8) = arr(r, 19)
    
20.                 brr(i, 9) = arr(r, 20)
    
21.                 If brr(i, 9) = 0 Then
    
22.                     brr(i, 10) = "超期当日"
    
23.                 Else
    
24.                     brr(i, 10) = "小于" & brr(i, 9) & "天"
    
25.                 End If
    
26.             End If
    
27.         Next
    
28.     End If
    
29. Next
    
30. Sheet1.Range("b6").Resize(10000, 10).ClearContents
    
31. Sheet1.Range("b6").Resize(i, 10) = brr
    
32. Application.ScreenUpdating = True
    
33. End Sub

复制代码

ZUNYI 发表于 2017-11-16 16:55
不知道怎么回来，下载了解压还是提示未知文件格式，打不开。我其它的RAR文件都能打开。能麻烦老师把公式 ...

你的问题不能用公式，我是用VBA解决的，比你的公式好用多了。

不知道你能否接受，入不能我也不用再贴一次了。

如果可以接受我可以贴代码给你。

ZUNYI

好的，谢谢老师

ZUNYI

请问老师，如果单号不在D列，如果修改代码。谢谢

ZUNYI

活在理想的世界 发表于 2017-11-16 16:58
你的问题不能用公式，我是用VBA解决的，比你的公式好用多了。

不知道你能否接受，入不能我也不用再贴 ...

请问老师，如果单号不在D列而在W列，如何修改代码。谢谢，真是不好意思，给您添麻烦了，我不懂VBA