VBA数组用基础.pptVIP

VBA数组应用基础 1. 数组的声明 Dim arr ‘声明Variant变量 Dim arr As Variant ‘与上句相同 Dim arr(1 to 10) ‘声明一个一维数组 Dim arr(1 to 10, 1 to 3) ‘声明二维数组 Dim arr() ‘声明动态数组 ReDim arr(1 to k) ‘动态数组再声明 Dim arr(-19 to 8) ‘下标可以为负值 Dim arr(-19 to 8, 2 to 5) ‘下标可以变动 2. 把单元格数据装入内存 Arr=Range(“A9:C100”) Arr=Application.Transpose(Range(“A1:A100”) Range(“A1:I1”)=Application.Transpose(arr) Range(“A1:A9”)=Application.Transpose(arr) 3. 函数LBound(arr)和UBound(arr) Dir arr(-19 to 8, 2 to 5) LBound(arr) ‘返回－19 UBound(arr) ‘返回8 UBound(arr,1) ‘返回8 LBound(arr,2) ‘返回2 UBound(arr,2) ‘返回5 Arr=Sheets(1).UsedRange UBound(arr,1) ‘返回其行数 UB