如何对多表格按条件进行查询，并展示在一个sheet

哈哈雅婷

有3个表格，其中表1、表2都是基础数据表，他们都有一个编码，但是这个编码不是唯一的，可能会重复出现，当在sheet1输入需要查询的的编号后，可以把表1、表2中凡是包含这个编号的全部展示在sheet1里面，这个怎么做到啊，我试过查一个表格的，但是查2个表格的就不会了，求大神解救一下！谢谢！

总算上传到附件了~~求问啊求问

哈哈雅婷

附件上传不成功，不知道咋回事

lsc900707

哈哈雅婷 发表于 2018-7-26 17:44
附件上传不成功，不知道咋回事

网站异常，要多试几次。
没有附件谁也帮不了你！

哈哈雅婷

lsc900707 发表于 2018-7-26 20:41
网站异常，要多试几次。
没有附件谁也帮不了你！

终于上传到了，求大神们解答~~

lsc900707

哈哈雅婷 发表于 2018-7-27 10:42
终于上传到了，求大神们解答~~

显示格式这样调整一下不好吗？
表名        编号        名字
表1        44001        aa
表1        44001        gg
表1        44001        haha
表2        44001        aaa

哈哈雅婷

lsc900707 发表于 2018-7-27 10:54
显示格式这样调整一下不好吗？
表名        编号        名字
表1        44001        aa

可以，这样也挺好的

wuliaolang

用sql，我的语句好像太麻烦了

哈哈雅婷

wuliaolang 发表于 2018-7-27 13:21
用sql，我的语句好像太麻烦了

好像木有按键列，不能动态执行呢？

海底有座冰城

我也需要这样的功能，vba，这个难吗，我要开始学VBA

lsc900707

哈哈雅婷 发表于 2018-7-27 12:47
可以，这样也挺好的

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row = 3 And Target.Column = 1 Then
   
3.          Dim brr(1 To 1000, 1 To 3)
   
4.          For Each sht In Sheets
   
5.              If InStr(sht.Name, "表") Then
   
6.                  With sht
   
7.                     arr = .[a1].CurrentRegion
   
8.                  End With
   
9.                  For i = 2 To UBound(arr)
   
10.                      If InStr(arr(i, 1), Target.Value) Then
    
11.                          m = m + 1
    
12.                          brr(m, 1) = sht.Name
    
13.                          brr(m, 2) = arr(i, 1)
    
14.                          brr(m, 3) = arr(i, 2)
    
15.                     End If
    
16.                  Next
    
17.             End If
    
18.         Next
    
19.         If m Then [a6].CurrentRegion.Offset(1).ClearContents: [a7].Resize(m, 3) = brr
    
20.     End If
    
21. End Sub

复制代码