VBA数组怎么赋值？ vba定义数组并赋值

'向VBA数组中写入数据'1、按编号(标)写入和读取 Sub t1() '写入一维数组 Dim x As Integer Dim arr(1 To 10) arr(2) = 190 arr(10) = 5End Sub Sub t2() '向二维数组写.

Excel 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

字符串数组的定义:dim arr(1 to 3) as string 如此定义,但是不能直接给数组赋值 如果想直接给数组直接赋值,需要如下操作:dim arr() as variant arr=array(＂a＂,＂b＂,＂c＂)

无规律的数据,可以用array()函数:Dim st st = Array(5, 23, 24, 26, 30, 5, 31, 24, 26, 28) 下标从0开始,需要其他的下标,可以先用array赋值另一个数组,然后再用循环赋值给 st

参考下面的代码,和你的问题有些像:Sub Test() Dim Arr(1 To 9) As Integer '定义一个下标为1,上标为9的整型数组 Dim Brr(9) As String ''定义一个下标为0,上标为9的整.

你的arr数组,本是一维数组,不需要转置. 只有arr=range(＂a1:a＂ & m).value 得来的才是二维的,但是转置以后还是二维的. 用循环,用range也是可以的 for j for j =2 to 10 step 2sheets(＂0＂ & aaa).cells(8,i)=brr(i)for j =2 to 10 step 2sheets(＂0＂ & aaa).range(＂b8＂).offset(0,j-2)=arr(j/2)

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

1.首先在Excel电子表格中选择要分配数组的单元格.2.n、在界面中,点击“insert”和“formcontrol”中的“button”选项.3.在接口版本的表中生成按钮控件,修改控制的名字.4.接下来,在界面中,点击“查看代码”选项.5.在VBA接口中继续,并输入定义一维数组的语句.6.然后,在VBA接口中,输入一条为单元格分配权重数组的语句.7.最后,在这个接口中,单元格成功地显示了数组分配结果.

arr=[a1:a10]或者 arr=range(＂a1:a10＂)前提是arr不能定义成数组,要定义成一个 variant 变量如下dim arr as variantarr=[a1:a10]如果有错误 是二维的话,就用transpose 转置一下,具体如下dim arr as variantarr=[a1:a10]arr=application.transpose(arr)