vba二维数组某一列赋值 vba二维数组应用实例

答:二维数组赋值有两种方法,第一种方法是单元格区域装入二维数组,如:Arr=range(＂a1:b19＂)就可以把单元格区域的值装入数组arr 第二种就是通过循环装入,一个个数值装入.例:向二维数组写入数据和读取 Dim x As Integer, y As Integer Dim arr(1 To 5, 1 To 4) For x = 1 To 5

可以用Resize来实现,示例如下:arr=range("A1:Z1")'将第一行,A到Z列,赋值给数组arrrange("A2").resize(ubound(arr),1)=application.transpose(arr)'将数组Arr转置.

可以用数组变量通过工作表函数index取二维数组中的一行或一列,但无法直接取其中的多行多列.要取多行多列,需要用循环方法赋值.

当然是给二维数组元素赋值了 程序执行情况如下 首先定义一个二维数组a(4,4) 此数组中包含25个元素,相当于a(0 to 4,0 to 4) 然后使用循环嵌套给其赋值, 最后输出指定下.

Private Sub Form_Load()For i = 1 To 3For j = 1 To 3s = Int((7 * Rnd) + 1) ' 生成 1 到 7 之间的随机数值.Next jNext iFor i = 1 To 3For j = 1 To 3 Print m(i, j)PrintNext jNext iEnd Sub

用cells(row,column)比用range灵活多了,a(i) = Range(＂a＂ & i) 可改成 a(i) = cells(1,5+i) 'E列为第5列

Option Base 1 Private Sub Form_click() Dim b As Variant Dim aa(1 To 3, 1 To 3) As Integer b = Array(0, 1, 1, 1, 1, 0, 1, 1, 1) x = -1 For i = 1 To 3 For j = 1 To 3 aa(i, j) = b(i + j + x) Print aa(i, j); Next Print x = x + 2 Next End Sub

sum=0for i=0 to n for j=0 to n if i=j then sum=sum+a(i,j) next jnext i

vb 中声明数组时如果定义了数组界限那么就不可以初始化赋值你可以直接 dim a as Integer() ={{1,2,3},{4,5,6}} 初始化了数组并且也限定了数组的界限

我发现很多问的人都是和你一样的半瓶子,你直接说你想干什么就行了,至于用一维还是二维得看问题定.不是你说了算数的.按你的意思就是把a1:a4 a5:a6定在一个多维数组中.dim aa(1 to 4,1 to 2) 这样定义就行了,导入数就行了.