在VBA中将范围分配给数组

Sub RangeToArray()
    Dim arr() As Variant
    Dim rng As Range

    ' 定义你想要的范围
    Set rng = ThisWorkbook.Sheets("Sheet1").Range("A1:C3")

    ' 将范围的值分配给数组
    arr = rng.Value

    ' 现在，'arr'是一个包含范围内值的二维数组
    ' 你可以通过行和列索引来访问这些值，例如：
    Debug.Print arr(1, 1)  ' 打印A1单元格的值
    Debug.Print arr(2, 3)  ' 打印C2单元格的值
End Sub