VBA经典应用69例应用11.2 利用Join函数检查数组是否为空

《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实践经验，全部浓缩在下面的各个教程中：