arrays - VBA - 将二维数组中的值放入 2 个或更多单元格

Question

我试图弄清楚如何将 [N x 2] 矩阵中的值放入不同工作表上同一行的单元格中。

发生变化的矩阵类似于：

1 0
1 2
1 3
2 0
2 1
2 2

... 很快。

在另一张纸上，使用矩阵中的项目，我想创建一个省略零的向量，例如：

   A   B
1  1   1
2  1   2
3  1   3
4  2   1
5  2   2

... 很快。

我已经有一个填充了矩阵值的数组。我在尝试从数组中提取值时遇到问题。

最终，会有一定的标准和一些组合，所以列数和行数会增加。所以，我需要在 VBA 中执行此操作。谁能指导我正确的方向或提供一些我可以参考的示例代码？

如果我需要澄清任何事情，请告诉我。

Answer 1

供您参考的样本

Sub testArr()
    'Declare a 4-by-2 matrix
    Dim Data(3, 1) As Variant
    Dim i As Long, j As Long
    For i = 0 To UBound(Data, 1)
        For j = 0 To UBound(Data, 2)
            Data(i, j) = Int((10 - 1 + 1) * Rnd + 1)
        Next j
    Next i
    'You extract a value from the array like this
    MsgBox "data(2,1) = " & Data(2, 1)
End Sub