Arrays VBA-将值从二维数组放入2个或更多单元格

我试图找出如何将[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中执行此操作。有没有人能为我指明正确的方向，或者提供一些我可以参考的示例代码

---

如果我需要澄清什么，请告诉我。

一个样品供您参考

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