墙上那一串串红辣椒——数组入门讲座

月亮亮 · 发表于 2010-6-23 13:24

很好的贴子，很容易入门。献花~~！

pliming41 · 发表于 2010-6-27 10:13

多谢分享

sqddd · 发表于 2010-7-2 20:34

很清楚，很明白。谢谢

yjlexcelhome · 发表于 2010-8-3 15:50

好贴，顶起。

蔡宛宏 · 发表于 2010-8-7 16:34

谢谢山版非常感谢

weizhuzhu · 发表于 2010-9-2 20:02

在数组入门11里：on Error Resume Next 是不是说：当TEMP不等于-1时，就跳入下一个？

On Error Resume Next '
xm = Split(Range("a1"), ",") '
r = 0
s = UBound(xm)
For i = 0 To s
      Temp = Filter(Arr, xm(i))
      If UBound(Temp) = -1 Then
         r = r + 1
         ReDim Preserve Arr(1 To r)
         Arr(r) = xm(i)
      End If
Next

bmail · 发表于 2010-9-9 12:55

这必须是精华了吧。

18926775147 · 发表于 2010-9-10 00:52

谢谢楼主，辛苦了！

蒋晨斌 · 发表于 2010-9-20 13:02

老师。。。。崇拜中。

evilline · 发表于 2010-9-21 08:32

学习了
定当发奋图强

		自动登录	找回密码
密码			免费注册