这句数组赋值怎么说我REDIM无效？

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

ReDim Preserve TrimArray(k)

===================
ReDim 应该是一个变量，不能是函数名
你可以使用 ReDim Preserve aArr(k)

然后：
你的动作

最后：
TrimArray=aArr

只有事先定义为数组才能redim 为数组。