vba\x20数组 vba 数组 redim

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

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

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

#include#include #includeint main( ){ int nums[10]={100,200,300,400,500,600,700,. printf(＂数字型和字符串型的两个数组元素分别为:\n＂); printf(＂100,200,300,400,.

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

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

sub bijiao() dim a() dim i as long dim b'定义数组 redim a(0 to 10)'数组赋值 for i=0 to ubound(a) a(i)=i next'b赋值 b=6'循环比较 for i=0 to ubound(a) if b=a(i) then exit for next'判断是否找到 if i>ubound(a) then msgbox ＂没有找到＂ else redim preserve a(0 to ubound(a)+1) a(ubound(a))=b end if end sub

循环哦 for i=1 to 6 x=arr(i) next i

字符串数组的定义:dim arr(1 to 3) as string 如此定义,但是不能直接给数组赋值转换 如果想直接给数组直接赋值转换,需要如下操作:dim arr() as variant arr=array(＂a＂,＂b＂,＂c＂) 因为array函数的赋值对象一定是一维数组,其类型为variant,并且一定未指定数组大小.

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