VBA数组嵌套的问题

eric0793

香川老师的一堂课，收藏慢慢学习

zhouzhongchi

好贴。打包然后再打包

下标越界

香川群子 发表于 2014-2-12 15:47
给你一个靠谱的答复：

一般人总是误以为：一句简单的VBA命令语句，会比一大堆循环语句命令效率更高… ...

这是进入到函数SUM里面了呀。

下标越界

香川群子 发表于 2014-2-12 13:54
补充，嵌套数组中，每一个子数组的大小也可以不同：

  p = Array(5, 10, 3, 12, 5, 50, 6, 4, 6, 11, 16, 18, 19, 23)

  'ReDim A(UBound(p))
  
  For i = 1 To UBound(p)
    redim A(i)(p(i - 1), p(i))    '直接这样定义出现语法错误，该如何实现这样的效果呢？
  
  Next i

yuwd3

学到很多东西，非常感谢

x007file

Sub aa()
Dim a()
Dim b()

p = Array(5, 10, 3, 12, 5, 50, 6, 4, 6, 11, 16, 18, 19, 23)

  'ReDim A(UBound(p))
  ReDim a(1 To UBound(p))
  
  For i = 1 To UBound(p)
     ReDim b(p(i - 1), p(i))
     a(i) = b
   
  Next i

End Sub

下标越界

x007file 发表于 2016-2-4 09:45
Sub aa()
Dim a()
Dim b()

采纳，谢谢你，我可以构造出矩阵链了。

1. Sub 构造矩阵链()
   
2.   Dim A()
   
3.   Dim B()
   
4.   p = Array(5, 10, 3, 12, 5, 50, 6, 4, 6, 11, 16, 18, 19, 23)
   
5. 
   
6.   
   
7.   ReDim A(1 To UBound(p))
   
8.   
   
9.   For i = 1 To UBound(p)
   
10.      ReDim B(1 To p(i - 1), 1 To p(i))
    
11.      A(i) = B
    
12.    
    
13.   Next i
    
14. 
    
15.   For i = 1 To UBound(p)
    
16.     For j = 1 To p(i - 1)
    
17.       For k = 1 To p(i)
    
18.         A(i)(j, k) = k + p(i) * (j - 1)
    
19.            
    
20.   Next k, j, i
    
21.   
    
22.   cc = 1
    
23.   For i = 1 To UBound(p)
    
24.    
    
25.     Range("A" & cc).Resize(UBound(A(i), 1), UBound(A(i), 2)) = A(i)
    
26.     cc = cc + UBound(A(i), 1) + 1
    
27.   Next i
    
28.   
    
29. 
    
30. End Sub

复制代码

fkeih_007

香川群子 发表于 2014-2-12 16:09
其实直接用For 循环提取结果，代码也很简单，并没有那么夸张地被认为是很繁琐。

每次看香川老师的贴子都能学到不少东西，感谢香川老师每次都对我们这些新人如此不厌其烦的教导。

下标越界

简单的言语已经不足以表达我对香川老师帮助过我、以及多少次从其人帖子中获得各种知识的感激之情。我能做到的就是在其人每一次发技术贴时都送花点赞，每一次跟帖绝不废话。然后在自己回复他人的帖子时若出处源自香川老师，一律加一句”这是从香川老师那里学到的。“若是有幸知道其真人住址电话，一定要奉上小礼物以略略表达这种感激之情。

macro_23

香川群子 发表于 2014-2-12 13:33
十分简单，就按你说的用嵌套数组即可： 呵呵，请参考！

您好，香川群子老师，有个问题请教下，能用数组改写下吗，请移步，http://club.excelhome.net/thread-1364239-1-1.html，谢谢