对VBA数组的列或行执行操作

Question

例如，在VBA中是否可以遍历二维数组的每一列并对每一列执行和操作？ 我想按顺序将数组的每一列或每一行传递给一个函数。

谢谢。

Answer 1

通常我不会回答这个问题，因为你没有表现出任何努力尝试。但是我对此有自己的困难（目前发布了我自己的问题以寻找更好的解决方案），我很无聊：

如果你有一个名为 myArr 的 2D 数组，如下所示：

 1,2,3,4,5
 6,7,8,9,10
 11,12,13,14,15

定义者： dim myArr(2,4) as variant

然后你可以用这样的双循环来循环它：

    For i = LBound(myArr) To UBound(myArr)
        For j = LBound(myArr, 2) To UBound(myArr, 2)
            temp(j) = myArr(i, j)
        Next
    Next

其中定义了 temp 并像这样重新变暗：

dim temp() as variant
redim temp(lbound(myArr,2), ubound(myArr,2)) 'note the ",2" gets the bounds of the 2nd dimention

然后将 temp 传递给函数：FunctionName(Temp)

因此，通过在内部循环之后粘贴 thue 函数调用来将其放在一起，它将循环并将 temp 传递给每一行的函数