[已解决]解释数组？

asdasda

Sub abc()
Dim Arr, i&, Brr
Sheet1.Activate
[b:b].ClearContents
Columns("b:b").NumberFormatLocal = "@"
Arr = [a1].CurrentRegion
ReDim Brr(1 To UBound(Arr))
For i = 1 To UBound(Arr)
    Brr(i) = Arr(i, 1) & "/" & Arr(i, 1)
Next
[b1].Resize(UBound(Brr), 1) = Application.Transpose(Brr)
End Sub
解释数组arr和brr是一维数组还是二维数组？
看arr好像是二维数组赋值给一维数组brr

最佳答案

月排行榜 / 总排行榜

我心飞翔410

2013-9-22 13:50

asdasda 发表于 2013-9-22 13:43
ReDim brr(1 To 20, 1 To 1)为什么重新定义数组？

动态数组  确定数组元素就要重新定义
你可以看看http://baike.baidu.com/link?url=OZ-fok8I3E_FnV3J3vrlt_hSTkE4SAikbMVeLOYUmslq_-j_y0hlrYnkx2vwRMb2

跳转到最佳答案楼层

我心飞翔410

arr(1 to 20) 一维数组
arr(1 to 20，1 to 4) 二维数组
二维数组的第一维的数 赋值给brr这个一维数组

asdasda

我心飞翔410 发表于 2013-9-22 13:21
arr(1 to 20) 一维数组
arr(1 to 20，1 to 4) 二维数组

Brr(i) = Arr(i, 1) & "/" & Arr(i, 1)
这arr是二维数组，brr是一维数组？

asdasda

我心飞翔410 发表于 2013-9-22 13:21
arr(1 to 20) 一维数组
arr(1 to 20，1 to 4) 二维数组
二维数组的第一维的数 赋值给brr这个一维数组

二维数组arr也能赋值给一维数组brr？？？

我心飞翔410

asdasda 发表于 2013-9-22 13:27
二维数组arr也能赋值给一维数组brr？？？

二维数组能赋值给一维的嘛    比如一个学校高二有五个班  每班30人 这样可以定义一个二维数值 arr(1 to 30 , 1 to 5)
比如arr(1,1)  这个我就知道表示1班第一名 ，开始分班了 要抽取没个班的优秀学生放到一个班就比如brr中
虽然这个比喻很不恰当 但是还是可以勉强理解

asdasda

我心飞翔410 发表于 2013-9-22 13:32
二维数组能赋值给一维的嘛    比如一个学校高二有五个班  每班30人 这样可以定义一个二维数值 arr(1 to 3 ...

ReDim brr(1 To 20, 1 To 1)为什么重新定义数组？

我心飞翔410

asdasda 发表于 2013-9-22 13:43
ReDim brr(1 To 20, 1 To 1)为什么重新定义数组？

动态数组  确定数组元素就要重新定义
你可以看看http://baike.baidu.com/link?url=OZ-fok8I3E_FnV3J3vrlt_hSTkE4SAikbMVeLOYUmslq_-j_y0hlrYnkx2vwRMb2

yezhikang

学习了。