【分享成果，随喜正能量】无妄想时，一心是一佛国；有妄想时，一心是一地狱。众生造作妄想，以心生心，故常在地狱。菩萨观察妄想，不以心生心，故常在佛国。。

《VBA经典应用69例》（10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是教程的应用11内容：VBA基于内存占用判断数组是否为空

应用11 利用VBA判断数组是否为空

我们这个专题的内容是有关数组的知识，数组一直是VBA知识点中一个比较关键的所在。我们在学习过程中一定要了解什么是数组，数组在具体程序应用过程中的意义是什么？当相同数据类型的项的列表或集合存储在连续的内存位置时，我们称之为数组；数组是软件开发中广泛用于存储数据的有用对象。

3 基于内存占用来判断数组是否为空

在上面的讲解中我们利用了Len函数、Join函数、Trim函数协同作用完成了数组是否为空的判断，但是，这种判断是基于数组形成的字符串长度来判断的。实际上，对于数组而言，当分配了内存给他，严格意义上来讲，此时数组就不能称为空数组了。这部分的讲解中我们将讨论这个问题。我们看下面的这个实例。

实例2：基于内存占用的数组是否为空的判断

我们先来看下面的代码：

Sub mynzC()

'数组变量的声明

Dim arr() As Variant

Application.SendKeys "^g"

'数组现在应该是空的

Debug.Print IsArray_Empty(arr)

'定义数组大小

ReDim arr(8)

'数组有一个大小。按照这个逻辑，它不是空的

'我们在赋值之前检查数组是否为空

Debug.Print IsArray_Empty(arr)

'为数组元素赋值

For i = 0 To 8

'通过循环为每个数组项分配数据

arr(i) = Sheets("sheet1").Cells(i + 2, 1).Value

Next

'再次验证数组是否为空

Debug.Print IsArray_Empty(arr)

End Sub

Function IsArray_Empty(arr_var As Variant)

Dim UU As Integer

On Error Resume Next

UU = UBound(arr_var, 1)

If Err.Number = 0 Then

IsArray_Empty = "此时数组不为空"

Else

IsArray_Empty = "此时数组为空"

End If

End Function

代码截图：

代码解读：

1）Dim arr() As Variant 首先定义的是可变数组，此时并没有分配内存给它。这个时候是空的内存。

2）ReDim arr(8) 此时分配内存给了数组，这个时候数组就不是空了。

3）arr(i) = Sheets("sheet1").Cells(i + 2, 1).Value 赋值后的数组当然不是空了。

4）UU = UBound(arr_var, 1) 假如此时数组是空的，返回的Ubound()将是一个错误，错误被捕捉后可以用于判断数组大小的依据。

代码的运行结果：

(待续)

本讲内容参考程序文件：应用011.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】不管我们是有意或无意，在这尘世中一律是演员，在一些观众面前，演着他们所认可的戏剧。。