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

zyxt2004 · 发表于 2007-8-25 11:39

终于把数组这部分浏览完，收获太大了，感谢山菊花老师的无私奉献。

fsb2048 · 发表于 2007-8-25 13:00

无私的人啊~~~~~~~~~

cmohying · 发表于 2007-8-25 15:18

山版主果然是传说中的牛人

shing32356 · 发表于 2007-8-25 18:49

老师太棒了

啊一 · 发表于 2007-9-16 20:12

QUOTE:

以下是引用山菊花在2006-10-26 16:15:47的发言：

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

山菊花 · 发表于 2007-9-16 22:53

Filter()在搜索中使用的是模糊比较(截取左起相同长度字符进行比较)。数组Arr()中存在元素“R11”时，搜索“R1”，同样会将“R11”包含到筛选结果中。

这种情况下，必须先将原始数据进行排序，顺向搜索时使用升序排列，反向搜索时使用降序排列(如附件所示)。

如果原数据不允许排序，可将数据保存到数组后对数组元素进行排序。通常采用字典技术操作更简单，如示例：

qV3oRMVc.zip (10.46 KB, 下载次数: 131)

推荐阅读：

[分享]浅谈DICTIONARY(字典)对象
作者：northwolves 浏览：回复： → Excel VBA程序开发 2007-9-8 18:11:32 [精华]

huwei853853 · 发表于 2007-9-17 02:35

这样的讲座太好了

一个一个的小专题学，汇总一起，就成为EXCEL中高手。

有窗体讲座吗？

非常感谢！

huwei853853 · 发表于 2007-9-26 14:53

受益匪浅

难能可贵

高尚情操

学习学习

safying · 发表于 2007-10-4 18:00

super lecture!

forrest · 发表于 2007-10-7 23:35

数组入门总结:工作(完成习题3,未完待续)

1.
A1向右连续8个单元格中，可用命令：
Range(“a1:h1”)=cname
我们认识的这类数组，称为一维数组，一维数组是一个水平数组，相当于工作表中的行。如果要把姓名按垂直方向填充到单元格，可转置命令。如，把这个数组写入到A1:A8单元格中：
Range(“a1:a8”)= WorksheetFunction.Transpose(cname)

2. 第二个重要的特征，是数组元素的有序性，一组数据有序地保存到数组变量中。数组中，用数组名加序号(称索引值)构成唯一的名称对元

素进行引用。元素与序号一一对应，根据序号，可以修改和读取指定位置上的元素。

3.Change 事件无处不在.
Private Sub Worksheet_Change(ByVal Target As Range) '修改单元格的值时运行本程序

    If Target.Address = "$D$10" Then '如果修改D10单元格的值
        cname = Array("林思明", "曾玉婷", "曾国文", "林伟权", "林兴发", "刘卓怀", "曾仙婷", "林平")
        Range("d11") = cname(Target) 'Target 表示D10单元格的值
    End If

End Sub

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

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

回复：（啊一）筛选不重复值