VBA不使用嵌套循环实现二维数组指定列批量赋值方法

• 核心结论：VBA原生语法不支持类似Python array[:, 0] = [a, b] 这种二维数组整列切片直接批量赋值的操作，没有原生语法可以跳过循环直接修改整列内容。
• 针对你当前的场景，完全不需要写嵌套For循环，通过单循环搭配索引计算就能完成填充，逻辑简单运行效率也高：
  你的源数组是排好序的6行2列结构，每2条连续数据对应目标2行3列数组的1列，只需要遍历源数组一次，通过数学计算直接定位每个值在目标数组里的行列位置即可。

Sub FillTargetArray()
    ' 此处为模拟的已排序源数组，实际使用时替换为你自己的源数组即可
    Dim srcArr(1 To 6, 1 To 2) As Variant
    srcArr(1, 1) = 1: srcArr(1, 2) = "a"
    srcArr(2, 1) = 1: srcArr(2, 2) = "b"
    srcArr(3, 1) = 2: srcArr(3, 2) = "c"
    srcArr(4, 1) = 2: srcArr(4, 2) = "d"
    srcArr(5, 1) = 3: srcArr(5, 2) = "e"
    srcArr(6, 1) = 3: srcArr(6, 2) = "f"
    
    ' 定义2行3列的空目标数组
    Dim dstArr(1 To 2, 1 To 3) As Variant
    Dim i As Long, dstRow As Long, dstCol As Long
    ' 仅需单循环，无嵌套
    For i = 1 To 6
        ' 计算目标行：每列内依次填充第1、2行，循环周期为2
        dstRow = (i - 1) Mod 2 + 1
        ' 计算目标列：每2条源数据对应1列
        dstCol = (i - 1) \ 2 + 1
        ' 直接赋值
        dstArr(dstRow, dstCol) = srcArr(i, 2)
    Next i

    ' 以下为测试输出代码，可按需删除
    Dim c As Long
    For c = 1 To 3
        Debug.Print "目标数组第" & c & "列：" & dstArr(1, c) & "、" & dstArr(2, c)
    Next c
End Sub

• 补充说明：如果强行要实现类似Python的整列赋值写法，只能自己封装自定义函数，但函数内部本质还是要通过循环逐元素赋值，性能不会比上述单循环方案更好，没有额外使用的必要。如果你的数组是0下标起始，只需要对应调整索引计算的偏移量即可，逻辑完全通用。

内容的提问来源于stack exchange，提问作者Valia