[已解决]VBA中定义数组时如何用变更来定义大小

蝶·舞

我想把一些内容赋值到一个数组中，但想要赋值的内容行数是不定的，列数是固定的，那么我该如何定义这个数组，直接dim arr()是否可行？
另：追加一个问题，我定义好需要赋值的数组后，如我定义一个dim arr(4,8)
我想这个数组的第一列全部为"A",第二列全部为"XX",第三列全部为”ZGG"，第四列到第八列，才取工作表相应的行列区域（A1:E4)

最佳答案

月排行榜 / 总排行榜

qh8600

2014-5-22 15:20

111.rar (7.15 KB, 下载次数: 25)

2014-5-22 15:20 上传

点击文件名下载附件   
楼主看看，是不是这个意思

跳转到最佳答案楼层

qh8600

上传个附件吧，很难解释清楚

ppp710715

先用dim arr()定义，
再用Redim preserve arr(1 to ?,1 to ??)重定义。

小福贵

根据你描述的情况，有以下建议：
       1 声明一个变量，用来装单元格区域数据
              dim arr
                     arr=range(a1:g4)
       2 再声明一个数组,通过循环设置前3列的值和引用arr中的值
             dim arr1(1 to ubound(arr),1 to 10)
             for x=1 to ubound(arr)
                         arr1(x,1)="a"
                         arr1(x,2)="xx"
                         arr1(x,3)="zgg"
                        for y=1 to 7
                              arr1(x,y+3)=arr(x,1)
                         next y
              next x
    另外，新手学数组时有一个误区，就是代码越短越好，循环会很慢。其实高效的程序代码看上去都是很复杂的。100万次的循环，如果没有复杂的计算也不会浪费大量时间，更别提只是几百几千的循环，循环的时间可以忽略的。

qh8600

111.rar (7.15 KB, 下载次数: 25)

2014-5-22 15:20 上传

点击文件名下载附件   
楼主看看，是不是这个意思

爱疯

Sub Click()
    Dim arr(), brr(), r%, c%, i%, j%

    r = 4: c = 8
    ReDim arr(1 To r, 1 To c)
    brr = [A1:E4].Value

    For i = 1 To r
        arr(i, 1) = "A"
        arr(i, 2) = "XX"
        arr(i, 3) = "ZGG"
        For j = 4 To c
            arr(i, j) = brr(i, j - 3)
        Next j
    Next i
    [g1].Resize(r, c) = arr

End Sub

不信这样还重名

可怜了四楼