求助下面ReDim方法的用法和代码的意思，谢谢！

honeyhyc

在论坛里看到下面的代码，感觉一头雾水，不知道ary()，ReDim 方法是啥意思，请高手给出各行注释，俺会好好揣摩学习，希望以后可以举一反三。感谢！

sub 筛选非重复值（）
Dim i&, j&, k&, p&, rng, rng1, ary()
Dim arr As Range
[g:g].ClearContents
p = [a65536].End(xlUp).Row
Set arr = Range("a1:a" & p)
ReDim ary(1 To p, 0)
rng = arr
arr.Sort Key1:=arr(1, 1), Order1:=xlAscending, Header:=xlNo
rng1 = arr
arr = rng
ary(1, 0) = rng1(1, 1)
For i = 2 To p
   If rng1(i, 1) <> rng1(i - 1, 1) Then
      ary(k + 2, 0) = rng1(i, 1)
      k = k + 1
   End If
Next i
Range("g1:g" & p) = ary
end sub

何彪

ReDim 是重新初始化数组，它会把以前所包含的元素都清空，除非你用了关键字Preserve

honeyhyc

谢谢楼上的。
上面的代码，有谁给我注释下啊。多谢先。

honeyhyc

ary(k + 2, 0) = rng1(i, 1)？？

Order1:=xlAscending, Header:=xlNo？？？

ary(k + 2, 0) = rng1(i, 1)
      k = k + 1  ？？？？

----- 学习VBA有一段时间了，这些看起来一点也不懂。
郁闷！