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

山菊花 · 发表于 2006-10-26 16:15

园子里是不是有红苹果？
你手中的牌是不是有红桃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编辑过]

山菊花 · 发表于 2006-10-26 16:16

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

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

山菊花 · 发表于 2006-10-26 16:17

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

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

山菊花 · 发表于 2006-10-26 16:17

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

Sub test1()
Application.ScreenUpdating = False
Application.EnableEvents = False
t = Timer
Range("a1:a10000").Value = 0
For x = 1 To 100
For i = 1 To 10000
Cells(i, 1).Value = Cells(i, 1).Value + 1
Next
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "用时 0.000 秒")
End Sub

复制代码

Sub test2()
Dim Arr(1 To 10000, 1 To 1)
Application.ScreenUpdating = False
Application.EnableEvents = False
t = Timer
Range("b1:b10000").Value = 0 '仅测试时间需要
For x = 1 To 100
For i = 1 To 10000
Arr(i, 1) = Arr(i, 1) + 1
Next
Next
Range("b1:b10000").Value = Arr
Application.EnableEvents = True
Application.ScreenUpdating = True
MsgBox Format(Timer - t, "用时 0.000 秒")
End Sub

复制代码

山菊花 · 发表于 2006-10-26 16:18

参考帖子：

[原创][数组]补充一些大家不太了解的数组用法 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 · 发表于 2006-10-26 16:40

本帖最后由 ExcelHome 于 2012-10-6 16:09 编辑

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

dnss · 发表于 2006-10-26 18:20

多谢分享

maplexp · 发表于 2006-10-26 19:03

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

顶！

fanning001x · 发表于 2006-10-26 19:07

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

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

谢谢楼主，道一声辛苦！

daley · 发表于 2006-10-26 19:38

本帖最后由 ExcelHome 于 2012-10-6 16:10 编辑

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

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

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

11、搜索数组

12、连接数组元素

13、清除数组

学习数组14

学习数组15

最新热点 /1