VBA第二十四期 VBA如何将单元格区域传递给二维数组

在处理数据工作表时，我们大多时候需要除了的不连续区域的单元格数据，对于比较规则的单元格区域我们可以采用Range和Cells，但对于不规则数据区域就需要动刀二维数组了，实例如下：

Sub Rgto var()

  Dim x as Variant

Dim r as long,c as integer

  X=Range(“data”).value

  For r=1 to Ubound(x,1)

For c=1 to ubound(x,2)

  X(r,c)=xr,c)*2

Next

  Next

 Range(“data”)=x

Endsub

这里可以看出来在读取和存入数组的时候应用的属性格式不一样，分别是Range(“data”).value和 Range(“data”)。