得到6W+的结果，运行了7065S.这样太耗时了吧。

穿梭机丶Edward

yjh_27 发表于 2015-8-2 20:51
墙上那一串串红辣椒——数组入门讲座
http://club.excelhome.net/thread-196095-1-1.html
(出处: Excel ...

感谢你的帮助。。这个帖子解答了我很多疑问。谢谢！

穿梭机丶Edward

yjh_27 发表于 2015-8-2 14:16
ReDim Rule(1 to Ry,"D" to "N")   'Ry是规范表最大行，N列
不支持 此句可省略，直接：
Rule=Range(cell ...

写代码过程遇到一些模糊的问题啊。
如上赋值后，D2可以用Rule（1，1）表示？
那么Rule（x,1）下标最小是0还是1？？但是数组的下标默认是0开始的啊！
同样，Rule（1，x）此时的下标最小是多少？最大有时多少？
看到有人发帖说像这种arr=range(c1:F10)的，下标是从1开始的，真的吗？

yjh_27

穿梭机丶Edward 发表于 2015-8-3 00:22
写代码过程遇到一些模糊的问题啊。
如上赋值后，D2可以用Rule（1，1）表示？
那么Rule（x,1）下标最小 ...

是
1
1，ubound(Rule,2)
是


直接定义数组dim data（10，5）
不声明从几开始是默认从0开始，
如果希望下面从一开始，可以有两种方法：
1。在模块开始处写入 Option Base 1，所有的数组下面从一开始
2.声明数组是指定下标从一开始 Dim Data(1 To 10, 1 To 5) '声明一个二维数组

穿梭机丶Edward

yjh_27 发表于 2015-8-3 00:40
是
1
1，ubound(Rule,2)

感谢你 的帮助，情况2我还是知道了。现在很多知识点都明了了。虽然还是碰到点问题，我自己试着去解决，不行再来问吧。小红花献给你~！

穿梭机丶Edward

yjh_27 发表于 2015-8-3 00:40
是
1
1，ubound(Rule,2)

Rule = yys.Range(yys.Cells("C2"), yys.Cells(Ry, "N"))   '将规范表需要用到的内容全部赋值给数组Rule

y_fname = Rule(i, 1): y_ename = Rule(i, 2) '将数组中的表明，英文名分别赋值给y_fname,y_ename

这两句中Rule都是没有值的啊？？yys是另外一个工作簿的工作表。

穿梭机丶Edward

自己顶一下。
问题是，

1. Set yy = Workbooks.Open(y1)
   
2. Set yys = yy.Worksheets("RULE")
   
3. Ry = yys.Range("D65536").End(xlUp).Row  '获取规范表的最后一行行号，前提是都是满格填写
   
4. '----------------------------------------------------------------------------------------------------------------------------------------------
   
5. Rule = yys.Range(yys.Cells("C2"), yys.Cells(Ry, "N"))   '将规范表需要用到的内容全部赋值给数组Rule
   

复制代码

Rule数组是空的数组。怎么回事呢

穿梭机丶Edward

穿梭机丶Edward 发表于 2015-8-3 09:04
Rule = yys.Range(yys.Cells("C2"), yys.Cells(Ry, "N"))   '将规范表需要用到的内容全部赋值给数组Rule
...

犯了一个很低级的错误。。。
应该改成Rule = yys.Range(yys.Cells(2，“C”), yys.Cells(Ry, "N"))