msww.net
当前位置:首页 >> vBA循环给数组赋值 >>

vBA循环给数组赋值

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

Dim a() As Long, i As Integer, s As LongReDim a(1 To Val(Text1.Text))For i = 1 To UBound(a) a(i) = i s = s + iNextPrint s如果只是要求和,那么不用数组也可以的:Dim i As Integer, s As LongFor i = 1 To Val(Text1.Text) s = s + iNextPrint s

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

dim c,a(20) c=0 while c<20 c=c+1 a(c)=c wend print a(10)

Excel VBA数组赋值主要分为一维数组赋值和二维数组赋值两方面来讲,多维数组赋值只要沿用二维的方法即可.在将vba 数组赋值的方法之前,先说下为什么要用数组的方法来写程序吧.使用excel vba数组赋值的主要目的是为了提高程序运行

通过数组循环的方式进行数组赋值.示例: Dim names '定义一个初始化数组 Dim dest(3) '定义一个要赋值的数组 '赋值 names = Array("小明", "小红", "效力", "张明", "王武", "", "", "", "", "", "") '通过Ubound()函数计算上界,LBound计算数组下界 For i=LBound(dest) to UBound(dest) dest(i) = names(i);//数组赋值 next i

不知道你要做什么,我按自己的理解改一下,你试一下:Sub 奖励() j = Sheets("1月27日").UsedRange.Columns.Count '获取总行数 For i = 2 To j '第二行开始循环 循环j次 l = Trim(Range("B" & i).Value) '获取B列i行数据 b = Trim(Range("D"

在循环里做REDIM,每次进入循环,都是重新初始化这个数组,最后一次是把数组重置为长度15的数组,而且只是直接对A【14】进行了一次赋值,A[0]到A[13]全部是NULL

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

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)

fkjj.net | zxqs.net | jmfs.net | zxpr.net | fpbl.net | 网站首页 | 网站地图
All rights reserved Powered by www.msww.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com