vba程序，从Excel的sheet单元格中读取8个记录，每个记录包括5个数据，将数据放到记录数组中

假设我们要从名为 "Sheet1" 的工作表中读取 8 个记录，每个记录包括 5 个数据（A 列到 E 列），并将它们存储在一个名为 `records` 的记录数组中，可以使用以下 VBA 代码：

Sub ReadData()
    Dim records(1 To 8, 1 To 5) As Variant
    Dim i As Integer, j As Integer
    
    ' 读取数据并存储到记录数组中
    For i = 1 To 8
        For j = 1 To 5
            records(i, j) = Worksheets("Sheet1").Cells(i, j).Value
        Next j
    Next i
    
    ' 输出记录数组
    For i = 1 To 8
        For j = 1 To 5
            Debug.Print records(i, j)
        Next j
    Next i
End Sub

在上面的代码中，我们首先声明了一个名为 `records` 的记录数组，它有 8 行和 5 列，用于存储 Excel 中的数据。然后，我们使用两个嵌套的 `For` 循环，将每个单元格的值存储到记录数组中。最后，我们使用另一个嵌套的 `For` 循环，输出记录数组中的所有数据。

请注意，上面的代码假定数据从单元格 A1 开始，如果数据存储在其他单元格中，请相应地更改代码中的单元格引用。