VBA 动态数组存储多个工作表数据

使用 VBA 动态数组存储多个工作表数据

如果你想要一个动态数组分别存储多个工作表的内容，你可以使用一个二维数组来存储多个工作表的数据。以下是修改后的代码示例：

Sub aaaa1()
    Dim dataArr() As Variant
    Dim i As Integer
    Dim numSheets As Integer

    numSheets = 2 ' 根据实际情况设置工作表的数量

    ReDim dataArr(1 To numSheets)

    For i = 1 To numSheets
        dataArr(i) = Worksheets(i).Range('A2:G1000').Value
    Next i

    ' 现在可以通过 dataArr(1), dataArr(2), ... 访问每个工作表的数据

    ' 示例：输出第一个工作表的数据
    Dim r As Long, c As Long
    For r = LBound(dataArr(1)) To UBound(dataArr(1))
        For c = LBound(dataArr(1), 2) To UBound(dataArr(1), 2)
            Debug.Print dataArr(1)(r, c)
        Next c
    Next r

End Sub

在上述示例中，dataArr 是一个动态数组，通过循环遍历工作表，将每个工作表的数据存储到 dataArr 中的相应索引位置。

你可以根据实际情况修改 numSheets 的值来适应工作表的数量。然后，通过 dataArr(1), dataArr(2), ... 访问每个工作表的数据。

希望这可以满足你的需求！如果还有其他问题，请随时提问。