Excel VBA：使用二维数组数据填充交错范围

Question

我目前正在寻找一种更有效的方法，通过 VBA，将信息从 Sub 中的二维数组传输到 Excel 工作簿中的一组交错范围内。我将我需要的内容提炼成下面的示例，并附有代码；任何帮助将不胜感激。

   我已经链接了描述我正在使用的示例（输入、数组和输出）的图像，并在下面编写了我正在使用的代码示例。为简单起见，让我们在工作簿中将“输入工作表”定义为 Sheet1，将“输出工作表”定义为 Sheet2：

  Option Explicit

  Sub TransferData()
    Dim myArray as Variant           'Define the array to hold the data.
    Dim i as integer                 'Define a generic loop counter variable.

    myArray = Sheet1.Range("A1:F7")  'Pulls all the relevant data into the array.

    myArray 现在看起来与范围完全一样。 （我会发布第三个链接，但我需要先获得更多代表）。

   我想将数据传输到我的输出文件中，使其如下所示：

   这是我目前处理这种情况的方式：

    For i = 1 to ubound(myArray)
      Sheet2.Cells(i,1) = myArray(i,1)
      Sheet2.Cells(i,3) = myArray(i,2)
      Sheet2.Cells(i,6) = myArray(i,3)
      Sheet2.Cells(i,7) = myArray(i,4)
      Sheet2.Cells(i,8) = myArray(i,5)
      Sheet2.Cells(i,9) = myArray(i,6)
    Next i
  End Sub

   我的问题是这样的；有没有办法以类似于我抓取数组的方式将数据从数组传输到交错范围？一次一个范围？例如，类似于以下内容的内容：

Sheet2.Range("A1:A8") = myArray(1 to 7, 1)  'Note: this is total pseudocode
Sheet2.Range("C1:C8") = myArray(1 to 7, 2)  'Note: this is total pseudocode

等等……等等……

   我相信到目前为止我已经成功地自学了相当多的 VBA，但我绝对不是什么都知道，这是我需要帮助的东西。我正在尝试尽量减少从 VBA 对工作表的写入量；他们真的付出了代价。

   非常感谢任何帮助。

  谢谢！

Answer 1

“复制和粘贴”这些值可能会快很多。您显然需要对其进行概括以适合您的目的，但此代码适用于您提供的示例：

Sub TransferData()

    Sheet3.Range("A1:A7") = Sheet1.Range("A1:A7").Value
    Sheet3.Range("C1:C7") = Sheet1.Range("B1:B7").Value
    Sheet3.Range("F1:I7") = Sheet1.Range("C1:F7").Value

End Sub

Answer 2

根据要插入的“其他数据”的大小，解决此问题的一种非常简单的方法是将所有数据传输到输出范围，然后插入新列并根据需要放置其他数据。

例如：

data = Worksheets("InputSheet").Range("A1:F7").Value
Worksheets("OutputSheet").Range("A1:F7").Value = data
Worksheets("OutputSheet").Columns("B").EntireColumn.Insert ' do this for every column you need, within reason. 

然后您可以将“其他数据”放入您创建的所有新列中。