Function f_Filter(arr, key) '一维数组筛选
    Dim e, brr, k
    ReDim brr(0 To UBound(arr) - LBound(arr))
    
    For Each e In arr
        If e Like key Then '用Like函数实现筛选条件
            brr(k) = e
            k = k + 1
        End If
    Next
    
    If k = 0 Then '当没找到数据的时候 返回一个-1下标的数组
        ReDim Preserve brr(-1 To -1)
    Else
        ReDim Preserve brr(0 To k - 1)
    End If
    
    f_Filter = brr '返回筛选结果
End Function