excel - vba：遍历类型矩阵并写入工作表

Question

我需要有关处理类型矩阵的帮助。我想创建一个矩阵来执行某些操作，因为这比在普通工作表中执行相同操作要快得多。此外，我还有几个相互操作的类型矩阵。

我挣扎的部分是我如何将结果写入工作表。到目前为止，我唯一的方法是将矩阵中的每种类型赋予一个我写入工作表的变体。我想除了硬编码之外，必须有一种更有效的方法将“container_matrix”写入工作表，但我不太明白。

如何做到这一点很明显吗？有没有办法/句柄在不明确命名的情况下遍历项目“container [1,2,3]”？整个方法不合适吗？我想保留定义的类型“container1”

       Public Type container_data
            container1 As Double
            container2 As Double
            container3 As Double
        End Type

        Dim container_matrix() As container_data
        ReDim container_matrix(5)

        For int1 = 0 To 4
            
            container_matrix(int1).container1 = 10
            container_matrix(int1).container2 = 15
            container_matrix(int1).container3 = 25
        
        '**ignorance starts here:**
        Dim var1 As Variant
        ReDim var1(5, 3)

        var1(int1, 0) = container_matrix(int1).container1 
        var1(int1, 1) = container_matrix(int1).container2
        var1(int1, 2) = container_matrix(int1).container3  

        Next int1

        Worksheets(1).Range("A1:C" & 5) = var1

标签： excelvbamatrixtypes