Excel VBA从非相邻范围创建数组

Question

我无法完全找到问题的答案，但是，如果我还有其他帖子丢失，请告诉我。我正在尝试使用range.value将值添加到动态数组。问题是我要添加到数组中的单元格不是相邻/连续的。数组已创建，但只有（1到2，1到1）。这是我用来测试如何执行此操作的代码：

Sub Ranges()

    Dim arr As Variant

    arr = Sheets(1).Range("I1:I2,K1:K2,M1:M2,O1:O2").Value

    Dim i As Long, j As Long
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            Debug.Print i, j, arr(i, j)
        Next j
    Next i

End Sub