Cacher is the code snippet organizer for pro developers

Function arr_strip(ByRef arr)
Dim arr2()
n = 1
For Each i In arr
    If i <> "" Then
        ReDim Preserve arr2(1 To n) '这样进行数组去除空值
        arr2(n) = i
        n = n + 1
    End If
Next
arr_strip = arr2
End Function