将工作表读入二维数组

时间:2014-05-21 16:43:54

标签: arrays excel vba excel-vba

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

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

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

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

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

1 个答案:

答案 0 :(得分:0)

以下是将活动工作表中包含可变行数的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