关于多表格筛选问题

bajifeng

1. Sub bajifeng()    'bajifeng
   
2. Dim brr()
   
3. s = [a2] & [b2] & [c2]
   
4. b = IIf([b2] = 0, 0, 1)
   
5. Sheets(1).UsedRange.Offset(4).Clear
   
6. For Each sh In Sheets
   
7.     i = 0
   
8.     If InStr(sh.Name, "筛") = 0 Then
   
9.         sh.Activate
   
10.         lr = sh.[a65536].End(3).Row
    
11.         arr = sh.Range([a2], Cells(lr, "g"))
    
12.         For i = 1 To UBound(arr)
    
13.             If b = 1 And InStr(arr(i, 1) & arr(i, 2) & arr(i, 4), s) > 0 Then
    
14.                 n = n + 1
    
15.                 ReDim Preserve brr(1 To 7, 1 To n)
    
16.                 For j = 1 To 7
    
17.                     brr(j, n) = arr(i, j)
    
18.                 Next
    
19.             ElseIf b = 0 And InStr(arr(i, 1) & arr(i, 4), s) > 0 Then
    
20.                 n = n + 1
    
21.                 ReDim Preserve brr(1 To 7, 1 To n)
    
22.                 For j = 1 To 7
    
23.                     brr(j, n) = arr(i, j)
    
24.                 Next
    
25.             End If
    
26.         Next
    
27.     End If
    
28. Next
    
29. Sheets(1).Activate
    
30. [a5:g5].Resize(UBound(brr, 2)) = Application.Transpose(brr)
    
31. End Sub

复制代码

bajifeng

>>>>>>>>>>>>>>>>>

bajifeng

rio123 发表于 2015-12-21 10:35
另外，能否在关键语句后面给个备注，以后类似表格好自己更改，非常感谢

不擅长句句注解，
如果你对哪一句不明白，可以随时问我。

rio123

bajifeng 发表于 2015-12-21 10:43
>>>>>>>>>>>>>>>>>

另外再请教个问题，如果超从超过4个表格中提取数据的话，如何更改代码？如果方便的话，麻烦告知一下（可在代码后面加备注，便于我以后遇到相类似的问题自己更改），非常感谢！！！

rio123

xcc324919 发表于 2015-12-21 10:23
看了gbgbxgb老师的图片感觉很有趣，不知道gbgbxgb是如何实现了，自己模拟了一个，基本上能到到gbgbxgb老师 ...

谢谢您的帮助，这段代码也能解决这个问题

bajifeng

rio123 发表于 2015-12-21 10:54
另外再请教个问题，如果超从超过4个表格中提取数据的话，如何更改代码？如果方便的话，麻烦告知一下（可 ...

就是400个工作表，您不需要对代码做任何修改，您可以马上试试五六个表的情况。

bajifeng

rio123 发表于 2015-12-21 10:54
另外再请教个问题，如果超从超过4个表格中提取数据的话，如何更改代码？如果方便的话，麻烦告知一下（可 ...

我用的是工作表遍历，有更广泛的适用性。
唯一需要修改的地方就是你三个关键字的位置，在代码的第3行
s = [a2] & [b2] & [c2]

bajifeng

你的工作表数量变了，没影响；
你每个工作表的行数变了，没影响；
搜索的3个关键字变了，有影响，请修改 s = [a2] & [b2] & [c2]

rio123

bajifeng 发表于 2015-12-21 10:58
你的工作表数量变了，没影响；
你每个工作表的行数变了，没影响；
搜索的3个关键字变了，有影响，请修改  ...

您好，如果我还有另外一个表格不需要进行查询的，如何表达！

bajifeng

rio123 发表于 2015-12-21 15:12
您好，如果我还有另外一个表格不需要进行查询的，如何表达！

把 另一个表格的名字 说一下。