一维数组的定义问题

y809007

现在学习数组的过程中， 声明变量【dim 数组名  （a  to   b）  as  数据类型 】感觉都没办法设定，一设定就出现运行【不能给数组赐值】，求教各位老师，应该如何设置这些呢？
Sub test2()

Dim Arr()  '(1 To 30) 'As Integer          'dim 数组名  （a  to   b）  as  数据类型
Dim Brr() '(1 To 10)

Arr() = Range("b2:B31")     '为什么指定 (上下维数) 和 [数据类型] 就出现【不能给数组赐值】呢？
    Range("D9") = Arr(30, 1)
Brr = Range("b2:k2")        'brr没加()为什么也可以赐值呢？
    Range("E10") = Brr(1, 3)    '为啥是二维组，怎么才能算是一维数组啊？

End Sub

chxw68

在论坛上搜索一下吧，记得以前香川群子等老师就此问题做过详细解答。实际上对于初学者来说，只要知道怎么做就行了，没必要在有些问题上钻牛角尖非要问个为什么。

y809007

chxw68 发表于 2019-6-25 15:29
在论坛上搜索一下吧，记得以前香川群子等老师就此问题做过详细解答。实际上对于初学者来说，只要知道怎么做 ...

谢谢chxw68老师，因为是在从一维开始学习数组，想知道如何设置才是正确的方法，并非是在编程过程中钻牛角尖。

找到一个答案了。指向excel对象，比如range() 的 默认为2维数组，因为EXCEL表本身就是二维数组。

还有数据类型这个问题可以指教下吗？

microyip

在工作表内取值，只会获得两种值：1、单个单元格的值，必然是单值；2、多单元格区域（不论只有一行或一列）的值都被视为一个二维数组

yooha

个人觉得Range单元格就是设定为二维数组,你可以直接用一维数组给一组单元格赋值,但不能直接引用一组单元格给一维数组赋值

y809007

谢谢yooha老师，找到一个答案： 指向excel对象，比如range() 的 默认为2维数组，因为EXCEL表本身就是二维数组。
还有个数据类型，暂时没头绪...

zopey

1. Sub pey_test()
   
2. Dim Arr  '一次转置降为一维
   
3. Arr = Application.Transpose(Application.Index(Range("b2:b31"), 0, 1))
   
4. 
   
5. Dim Brr '两次转置降为一维
   
6. Brr = Application.Transpose(Application.Transpose(Application.Index(Range("b2:k2"), 1, 0)))
   
7. 
   
8. Stop
   
9. End Sub

复制代码

通过工作表函数 实现。