llgd.net
当前位置:首页 >> vBA 定义数组 >>

vBA 定义数组

Sub test() Dim a(0 To 5) '//定义一个一维数组,下标从0到5共6个元素 Dim b() '//定义一个动态数组,数组维度与元素不确定,一般需要通过redim重新定义数组大小才能给其赋值 Dim c(1 To 5, 2 To 3) '//定义一个二维数组End Sub

数组赋值不能直接这样用 等于 某个单元格区域……要通过循环语句逐个赋值……考虑修改如下: Dim aa() As Double ReDim arr(1 To 1036) For i = 1 To 1036 arr(i) = Cells(i, 8) Next Stop 由于你使用了 动态数组 所以在赋值前 必须给它一个重新设置...

for each i in array(1, 6, 8, 18, 19, 20, 25, 62, 63, 64) msgbox "i=" & inext i

没有动态数组吧 就算利用 dim Arr()as string这样声明,一旦赋值后,数组大小也就固定了。 如果要改变数组大小 要用redim 命令 redim arr(10) preserve redim arr() 加preserve 可以不清空数组,保持原有数据

Dim k As Integer, n As Integer, t As Integer, arr() redim arr(1 to 10) .... ReDim Preserve arr(1 To n)

将你的代码修改为以下,利用变量j表示要写入brr的行数: Sub shaixuan() Dim arr, brr() Range("F1") = "Name" Range("G1") = "Price" arr = Range("A2:B6") ReDim brr(1 To UBound(arr), 1 To 2) j = 1 For i = 1 To UBound(arr) If arr(i, 2) ...

没有动态数组吧 就算利用 dim Arr()as string这样声明,一旦赋值后,数组大小也就固定了。 如果要改变数组大小 要用redim 命令 redim arr(10) preserve redim arr() 加preserve 可以不清空数组,保持原有数据

没有动态数组,就算利用 dim Arr()as string这样声明,一旦赋值后,数组大小也就固定了。如果要改变数组大小,要用redim 命令: redim arr(10)preserve redim arr() 加preserve 可以不清空数组,保持原有数据。 动态数组是指在声明时没有...

Dim a(5) As Integer'长度为 5 的整型一维数组Dim b(5, 5) As Integer'长度为 5×5 的整型二维数组

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 "没...

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