Sub 数组() Dim arr() Dim xb% arr = Sheet2.Cells.Range("b2", [i2].End(xlDown)) For xb = 1 To UBound(arr) Sheet1.Cells.Range("a1") = arr(xb, 7) Sheet1.Cells.Range("d2") = arr(xb, 1) Sheet1.Cells.Range("a3") = arr(xb, 2) Sheet1.Cells.Range("a4") = arr(xb, 3) Sheet1.Cells.Range("b5") = arr(xb, 6) Sheet1.Cells.Range("b6") = arr(xb, 4) Sheet1.Cells.Range("b7") = arr(xb, 8) Sheet1.Cells.Range("b8") = arr(xb, 5) Next End Sub

这是一段VBA代码，用于将Sheet2中的数据读取到数组中，并将数组中的数据写入到Sheet1中指定的单元格中。具体实现步骤如下：

1. 定义一个数组arr，并将Sheet2中的数据从"B2"开始读取到数组中，直到最后一个非空单元格。这里使用了End方法来自动识别最后一行的位置。
2. 使用For循环遍历数组arr，从第一个元素开始，到最后一个元素结束。
3. 在循环中，将数组中的第7列、第1列、第2列、第3列、第6列、第4列、第8列和第5列的数据，分别写入Sheet1中的"A1"、"D2"、"A3"、"A4"、"B5"、"B6"、"B7"和"B8"单元格中。
4. 循环结束后，数据写入完成。

需要注意的是，该代码中没有对读取到的数据进行有效性验证，如是否为数字、是否符合要求等，容易引起数据错误或程序崩溃。使用时需要根据实际情况进行修改和完善。