上传代码:
- Sub 条件查找()
- Dim arr, i&, j%, strA$, strB$, ZR(), m&, n&, mRow&
- arr = Worksheets("资料").UsedRange.Value
- ReDim ZR(1 To UBound(arr), 1 To UBound(arr, 2))
- With Worksheets("查询")
- .Activate
- strA = .[B1].Value ' 关键词1
- strB = .[B2].Value ' 关键词2
- End With
- For i = 2 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If InStr(arr(i, j), strA) Or InStr(arr(i, j), strB) Then
- m = m + 1
- For n = 1 To UBound(arr, 2)
- ZR(m, n) = arr(i, n)
- Next
- End If
- Next
- Next
- With ActiveSheet
- '.Rows("4:65536").ClearContents
- mRow = .Range("A65536").End(3).Row + 1
- .Range("A" & mRow).Resize(m, UBound(arr, 2)).Value = ZR
- End With
- End Sub
复制代码
|