VBA选定区域的内容如何读入数组

Question

一、我想把动态的选定区域的数据按行划分，读入多维数组，即选定区域的一个行为一个元素，有几行这个多维数组就有几个元素。比如：把C3：F28读入数组，每行的四个单元格的数据为数组的一个元素。
二、如果把动态的选定区域的数据按一个单元格为数组的一个元素，输入单维数组，应该如何编制VBA？比如：把C3：F28读入数组，每个单元格的数据为数组的一个元素。

请大侠指教！

Answer 1

1 动态数组实现
定义一个自定义类型
type ExcelRows
colnum () as integer '当前第几列
colValue() as string '当前列的值
end type
2. ActiveWorkbook.Worksheets(i).UsedRange 可以获得选定的区域对象
然后取得选定区域的列数iC和行数iR
dim rangedata(ir) as ExcelRows
for i=0 to ic-1
redim rangedata(i).colnum(ic)
redim rangedata(i).colvalue(ic)
next
3 . 把数据写入上边声明的rangedata数组

Answer 2

1 把某一区域的内容读入到数组中:
Dim strArray() As Variant
Dim wk_data As Variant
Set wk_data = Sheets("Sheet1")
strArray = wk_data.Range("A1:CV100").Value

2 把数组的内容写入：
wk_data.Range("A1").Resize(UBound(strArray, 1), UBound(strArray, 2)).Value = strArray