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

山菊花

园子里是不是有红苹果？
你手中的牌是不是有红桃K？
我们用眼睛一瞄就知道。数组元素中是不是有“张三”，是不是有“李四”，我们如何知道？不用担心，Filter()函数刚好可以帮你忙。
Filter()函数在一维数组中搜索文本型数据，并把结果保存到指定的数组中。
A1单元格是以逗号分隔的姓名串，部分有重复，要求剔除其中重复的姓名，把不重复的姓名写入单元格A2向右的区域。
第一步，把所有姓名保存到数组xm()中；
第二步，建立一个数组Arr()保存结果，遍历xm()过程中，检查Arr()中是否存在当前的姓名，用命令：
Temp = Filter(Arr, xm(i)) '在数组Arr()中搜索当前值xm(i)，如果找到，结果保存到Temp()数组中，如果找不到，返回一个空的数组Temp()
根据Temp()数组的大小，可以知道当前值xm(i)是不是一个重复的值。
参考：数组入门11.xls
 

应用实例：在对联库中检索对联

[此贴子已经被作者于2008-1-12 23:45:30编辑过]

山菊花

有一个函数，是Split()的反向操作函数，把数组的元素连接成一个字符串，这个函数就是Join()。
在上例中，把要求改为，剔除重复值后，把结果依原样输出到A2单元格中。
我们只需改变最后一行代码：
把这一行：
'Range("a2").Resize(1, r) = Arr '填充到工作表
换成这一行，用上Join()函数，把Arr()数组中的元素用“,”连接成一个字符串：
Range("a2") = Join(Arr, ",")

[此贴子已经被作者于2006-10-27 9:41:46编辑过]

山菊花

当数组不需要使用时，可用Erase语句清除数组元素，释放变量占用的空间。
语句：
Erase xm,Arr
每条Erase语句，可清除一个数组，也可同时清除多个数组，数组名之间用逗号分隔。

[此贴子已经被作者于2006-10-27 9:42:10编辑过]

山菊花

操作单元格与操作数组速度对比

1. Sub test1()
2. Application.ScreenUpdating = False
3. Application.EnableEvents = False
4. t = Timer
5. Range("a1:a10000").Value = 0
6. For x = 1 To 100
7. For i = 1 To 10000
8. Cells(i, 1).Value = Cells(i, 1).Value + 1
9. Next
10. Next
11. Application.EnableEvents = True
12. Application.ScreenUpdating = True
13. MsgBox Format(Timer - t, "用时 0.000 秒")
14. End Sub

复制代码

1. Sub test2()
2. Dim Arr(1 To 10000, 1 To 1)
3. Application.ScreenUpdating = False
4. Application.EnableEvents = False
5. t = Timer
6. Range("b1:b10000").Value = 0 '仅测试时间需要
7. For x = 1 To 100
8. For i = 1 To 10000
9. Arr(i, 1) = Arr(i, 1) + 1
10. Next
11. Next
12. Range("b1:b10000").Value = Arr
13. Application.EnableEvents = True
14. Application.ScreenUpdating = True
15. MsgBox Format(Timer - t, "用时 0.000 秒")
16. End Sub

复制代码

山菊花

参考帖子：

[原创][数组]补充一些大家不太了解的数组用法 By UNARTHUR

http://club.excelhome.net/thread-127324-1-1.html

(出处: ExcelHome技术论坛)

　　

字典——数组伴侣

正松舒，慢匀稳——太极字典少年班

http://club.excelhome.net/thread-881612-1-1.html

(出处: ExcelHome技术论坛)

　　

相关讨论帖：

http://club.excelhome.net/thread-1300411-1-1.html

　　

一维数组，在表格公式与VBA中的区别：

https://club.excelhome.net/forum ... 606287&pid=10829383

yyyu_2000

建议斑竹在标题上加上"数组"两个字,便于搜索.

 

dnss

多谢分享

maplexp

很不错，早有这个东东我一开始搞数组时就不用费力气摸索了，

顶 ！

fanning001x

盼望学习数组的热情不减，终于盼到这一天了！

今天我可要先顶，再看帖子了！

谢谢楼主，道一声辛苦！

daley

好帖子，建议基础版版主给其加精打分!!