VBA数组导出到工作表

Sub Export1DArrayToWorksheet()
    Dim arr(1 To 5) As Integer
    Dim ws As Worksheet
    Dim i As Integer
    
    ' 初始化一维数组
    arr(1) = 10: arr(2) = 20: arr(3) = 30: arr(4) = 40: arr(5) = 50
    
    ' 设置目标工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 将数组内容写入工作表的第一列
    For i = 1 To UBound(arr)
        ws.Cells(i, 1).Value = arr(i)
    Next i
End Sub

Sub Export2DArrayToWorksheet()
    Dim arr(1 To 3, 1 To 3) As Integer
    Dim ws As Worksheet
    Dim i As Integer, j As Integer
    
    ' 初始化二维数组
    arr(1, 1) = 1: arr(1, 2) = 2: arr(1, 3) = 3
    arr(2, 1) = 4: arr(2, 2) = 5: arr(2, 3) = 6
    arr(3, 1) = 7: arr(3, 2) = 8: arr(3, 3) = 9
    
    ' 设置目标工作表
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 将数组内容写入工作表
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            ws.Cells(i, j).Value = arr(i, j)
        Next j
    Next i
End Sub