将工作表读入二维数组

Question

由于我的搜索结果都没有达成一个相当容易理解的解决方案，所以我特此发布我的问题，希望得到一些帮助;因为我对VBA还不熟悉。

作为第一步，我尝试将数据从工作表读取到二维数组中，以便将此表的不同部分复制到其他工作表中（通过一些操作）。

当前工作表包含一些标题（不相关）和从单元格（A4）开始的数据。我可能有一个设置列值（让我们假设它现在是50），但行数是可变的。

另一点，我不知道它是否重要，是否任何行中的某些单元格可能为空，但第一个单元格将始终具有值。

非常感谢任何帮助或指示。

Answer 1

以下是将活动工作表中包含可变行数的50列数据拖放到二维数组中的典型示例：

Sub GetData()
    Dim r As Range
    Dim N As Long
    N = Cells(Rows.Count, "A").End(xlUp).Row
    arr = Range("A4:AX" & N)
End Sub