vba读取sheet页写入数组

可以使用 VBA 中的数组来读取 Excel 工作簿中的数据。以下是一个简单的示例：

Sub ReadDataToArray()

    Dim arrData() As Variant
    Dim i As Long, j As Long
    Dim ws As Worksheet
    
    '选择要读取的工作表
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    '获取工作表中的数据范围
    arrData = ws.Range("A1:C10").Value
    
    '遍历数组并输出数据
    For i = LBound(arrData, 1) To UBound(arrData, 1)
        For j = LBound(arrData, 2) To UBound(arrData, 2)
            Debug.Print arrData(i, j)
        Next j
    Next i

End Sub

在此示例中，我们首先声明了一个 `Variant` 类型的数组 `arrData`。然后，我们使用 `ws.Range("A1:C10").Value` 语句获取名为 `Sheet1` 的工作表中 `A1:C10` 范围的数据，并将其存储到数组中。接下来，我们使用两个 `For` 循环遍历数组，并使用 `Debug.Print` 语句输出数据。请注意，`LBound` 和 `UBound` 函数用于获取数组的下限和上限。在此示例中，数组是一个二维数组，因此我们需要在循环中使用两个变量 `i` 和 `j` 分别表示行和列。