Public Function TrimArray(arr As Variant) As Variant
Dim k As Integer
k = 0
For i = 0 To UBound(arr)
If arr(i) <> "" Then
ReDim Preserve TrimArray(k)
TrimArray(k) = arr(i)
k = k + 1
End If
Next i
End Function
Dim k As Integer
k = 0
For i = 0 To UBound(arr)
If arr(i) <> "" Then
ReDim Preserve TrimArray(k)
TrimArray(k) = arr(i)
k = k + 1
End If
Next i
End Function
ReDim 应该是一个变量,不能是函数名
你可以使用 ReDim Preserve aArr(k)然后:
你的动作最后:
TrimArray=aArr
这个说法不对,没有先使用dim,同样可以使用Redim