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

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

Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的.

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

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)

excel vba数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方.

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

dim a(10) as integer a(2)=12

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

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