[已解决]请老师解释数组？

sdfsdfs

For i = 2 To UBound(arr1, 1)
   For j = 1 To UBound(arr2)
       If arr1(i, 1) = arr2(j) Then GoTo ppp
   Next j
   ReDim Preserve arr2(1 To j)
    arr2(j) = arr1(i, 1)
ppp:
Next i

For i = 2 To UBound(arr1)
    For j = 1 To UBound(arr2)
       If arr1(i, 1) = arr2(j) Then Exit For
    Next
    If j > UBound(arr2) Then
       ReDim Preserve arr2(1 To j)
       arr2(j) = arr1(i, 1)
    End If
Next

zlpchwch

现在我觉得好高深，希望很快能弄懂

jianli888

哪位大侠帮忙写段VBA代码
http://www.excelpx.com/thread-310857-1-1.html

yezhikang

好难懂，学习了。