Question

如何获取excelrange区域中的数据

如题，想用一个数组储存excel range对象中各个单元格的vaule值 ，有什么函数可以直接返回码 比如将range（A1:A10）的各个单元格的value值赋给数组data1，用VBA代码如何做到呢 别告诉我用for循环 我想知道有没有这样的函数 或者对象属性啥的

Answer 1

直接赋值就是了,赋值后数组是一个二维数组。

 

Sub AA()
Dim Data1
Data1 = Range("A1:A10")
'-------------------------循环处理数据
For i = 1 To UBound(Data1)
Data1(i, 1) = Data1(i, 1) + 10
Next
'--------B1 表示存放位置的起始单元格，UBound(Data1) 表示数组的第一维的下限，也就是代表行数
'-------UBound(Data1,2) 表示数组的第二维的下限，代表列数。
Range("B1").Resize(UBound(Data1), UBound(Data1, 2)) = Data1
End Sub

 

 

处理后：