vba定义数组并赋值 vba数组赋值 循环

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

用cells(row,column)比用range灵活多了,a(i) = Range(＂a＂ & i) 可改成 a(i) = cells(1,5+i) 'E列为第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=range(＂a1:b19＂)就可以把单元格区域的值装入数组arr 第二种就是通过循环装入,一个个数值装入.例:向二维数组写入数据和读取 Dim x As Integer, y As Integer Dim arr(1 To 5, 1 To 4) For x = 1 To 5

For i = 0 To 9 x(i) = i Next 用类似以上方式赋值数组元素 x(10) = [0,1,2,3,4,5,6,7,8,9] 这种在vb6中不允许

dim cnt1 cnt1 = array(1600, 0, 0, 0, 0) 或者 dim cnt1(1 to 5) as long cnt1(1)=1600

vb没啥难度啊 定义: dim aa(x) as string '其中x是数组里元素数量,x从0开始 调用: b=aa(0) '赋值数组里第一个元素给b 赋值: 一般用循环,如: for .next语句 回答 dim arr() as string arr(i) = ＂abcd＂ 上边少一条语句,你用的arr() 定义的是个动态数组,哥们看你语句像是学过c的,是把c的一些东西带到b来了 修改:dim arr() as string arr() = ＂abcd＂ 再试一下吧

你这代码根本就没有定义数组.定义数组:dim STR(9) as string 这是定义一个可以存储10个元素的一维数组 从0开始 分别是STR(0),STR(1),STR(2).STR(9) 共十个.后面的 as string 是指定这个一维数组的数据类型是 string,即字符串型数组.还有数组不能保存命令操作,只能保存值.另外问你一下:你的代码要做的是在 指定工作表的指定单元格插入指定图片 是这样吧?

有两个办法:1、将比较语句做一个循环:For j = 0 To UBound(arr)2、如果不会变换使用上述方法,增加一个数组过渡,现在的arr为固定数组:dim arr(4),假定过渡数组为:arr1 = Split(Range(＂a＂ & i), ＂-＂),将arr1循环赋值给arr,就用你现有代码即可.但最想说的是,你的代码太繁杂,你应该把判断条件说出来,感觉你的代码可大大简化.

Private Sub Form_Load() Dim name() As String n = Val(InputBox(＂＂)) ReDim nameT(n) As String For i = 0 To n nameT(i) = i Next End Sub