arrays - VBA 数组导出到工作表

Question

我有一个包含值的数组，我想将几​​列粘贴到同一张表的两个部分。第一个矩阵将粘贴在 B 列中，第二个矩阵将粘贴在 H 列中。

是否可以用一个程序导出多列(不是一列也不是全部)？
到目前为止，我有以下选项，我可以导出一个或所有列，但不能导出“一些”。

Worksheets("Sheet1").Range("B" & m).Resize(s, 14).Value = Matrix3 'Exports entire matrix
Worksheets("E02 Sheet2").Range("B" & o).Resize(t, 9).Value = Application.Index(Matrix, 0, 1) 'Exports a single column of a matrix

Answer 1

类似的事情是可能的:
假设我们有一张如下图所示的表格


下面的代码会将第一列和第三列放入变量 vDat并写回来。

Sub TestIt()
    Dim matrix As Variant
    matrix = Sheet1.Range("A1:C3")

    Dim vDat As Variant
    vDat = Application.Index(matrix, Array(1, 2, 3), Application.Transpose(Array(1, 3)))

    Sheet1.Range("E1").Resize(3, 2).Value = Application.Transpose(vDat)

End Sub

您“只”需要根据您的需要修改代码