将一维数组复制到多维数组 - VBA

我在 VBA 中有两个函数。 Function1 返回一个一维数组。然后我有 function2，它是一个多维数组。我想将 Function1 中的数组复制到从索引 1 开始的多维数组的列。

arr2(0,0) = "Something"
arr2(0,1) = ("Something",arr1(0))
arr2(0,2) = ("Something",arr1(1))

这就是我所拥有的。 arr1 是 GetRecData，arr2 是 AllChannelsData。

For i = 0 To UBound(channelList)
    'the first row in the array is the channels names
    AllChannelsData(i, 0) = channelList(i)
    Set RecChannel = Rec.FindChannel(channelList(i), RecDevice.Name)
    For j = 0 To total_time
        AllChannelsData(i, j + 1) = RecChannelData.GetRecData(RecChannel, 1, 0)
    Next
Next

Thanks!

请参考下面的代码。

Sub Array_test()
    Dim GetRecData(9) As String
    Dim AllChannelsData(9, 2) As String
    For i = 0 To 9
        GetRecData(i) = i
        For j = 0 To 9
            AllChannelsData(j, 0) = j
            AllChannelsData(j, 1) = GetRecData(j)
        Next j
    Next i
End Sub