如何把某一范围内的单元格的值一次性付给数组

向前650809

各位网友好，对于一个范围内的多个单元格中的值，付给数组，我都是用循环解决。能不能一次性把一范围内的值，一次性付给一个数级。
如A1到D100,这100行4列的单元格中的值，一次付给数组arr(1 to 100,1 to 4)
另：数组中的值即有文本型又有数值型，如何定义数组中值类型
谢谢

Zipall

dim a
a=range("a1:d100").value

用variant变量即可,需要的话可以在使用a(r,c)时用 cint cstr 等函数将其转换成相应类型.

laosanjie

向前650809 发表于 2011-7-5 15:11
各位网友好，对于一个范围内的多个单元格中的值，付给数组，我都是用循环解决。能不能一次性把一范围内的值 ...

  x = Sheets("数据源").Range("a" & Cells.Rows.Count).End(xlUp).Row
    arr = Sheets("数据源").Range("a1:d" & x)
   也可以：
    x = Sheets("数据源").[a65536].End(xlUp).Row
      arr = Sheets("数据源").Range("a1:d" & x)
另：数组中的值即有文本型又有数值型，如何定义数组中值类型
   可直接就写：Dim arr  就可，因其默认的数据类型就是variant (较通用的数据类型，只是占电脑资源多一点而已)

向前650809

variant,这是什么类型

研究研究

dim arr
arr = range("a1:d100)



就2句话  不用多余的语句

laosanjie

向前650809 发表于 2011-7-5 20:18
variant,这是什么类型

Variant 是一种特殊的数据类型，除了定长 String 数据及用户定义类型外，可以包含任何种类的数据。Variant 也可以包含 Empty、Error、Nothing 及 Null等特殊值。可以用 VarType 函数或 TypeName 函数来决定如何处理 Variant 中的数据。

更详细的可在VBA编辑器里选中Variant 后，按F1查看帮助。