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