vba如何让数组赋给单元格

在VBA中，要将数组赋给单元格，你可以使用以下步骤：

1. 定义一个数组。

2. 使用循环结构遍历数组。

3. 使用`Range`对象将数组中的每个元素赋给相应的单元格。

以下是一个简单的例子，演示如何将一个二维数组赋给Excel工作表中的单元格：

```vba

Sub AssignArrayToCells()

' 定义一个二维数组

Dim myArray(1 To 3, 1 To 3) As Integer

Dim i As Integer, j As Integer

' 初始化数组

For i = 1 To 3

For j = 1 To 3

myArray(i, j) = i j

Next j

Next i

' 获取工作表对象

Dim ws As Worksheet

Set ws = ThisWorkbook.Sheets("Sheet1")

' 将数组赋给单元格

Dim cell As Range

For i = 1 To 3

For j = 1 To 3

Set cell = ws.Cells(i, j)

cell.Value = myArray(i, j)

Next j

Next i

End Sub

```

在这个例子中，我们首先定义了一个3x3的整数数组`myArray`，并用乘法初始化了它。然后，我们创建了一个工作表对象`ws`，并使用嵌套循环遍历数组，将每个元素赋给`Sheet1`工作表中相应的单元格。

确保在运行此宏之前，你已经在Excel中打开了相应的工作簿，并且有名为"Sheet1"的工作表。如果你使用的是不同的工作表名称，请相应地修改`ThisWorkbook.Sheets("Sheet1")`中的工作表名称。