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

山菊花

本帖中有这方面知识的介绍，把单元格数值赋给数组：

Arr=range("A1:F10")

解决具体问题，建议发新帖，更能得到大家的关注。最好上传附件。

vinne8823

谢谢,山菊花老师,

yjc532

谢谢山菊花斑竹回答的这么及时！

但是还没有理解我的意思。

我的意思是有没有这样的定义方法：

假如ARRAY={ ,10,13,17,18;

  11,1016.28,1032.94,1048.76,1063.49;
  21,1014.87,1031.39,1047.07,1061.65; 
  35,1013.34,1029.72,1045.25,1059.68; 
  40,1011.69,1027.93,1043.32,1057.6; 
  70,1009.92,1026.02,1041.26,1055.39} 

类似这样形式的方法。C语言里好象有这样的定义。但是在VBA里面目前我还没有看到这样定义的。是不是没有？

[此贴子已经被作者于2008-1-21 18:57:50编辑过]

山菊花

本帖首先介绍的Array()函数就是你要的：

Arr = Array(10, 13, 17, 18, _
  11, 1016.28, 1032.94, 1048.76, 1063.49, _
  21, 1014.87, 1031.39, 1047.07, 1061.65, _
  35, 1013.34, 1029.72, 1045.25, 1059.68, _
  40, 1011.69, 1027.93, 1043.32, 1057.6, _
  70, 1009.92, 1026.02, 1041.26, 1055.39)

Array是系统保留字，不能用作变量名。

阿弥陀佛

狂亲山老师。。向山老师敬礼！！！

YD1970121001

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()中。
            'MsgBox Arr(r)

================

这段话如何理解?为何是UBOUND(TEMP)=-1的呢?

山菊花

未找到时Filter()返回一个空的数组，Ubound()对空数组返回-1。

反过来说，如果Ubound()返回-1，数组Temp一定是个空数组，即是未找到符合条件的项。

YD1970121001

先多谢下,不愧为版主.现在我对数组已理解多了,多谢!以上的回复我再思考一下.

gaolinyou

谢谢山版！可惜我到今天才看到。先顶住，有时间再慢慢看。

fecmen

楼主对数组的讲解很精辟，很全面，很通俗易懂！我获益匪浅啊！