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 数组赋值的方法之前,先说下为什么要用数组的.

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

一维给二维赋值,参考实例如下:for (i = 0; i < 10; i++) { for (j = 0; j < max; j++) { scanf(＂%d＂, &a[j]); } strncpy(b[i], a, max); //memcpy(b[i], a, max); } 二维数组赋值有两种方法,第一种方法是单元格区域装入二维数组,如: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

你的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)

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)

用这个:range(＂a1:a10＂)=Application.Transpose(arr)

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

如果各数间用逗号隔开 dim a() as double a=split(text1.text,＂,＂)

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