excel vba如何写一个不确定的高级筛选？

Sub 查找()
On Error Resume Next
Dim icount%, arr, I%, SR, arr1(), n%, s$
Range("L2：Q1000").ClearContents
icount = Range("A65536").End(xlUp).Row
s = InputBox("请输入要查询的关键字:" & Chr(10) & "工号/姓名/年龄/籍贯/身份证号/职务", "查询")
For I = 2 To icount
arr = Application.Transpose(Application.Transpose(Cells(I, 2).Resize(1, 4)))
SR = Join(arr)
If SR Like "*" & s & "*" Then
n = n + 1
ReDim Preserve arr1(1 To n)
arr1(n) = arr
End If
Next
[L2].Resize(n, 4) = Application.Transpose(Application.Transpose(arr1))
MsgBox "共计：" & n & "条数据"
End Sub