二十二讲 数组空间有关问题

1 数组旳大小

Lbound(数组）可以获取数组的最小下标

Ubound（数组）可以获取数组的最大上标

Ubound（数组，1）可以获取数组的行方面最大上标

Ubound（数组，2）可以获取数组的列方向最大上标

2 动态数组的动态扩充

2.1一维数组的扩充

如果一个数组无法或者不方便计算出总的大小，而在一些特殊情况下又不允许有空位，这时我们就需要用动态的导入方法

Private Sub ComboBox1_GotFocus()

Dim arr(), x, arr1, k

arr1 = Range("a1:a10")

For x = 1 To UBound(arr1)

If arr1(x, 1) > 10 Then

k = k + 1

ReDim Preserve arr(1 To k)

arr(k) = arr1(x, 1)

End If

Next x

ComboBox1.List = arr

End Sub

运行有问题，暂时没发现

2.2 二维数组的扩充

Sub t11()

Dim arr, arr1()

arr = Range("a1:d6")

Dim x, k

For x = 1 To UBound(arr)

If arr(x, 1) = "B" Then

k = k + 1

ReDim Preserve arr1(1 To 4, 1 To k) '应该是K行四列，把行当成列，把列当成行。在列的方向扩充。

arr1(1, k) = arr(x, 1)

arr1(2, k) = arr(x, 2)

arr1(3, k) = arr(x, 3)

arr1(4, k) = arr(x, 4)

End If

Next x

Range("a8").Resize(k, 4) = Application.Transpose(arr1) '行列转置

End Sub

这样扩充的方法比较难以掌握。可以用以下的方法

Sub d8()

Dim arr, arr1(1 To 1000, 1 To 4)

arr = Range("a1:d6")

Dim x, k

For x = 1 To UBound(arr)

If arr(x, 1) = "B" Then

k = k + 1

arr1(k, 1) = arr(x, 1)

arr1(k, 2) = arr(x, 2)

arr1(k, 3) = arr(x, 3)

arr1(k, 4) = arr(x, 4)

End If

Next x

Range("a15").Resize(k, 4) = arr1

End Sub

3 清空数组

把原来数据清除掉重新装

erase arr1

Sub d9()

Dim arr, arr1(1 To 1000, 1 To 1)

Dim x, m, k

arr = Range("a1:a16")

For x = 1 To UBound(arr)

If arr(x, 1) <> "" Then

k = k + 1

arr1(k, 1) = arr(x, 1)

Else

m = m + 1

Range("c1").Offset(0, m).Resize(k) = arr1

Erase arr1 '数组清空，重新装数据

k = 0 'k也需要初始一下，k是计数器

End If

Next x

End Sub