vba 数组赋值_将工作表数据写入VBA数组

大家好 , 最近推出的内容是“ VBA 信息获取与处理”中的部分内容，这套教程面向中高级人员，涉及范围更广，实用性更强， 现在的内容是第 四 个专题 “EXCEL工作表数据的读取、回填和查找”的内容。

第二节 将工作表数据写入VBA数组

在上一节中我们讲了实现工作表数据与 VBA代码间传输的几种方法，这讲我将我们将着重讲解如何将工作表的数据写入数组。

1  读取工作表上的范围并将其放入数组

在VBA中，可以直接读取工作表上的范围并将其放入数组，这种方法非常简单。例如， Dim Arr() As Variant Arr = Range("A1:C5") 上述代码中首先声明一个变体型可变数组变量 ， 然后将这个变量指向指定的区域 ， 如果我们不能确定这个区域的大小 ， 或者这个区域是可变的 ， 我们可以利用下面的语句 ； ① myarr = Sheets("41").UsedRange ② myarr = Sheets("40").[a1].CurrentRegion ③ myarr = Range("a2:c" & Range("c2").End(xlDown).row)  ④