vba如何判断数组是否为空（VBA基于内存占用判断数组是否为空）
vba如何判断数组是否为空（VBA基于内存占用判断数组是否为空）Dim arr() As Variant'数组变量的声明实例2：基于内存占用的数组是否为空的判断我们先来看下面的代码：Sub mynzC()
【分享成果，随喜正能量】无妄想时，一心是一佛国；有妄想时，一心是一地狱。众生造作妄想，以心生心，故常在地狱。菩萨观察妄想，不以心生心，故常在佛国。。
《VBA经典应用69例》（10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好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实践经验，全部浓缩在下面的各个教程中：
【分享成果，随喜正能量】不管我们是有意或无意，在这尘世中一律是演员，在一些观众面前，演着他们所认可的戏剧。。
