|
- Sub 数组查询2()
- Dim arr(), brr()
- arr = Sheet1.UsedRange
- yi = Sheet3.Range("a2")
- er = Sheet3.Range("b2")
- san = Sheet3.Range("c2")
- si = Sheet3.Range("d2")
- ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
- For i = 1 To UBound(arr)
- If InStr(arr(i, 1), yi) > 0 Or yi = "" Then
- If InStr(arr(i, 2), er) > 0 Or er = "" Then
- If InStr(arr(i, 3), san) > 0 Or san = "" Then
- If InStr(arr(i, 4), si) > 0 Or si = "" Then
- t = t + 1
- For j = 1 To UBound(arr, 2)
- brr(t, j) = arr(i, j)
- Next
- End If
- End If
- End If
- End If
- Next
- Sheet3.Range("a4").Resize(t, UBound(arr, 2)) = brr()
- End Sub
复制代码
|
评分
-
1
查看全部评分
-
|