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

山菊花

bobbyes 发表于 2015-8-2 07:24
Arr() 不是空数组吗?怎么搜索?

开始的时候，Arr()是一个空数组，这时，搜索的结果自然是空。
首先要明白，对空数组也可以搜索。
我无数次做过，明明知道钱包里没有钱，但还是打开它，睁大眼睛看来又看去，希望它出现100￥、50￥，当然，搜索的结果自然是空。
接着的程序，对搜索结果进行判断，如果为空（Arr为空的时候，或者，Arr不为空但不包含当前搜索的姓名的时候），则把当前的姓名赋值给数组Arr()。
随着程序的运行，Arr()在不断变化中。
打开本地窗口，按F8逐步运行程序，观察Arr()的变化，可更好地理解Filter()的作用。

bobbyes

山菊花 发表于 2015-8-2 18:10
开始的时候，Arr()是一个空数组，这时，搜索的结果自然是空。
接着的程序，对搜索结果进行判断，如果 ...

好的,明白了,谢谢

lwx228

山菊花 发表于 2015-8-2 18:10
开始的时候，Arr()是一个空数组，这时，搜索的结果自然是空。
接着的程序，对搜索结果进行判断，如果 ...

打扰总版主了，麻烦您看看此帖子如何用数组代码来提高速度，帖子已有字典公式，谢谢！http://club.excelhome.net/thread-1221001-1-1.html，因数据量大，用字典的速度不比工作表函数的速度慢，是不可能的，谢谢！

Robinhuang

山菊花 发表于 2006-10-26 16:11
与Array()和Split()相比，由工作表区域创建数组更加直观而简易，一个等号便解决问题：如：用Sheet2工作表A1 ...

如果工作区是有筛选的话, 那么工作区域赋值给数组OK, 但反过来数组赋值给工作区域,就会出错,好像都按数组的第一行来填充了.

山菊花

Robinhuang 发表于 2015-12-24 15:18
如果工作区是有筛选的话, 那么工作区域赋值给数组OK, 但反过来数组赋值给工作区域,就会出错,好像都按数组 ...

是的。
筛选状态下的数组操作让人扫兴。

Robinhuang

山菊花 发表于 2015-12-24 16:09
是的。
筛选状态下的数组操作让人扫兴。

如果是单纯的隐藏行或者列,是没有影响的.  
筛选状态下从单元格赋值给数组也是没有影响的. 居然就是反过来不行.


有啥方式可以绕过这个限制呢?

用了数组,再用单元格赋值, 真是数量级的差距啊

CHHlww

山菊花 发表于 2006-10-29 22:40
提供两个方法，供参考：

感觉还是复杂了点。

漫步者辉

先收藏，再学习

daziyan

山菊花 发表于 2006-10-26 16:15
园子里是不是有红苹果？你手中的牌是不是有红桃K？我们用眼睛一瞄就知道。数组元素中是不是有“张三”，是 ...

子里是不是有红苹果？你手中的牌是不是有红桃K？我们用眼睛一瞄就知道

weiyingde

山菊花 发表于 2006-10-26 16:14
以上声明的数组都属于“静态数组”，每个数组有确定的维数，每维有确定的最大下标。与之相对应的是动态数组 ...

Sub 提取名字()
Sheet2.[a1].CurrentRegion = ""
Dim wz$, brr(), crr()
wz = "朱清燕(女),林鑫,林秋静(女),林永鑫,林云艳(女),林嘉惠(女),曾文婷(女),林悦,陈诚,林伟健,赖紫岚(女),曾雁(女),赖文强,钟娟(女),张琪(女),林文彬,黄晓婷(女),李朕,林依婷(女),林佳利(女),曾德福"
xm = Split(wz, ",")
ReDim brr(LBound(xm) To UBound(xm))
ReDim crr(LBound(xm) To UBound(xm))
For i = LBound(xm) To UBound(xm)

If InStr(xm(i), "(") <> 0 Then
   brr(i) = Left(xm(i), InStr(xm(i), "(") - 1)
   crr(i) = Mid(xm(i), InStr(xm(i), "(") + 1, 1)
Else
brr(i) = xm(i)
crr(i) = ""
End If
Next
Sheet2.[a1].Resize(UBound(xm), 1) = Application.WorksheetFunction.Transpose(brr)
Sheet2.[b1].Resize(UBound(xm), 1) = Application.WorksheetFunction.Transpose(crr)
End Sub