Sub 查询()
Dim arr, brr, i%, j%, n%, m%, temp$, num%
arr = Sheets("统计表").Range("A1").CurrentRegion.Value
ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
For i = 3 To UBound(arr)
temp = arr(i, UBound(arr, 2))
For n = 1 To 7
If n <> 4 Then
temp = temp & "\" & arr(i, n)
End If
Next n
For m = 1 To 7
If InStr(temp, Sheets("查询表").Cells(2, m)) < 1 Then Exit For
Next m
If m > 7 Then
num = num + 1
For j = 1 To UBound(arr, 2)
brr(num, j) = arr(i, j)
Next j
End If
Next i
Range("A6").Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub
Sub 清除查询()
Range("A6").CurrentRegion.Resize(1000).Offset(1).ClearContents
End Sub