VBE二维数组的3种情况的使用

WhoCanSay

在lisp中没有数组，在vbe中是新东西，三种情况下的使用，自己总结一下

1. '3[功能] 二维数组赋值(直接赋值
   
2. Sub aa()
   
3. arr = [{1,2;3,4;5,6}]
   
4. 
   
5. [a1].Resize(1, 2) = Application.Index(arr, 2, 0) '第二行，后面的0可以不要
   
6. [a2].Resize(1, 2) = Application.Index(arr, 2) '=>(3,4)
   
7. [a3].Resize(3, 1) = Application.Index(arr, 0, 1) '第一列，后面的0可以不要
   
8. [b3].Resize(3, 1) = Application.Index(arr, , 1)
   
9. 
   
10. brr = Application.Index(arr, 2, 0) '新数组
    
11. [d1].Resize(1, 2) = brr
    
12. 
    
13. Debug.Print LBound(arr) '=>1
    
14. Debug.Print UBound(arr) '=>3
    
15. Debug.Print UBound(brr) '=>2
    
16. 
    
17. 'Debug.Print Row = UBound(brr) '第一维的上限 失败
    
18. Row = UBound(brr)
    
19. Debug.Print Row '=>2 成功
    
20. 
    
21. Row = UBound(arr, 1) '=>3 第一维的上限
    
22. col = UBound(arr, 2) '=>2 第二维的上限
    
23. Debug.Print Row
    
24. Debug.Print col
    
25. 
    
26. End Sub
    
27. 
    
28. '2[功能] 二维数组赋值Array
    
29. Sub bb()
    
30. a1 = Array(1, 2)
    
31. a2 = Array(3, 4)
    
32. arr = Array(a1, a2, Array(5, 6))
    
33. Debug.Print LBound(arr) '=>0
    
34. 
    
35. '[a1].Resize(1, 2) = Application.Index(arr, 2, 0) '第二行，后面的0可以不要 失败，因为arr是一维的，Arr(1)即可
    
36. '[a2].Resize(1, 2) = Application.Index(arr, 2) '=>(3,4),同上
    
37. '[a3].Resize(3, 1) = Application.Index(arr, 0, 1) '第一列，后面的0可以不要 失败
    
38. '[b3].Resize(3, 1) = Application.Index(arr, , 1)'同上
    
39. 
    
40. brr = arr(1) '新数组
    
41. [d1].Resize(1, 2) = brr
    
42. 
    
43. Debug.Print LBound(arr) '=>0
    
44. Debug.Print UBound(arr) '=>2
    
45. Debug.Print UBound(brr) '=>1
    
46. 
    
47. 'Debug.Print Row = UBound(brr) '第一维的上限 失败
    
48. Row = UBound(brr)
    
49. Debug.Print Row '=>1 成功
    
50. 
    
51. Row = UBound(arr, 1) '=>2 第一维的上限
    
52. col = UBound(arr, 2) '=>2 第二维的上限 失败,因为arr是一维的
    
53. Debug.Print Row
    
54. 
    
55. End Sub
    
56. 
    
57. '3[功能]最后一列=前面列相乘（选择单元格
    
58. Sub cc()
    
59. 'Dim rr As Range, i As Long
    
60. 'i = 0
    
61. With Selection
    
62.     For Each rr In .Rows
    
63.         i = i + 1
    
64.         .Cells(i, .Cells.Columns.Count + 1) = WorksheetFunction.Product(rr)
    
65.     Next
    
66. End With
    
67. End Sub
    
68. 
    
69. '[功能]最后一行=前面行相乘
    
70. Sub cc1()
    
71. 'Dim rr As Range, i As Long
    
72. 'i = 0
    
73. With Selection
    
74.     For Each rr In .Columns
    
75.         i = i + 1
    
76.         .Cells(.Cells.Rows.Count + 1, i) = WorksheetFunction.Product(rr)
    
77.     Next
    
78. End With
    
79. End Sub

'3[功能] 二维数组赋值(直接赋值<br /> Sub aa()<br /> arr = [{1,2;3,4;5,6}]<br /> <br /> [a1].Resize(1, 2) = Application.Index(arr, 2, 0) '第二行，后面的0可以不要<br /> [a2].Resize(1, 2) = Application.Index(arr, 2) '=>(3,4)<br /> [a3].Resize(3, 1) = Application.Index(arr, 0, 1) '第一列，后面的0可以不要<br /> [b3].Resize(3, 1) = Application.Index(arr, , 1)<br /> <br /> brr = Application.Index(arr, 2, 0) '新数组<br /> [d1].Resize(1, 2) = brr<br /> <br /> Debug.Print LBound(arr) '=>1<br /> Debug.Print UBound(arr) '=>3<br /> Debug.Print UBound(brr) '=>2<br /> <br /> 'Debug.Print Row = UBound(brr) '第一维的上限 失败<br /> Row = UBound(brr)<br /> Debug.Print Row '=>2 成功<br /> <br /> Row = UBound(arr, 1) '=>3 第一维的上限<br /> col = UBound(arr, 2) '=>2 第二维的上限<br /> Debug.Print Row<br /> Debug.Print col<br /> <br /> End Sub<br /> <br /> '2[功能] 二维数组赋值Array<br /> Sub bb()<br /> a1 = Array(1, 2)<br /> a2 = Array(3, 4)<br /> arr = Array(a1, a2, Array(5, 6))<br /> Debug.Print LBound(arr) '=>0<br /> <br /> '[a1].Resize(1, 2) = Application.Index(arr, 2, 0) '第二行，后面的0可以不要 失败，因为arr是一维的，Arr(1)即可<br /> '[a2].Resize(1, 2) = Application.Index(arr, 2) '=>(3,4),同上<br /> '[a3].Resize(3, 1) = Application.Index(arr, 0, 1) '第一列，后面的0可以不要 失败<br /> '[b3].Resize(3, 1) = Application.Index(arr, , 1)'同上<br /> <br /> brr = arr(1) '新数组<br /> [d1].Resize(1, 2) = brr<br /> <br /> Debug.Print LBound(arr) '=>0<br /> Debug.Print UBound(arr) '=>2<br /> Debug.Print UBound(brr) '=>1<br /> <br /> 'Debug.Print Row = UBound(brr) '第一维的上限 失败<br /> Row = UBound(brr)<br /> Debug.Print Row '=>1 成功<br /> <br /> Row = UBound(arr, 1) '=>2 第一维的上限<br /> col = UBound(arr, 2) '=>2 第二维的上限 失败,因为arr是一维的<br /> Debug.Print Row<br /> <br /> End Sub<br /> <br /> '3[功能]最后一列=前面列相乘（选择单元格<br /> Sub cc()<br /> 'Dim rr As Range, i As Long<br /> 'i = 0<br /> With Selection<br />     For Each rr In .Rows<br />         i = i + 1<br />         .Cells(i, .Cells.Columns.Count + 1) = WorksheetFunction.Product(rr)<br />     Next<br /> End With<br /> End Sub<br /> <br /> '[功能]最后一行=前面行相乘<br /> Sub cc1()<br /> 'Dim rr As Range, i As Long<br /> 'i = 0<br /> With Selection<br />     For Each rr In .Columns<br />         i = i + 1<br />         .Cells(.Cells.Rows.Count + 1, i) = WorksheetFunction.Product(rr)<br />     Next<br /> End With<br /> End Sub