vba把二维数组写入excel表格

在VBA中，将二维数组写入Excel表格可以分为几个步骤。假设我们有一个名为 `dataArray` 的二维数组，下面是一个示例：

Sub WriteArrayToExcel()
    Dim dataArray As Variant ' 假设这是你要写的二维数组
    Dim i As Long, j As Long
    Dim ws As Worksheet ' 工作表对象
    Dim rng As Range
    
    ' 确保已创建新的工作簿或者选择了现有的工作簿
    If ThisWorkbook.Sheets.Count = 0 Then
        Set wb = Workbooks.Add
    Else
        Set wb = ThisWorkbook
    End If
    Set ws = wb.Worksheets(1) ' 设置默认为第一个工作表

    ' 写入数据
    rng = ws.Range("A1") ' 开始写入的位置，默认第一行第一列
    For i = LBound(dataArray, 1) To UBound(dataArray, 1)
        For j = LBound(dataArray, 2) To UBound(dataArray, 2)
            rng.Value = dataArray(i, j)
            ' 移动到下一个单元格
            Set rng = rng.Offset(1, 0) ' 向下一行，从左移一列
        Next j
        ' 到达新的一行再开始新的一列
        rng = ws.Cells(i + 1, 1)
    Next i

    ' 显示提示信息
    MsgBox "二维数组已成功写入Excel!"
End Sub

在这段代码里，`dataArray` 应该是你实际二维数组的名称，并且你需要根据实际情况调整`rng`的初始值以及移动方向。