我想把1,2,3循环的赋给动态数组，用vba怎么实现？得到的数组是a(1,2,3,1,2,3.....)

Question

如题所述

Answer 1

试试！

Sub test()
    Dim a()
    Dim i As Long, j As Long, k As Long
    For i = 1 To 7 '根据需求修改7的值即可
        For j = 1 To 3
            k = k + 1
            ReDim Preserve a(1 To k)
            a(k) = j
        Next j
    Next i
End Sub

hx95华夏联盟

追问

其实我想问的是b数组为b(i),a数组为a（j)，i=10,j=2,怎么将a(1)赋给b(1),a(2)赋给b(2),a(1)赋给b(3)以此类推将a()数组的值循环赋给b()数组。循环整不明白了

追答

试试！

Sub test()
    Dim a(1 To 2), b(1 To 10)
    a(1) = 1: a(2) = 2
    Dim i As Long, j As Long, k As Long
    For i = 1 To 5
        For j = 1 To 2
            k = k + 1
            b(k) = a(j)
        Next j
    Next i
End Sub

Answer 2

VBA跑到C艹吧来？追问

额，没看什么吧，就直接问了。。。。