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

tiger744990

深入浅出，通俗易懂，

zdwtz

不错不错

xmxm18

学习

BobPan

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

向山菊花致敬！

另想请教，搜索数组时如何能达到精确匹配？

如下面示例，我只想搜出 "AA"，但Filter给我的却是所有包含"AA"的项

Dim Arg
Arg = Array("AA", "AAA", "AAB")
MsgBox Filter(Arg, "AA")(0)
MsgBox Filter(Arg, "AA")(1)
MsgBox Filter(Arg, "AA")(2)

兰州人

不重复数组处理方法

    Dim xm, Arr() As String, Temp() As String '声明变量
   
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
    'xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
    xm = Array("4", "1", "2", "3", "1", "2", "3")
   
    'Debug.Print TypeName(xm)
    'Debug.Print xm(0), xm(5)
    r = 0 '初值
    s = UBound(xm) '最大下标
    For I = 0 To s '循环
        Temp = Filter(Arr, xm(I)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve Arr(1 To r) '定义动态数组大小
            Arr(r) = xm(I) '把姓名复制到数组Arr()中。
            'Debug.Print TypeName(Arr(r))
            Debug.Print Arr(r)
        End If
    Next

兰州人

不重复数组处理方法

    Dim xm, Arr() As String, Temp() As String '声明变量
   
    Dim s%, r% '声明单值变量
    On Error Resume Next '启动一个错误处理程序
    'xm = Split(Range("a1"), ",") '用A1单元格的数据创建数组
    xm = Array("4", "1", "2", "3", "1", "2", "3")
   
    'Debug.Print TypeName(xm)
    'Debug.Print xm(0), xm(5)
    r = 0 '初值
    s = UBound(xm) '最大下标
    For I = 0 To s '循环
        Temp = Filter(Arr, xm(I)) '搜索数组
        If UBound(Temp) = -1 Then '如果未找到
            r = r + 1 '序号，自增1
            ReDim Preserve Arr(1 To r) '定义动态数组大小
            Arr(r) = xm(I) '把姓名复制到数组Arr()中。
            'Debug.Print TypeName(Arr(r))
            Debug.Print Arr(r)
        End If
    Next

l6133907

好文章,ya 呀呀呀

yulan456789

精辟的帖子,承蒙教诲了.谢谢!

losttemplews

小弟编写了一个excel的VBA，用于比较两列数据是否相同，但是总是出现下标越界的错误，请各位指导。

注：所用函数为right（）

我的邮箱是losttemplewsl@gmail.com;QQ413628666,   help me !!!!

cBeLJ9n4.rar (8.76 KB, 下载次数: 40)

2007-12-14 11:49 上传

点击文件名下载附件
help me

[此贴子已经被作者于2007-12-14 11:50:30编辑过]

山菊花

两个数组是二维数组，改为：

If Right(cname(i, 1), 2) = cname2(j, 1) Then