|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
以D1为条件精确查找号码,以F1为条件模糊查找部门:
- Sub gj23w98()
- ReDim brr(1 To 1000, 1 To 9)
- For Each sht In Sheets
- If sht.Name <> ActiveSheet.Name Then
- With sht
- r = .Cells(.Rows.Count, 1).End(3).Row
- arr = .Range("a2:i" & r)
- End With
- For i = 1 To UBound(arr)
- If arr(i, 3) = [d1] Or InStr(arr(i, 4), [f1]) > 0 Then
- m = m + 1
- For j = 1 To UBound(arr, 2)
- brr(m, j) = arr(i, j)
- Next
- End If
- Next
- End If
- Next
- If m > 0 Then
- Range("a3:i" & Rows.Count).ClearContents
- [a3].Resize(m, 9) = brr
- Else
- MsgBox "没有找到相关数据,请查证!"
- End If
- End Sub
复制代码 |
|