VBA函数精选之二十二（Join 函数）

蓝桥玄霜

第1.22例 Join函数
一、题目：
要求编写一段代码，运用Join函数，通过连接某个数组中的多个子字符串而创建的一个字符串。
二、代码：
Sub 示例_1_022()
    Dim ss
    ss=Array("一月", "二月", "三月")
    [A1]=Join(ss,",")
End Sub
三、代码详解
1、Sub 示例_1_022()：宏程序的开始语句。宏名为示例_1_022。
2、Dim ss    ：声明变量ss为可变型变量。
3、ss=Array("一月", "二月", "三月") ：把Array函数得到的一维数组赋给变量ss。注意必须是一维数组。
4、[A1]=Join(ss,",")   ：把数组ss的各个元素用逗号连接起来赋给A1单元格。返回”一月,二月,三月”；
如果省略分隔符 [A1]=Join(ss)  则用空格来分隔，返回”一月 二月 三月”；
如果分隔符是零长度字符串("") [A1]=Join(ss,"") 则没有分隔符了，返回”一月二月三月”。

Join函数
返回一个字符串，该字符串是通过连接某个数组中的多个子字符串而创建的。
Join(sourcearray[, delimiter])

Join函数语法有如下命名参数：
sourcearray        必需的。包含被连接子字符串的一维数组。注意是一维数组。
delimiter        可选的。在返回字符串中用于分隔子字符串的字符。如果忽略该项，则使用空格(" ")来分隔子字符串。如果delimiter是零长度字符串("")，则列表中的所有项目都连接在一起，中间没有分隔符。

VBA函数精选之二十一（IsNumeric 函数）：http://club.excelhome.net/viewth ... e%3D1&frombbs=1

龙城飞将III

赞蓝神，第22个函数学习完毕，mark一下！
这个函数太赞了，工作表函数中正好缺这么一个。

孔家的

第22个函数，学习了！