[已解决]如何去掉数组中的空值??????/

挚友

Dim Arr
Dim Arr1() As String      arr和arr1 在此处定义有什么不同的含义吗?
Arr = ThisWorkbook.Worksheets("参数设定").Range("参_名称")
        ReDim Arr1(UBound(Arr), 1)   ' 关键是arr1数组大小的定义? 怎么办....
        ii = 1
        For i = 1 To UBound(Arr)
            If Arr(i, 1) <> "" Then
                Arr1(ii, 1) = UCase(Replace(Trim(Arr(i, 1)), " ", ""))
                ii = ii + 1
            End If
        Next i

[ 本帖最后由 挚友 于 2008-12-17 12:59 编辑 ]

挚友

Sub Macro1()
Dim arr, i As Long, n As Long, s()
arr = Split("a  b  c  d e f 1")
MsgBox Join(arr, vbCrLf)
For i = 0 To UBound(arr)
If Len(arr(i)) > 0 Then
n = n + 1
ReDim Preserve s(1 To n)
s(n) = arr(i)
End If
Next
MsgBox Join(s, vbCrLf)
End Sub
原来是不断的确定arr1数组的大小啊...