excel - 来自范围的2维数组

Question

我在 Excel 工作表的单元格中有文本数据B6:H14。

有些行将有 2 个包含内容的单元格，而其他行将有 4 个，有些将有 7 个。如何将这些复制到二维数组？我已经知道尺寸，所以我可以接受没有声明动态代码的尺寸。

我是否需要使用循环（我目前计划使用）？

还是有更简单/更优雅的方式？

Answer 1

假设您的电子表格看起来像这样

有一种非常简单的方法可以将其粘贴在 2D 数组中

Dim arr as Variant
arr = Range("B6:H14").Value

将此数组打印回电子表格的最简单方法

Sub PrintVariantArr()

    Dim arr As Variant
    arr = Range("B6:H14")

    Range("B16").Resize(UBound(arr, 1), UBound(arr, 2)) = arr

End Sub

或者您可以迭代/循环数组

Sub RangeToArray()

    Dim arr As Variant
    arr = Range("B6:H14").Value
    Dim r As Long, c As Long

    r = 16
    c = 2

    Dim i, j
    For i = LBound(arr, 1) To UBound(arr, 1)
        For j = LBound(arr, 2) To UBound(arr, 2)
            Cells(r, c) = arr(i, j)
            c = c + 1
        Next j
        c = 2
        r = r + 1
    Next i

End Sub

并且您的数组打印回电子表格