在VBA中以交替顺序合并2个数组[关闭]

【问题标题】：Merge 2 arrays in alternating order in VBA [closed]在VBA中以交替顺序合并2个数组[关闭]
【发布时间】：2021-12-01 08:58:45
【问题描述】：

我有 2 个需要以交替顺序合并的数组。

结果是一个 VBA 数组。

【问题讨论】：

为什么需要 VBA？最终结果是 VBA 数组，还是工作表中的结果？
@BigBen 编辑了我的问题，本。这是一个 VBA 数组。
请说明您尝试过的方法以及失败的地方。
你了解VBA数组的概念吗？

标签： arrays excel vba

【解决方案1】：

我很无聊。这是一个迭代数组并填充第三个数组的问题：

Sub mergit()
    Dim arr1 As Variant
    arr1 = Array(1, 2, 3, 4, 5)
    
    Dim arr2 As Variant
    arr2 = Array("a", "b", "c", "d", "e")
    
    Dim arr3 As Variant
    ReDim arr3(0 To UBound(arr1) + UBound(arr2) + 1)
    
    Dim k As Long
    k = 0
    
    Dim i As Long
    For i = LBound(arr1) To UBound(arr1)
        arr3(k) = arr1(i)
        arr3(k + 1) = arr2(i)
        k = k + 2
    Next i
    
    Debug.Print Join(arr3, ",")
    
End Sub

【讨论】：

非常感谢。像魅力一样工作