多表格根据条件筛选提取整行

漠然然然

如附件，如何将数据汇总并提取要求数据，求教大神。

shiruiqiang

我先帮群里的老师问问，三个条件是>=1，或者要求同时满足3个？

漠然然然

shiruiqiang 发表于 2023-7-25 15:18
我先帮群里的老师问问，三个条件是>=1，或者要求同时满足3个？

能同时满足吗，有时只需要查询一个，有时需要查询三个

漠然然然

Sub 提取数据()
On Error Resume Next
Dim wsh As Worksheet, i As Integer, brr(), j As Integer, arr
For Each wsh In Worksheets
If wsh.Name = "提取数据" Then GoTo 100
    j = wsh.Range("a65536").End(xlUp).Row
    arr = wsh.Range("a5:n" & j)
    k = k + UBound(arr)
    ReDim Preserve brr(1 To 14, 1 To k)
    For i = 1 To UBound(arr)
        If arr(i, 13) = "不限" Then
        n = n + 1
        brr(1, n) = arr(i, 1)
        brr(2, n) = arr(i, 2)
        brr(3, n) = arr(i, 3)
        brr(4, n) = arr(i, 4)
        brr(5, n) = arr(i, 5)
        brr(6, n) = arr(i, 6)
        brr(7, n) = arr(i, 7)
        brr(8, n) = arr(i, 8)
        brr(9, n) = arr(i, 9)
        brr(10, n) = arr(i, 10)
        brr(11, n) = arr(i, 11)
        brr(12, n) = arr(i, 12)
        brr(13, n) = arr(i, 13)
        brr(14, n) = arr(i, 14)
        End If
        Next
100:
Next
Sheets("提取数据").Range("a2").Resize(n, 14) = Application.WorksheetFunction.Transpose(brr)
End Sub
论坛找到的，这个可以怎么修改运行呢？

漠然然然

https://club.excelhome.net/threa ... tml?_dsign=396f455f，这个帖子中的可用吗？怎么修改呢，求大神

ykcbf1100

漠然然然 发表于 2023-7-25 15:21
能同时满足吗，有时只需要查询一个，有时需要查询三个

你摸拟数据能不能认真一点啊，你三个条件就一个单位有数据，要三个条件有毛用啊。

漠然然然

ykcbf1100 发表于 2023-7-25 15:29
你摸拟数据能不能认真一点啊，你三个条件就一个单位有数据，要三个条件有毛用啊。

不好意思，是疏忽了。想到原理一样去了。

ykcbf1100

按三个条件写的，模糊查询。

附件数据不全，后面还得继续追问的。

漠然然然

ykcbf1100 发表于 2023-7-25 15:55
按三个条件写的，模糊查询。

附件数据不全，后面还得继续追问的。

谢谢老师，就是有这么一个情况。表格数据肯定是全的（三个查询项都会填写），查找的时候如果只查其中一个，就无法找到数据（必须三个选项都填写才能查询到），如果查找项只有一个，那么满足这一项的能否全部展示呢，查找有两项，也是满足这两项的全部。

漠然然然

ykcbf1100 发表于 2023-7-25 15:55
按三个条件写的，模糊查询。

附件数据不全，后面还得继续追问的。

感谢老师，就是三个条件都有数据的情况下，无法按其中一个条件筛选，必须三个都填，这个可以麻烦处理下吗，谢谢了