《VBA经典应用69例》（版权10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容是VBA经典应用69例应用11.2 利用Join函数检查数组是否为空
【分享成果，随喜正能量】无人问津的日子里，定心，静心，做好自己的事，一切烦躁焦虑都烟消云散。有的人陷入困境，不是被人所困，而是自己束缚自己，这时"解铃还须系铃人"，如果自己无法放下，如何能脱困？
应用11.2 利用Join函数检查数组是否为空
Join 函数:返回通过联接数组中包含的大量子字符串创建的字符串。
语法：Join (sourcearray，[delimiter])
参数：
1）sourcearray 必填。 一维度组，包含要联接的子字符串。
2）delimiter 可选。 用于分隔返回字符串中子字符串的字符串。 如果省略，将使用空格 (" ")字符。 如果 delimiter 是一个零长度字符串 ("")，将连接列表中的所有项，而不使用分隔符。
实例1：将数组值合并后，通过长度判断是否为空
我们这讲中先给大家介绍一个实例，这个实例是将一个数组的项值连接在一起，然后通过 len函数来判断形成字符串的长度。如下代码：
Sub mynzB()
' 把"Orange", "Apple" and "Mango"串在一起 .
Dim all_fruits As String
Dim fruits(0 To 2) As String
'赋给数组以初始值
fruits(0) = "Orange"
fruits(1) = "Apple"
fruits(2) = "Mango"
'提取数组值到字符串
all_fruits = Trim(Join(fruits))
'输出到计数窗口
Application.SendKeys "^g"
If Len(all_fruits) <> 0 Then
Debug.Print "fruits array is :" & all_fruits
Else
Debug.Print "Fruits array is empty"
End If
End Sub
代码截图：
代码讲解：
1） all_fruits = Trim(Join(fruits)) 这句代码是将数组拆分成字符串，拆分的符号是“ ”。
2）Application.SendKeys "^g" 这句代码是激活即时窗口。
3）Debug.Print "fruits array is :" & all_fruits和Debug.Print "Fruits array is empty"是两种情况的结果输出。
代码的运行结果：
我20多年的VBA实践经验，全部浓缩在下面的各个教程中：