VBA将数组arr（1 to 9）显示到excelZ1-Z9

在VBA（Visual Basic for Applications）中，你可以使用For循环遍历数组并将元素逐一写入Excel单元格。假设你有一个名为`arr`的一维整数数组，范围是从1到9，可以按照以下步骤操作：

Sub DisplayArrayInSheet()
    Dim arr() As Integer ' 定义数组
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
    
    Dim ws As Worksheet ' 获取工作表对象，这里假设是"Sheet1"
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 可能需要替换为实际的工作表名
    
    Dim i As Long ' 遍历数组索引
    For i = LBound(arr) To UBound(arr) ' LBound和UBound获取数组的最小和最大下标
        ws.Range("Z" & (i + 1)) = arr(i) ' 将数组元素写入Z列对应位置
    Next i
End Sub

运行这个VBA宏后，数组`arr`的内容就会显示在Excel工作表的Z1到Z9单元格中。