学习VBA，报表做到飞第二章数组2。3Split与Join

　　第二章 数组
　　2.3 Split与Join
　　把两个函数放在一个章节来学习，是因为两个函数的功能正好相反，Split函数是用分隔符拆分一个字符串生成一个一维数组，Join则是用分隔符把一个一维数组合并成一个字符串。一个拆家一个重建。我们先来看字符串的拆分：
　　1、字符串的拆分
　　Split(expression,[定界符,[limit,[compare]]]
　　Split的4个参数中，只有第一个参数是必选的，它代表需要拆分的字符串。
　　定界符：以什么分隔符为拆分依据，如果以空格为依据来拆分，可以省略此参数
　　Limit：要拆分成几个字符串
　　Compare：分隔符是否区分大小写，默认0 区分大小写，1 不区分大小写
　　例句：
　　a = ＂学习/VBA/报表/做到飞＂
　　arr = Split(a, ＂/＂)
　　以＂/＂为分隔符，把字符串a进行拆分，拆分后的字符串放到数组arr里，它会生成一个从0开始的一维数组。
　　2、把数组合并成字符串
　　Join（数组，分隔符）
　　Join分隔符的使用与Split相同，省略时使用空格作分隔符。
　　例句：
　　把刚才生成的arr数组里的各个数据用分隔符＂-＂连接成一个字符串：
　　a = Join(arr, ＂-＂)
　　得到的结果是：
　　＂学习-VBA-报表-做到飞＂
　　值得注意的是，Split与Join只能对一维数组进行操作，如果是一行或一列单元格生成的二维数组怎么办呢？用神器＂乾坤大挪移＂Transpose啊！一列单元格生成的二维数组转换一次，一行单元格生成的二维数组转换两次，就得到一个一维数组了！就像下面这样：
　　arr = Application.Transpose(Range(＂b1:b5＂))
　　一次转换搞定！
　　小程序：
　　把下面b1:b5单元格的每个数字都加1，然后显示到D列。
　　1-2-3
　　2-3-4
　　3-4-5
　　4-5-6
　　5-6-7
　　Sub Split与Join函数()
　　arr = Application.Transpose(Range(＂b1:b5＂))
　　For i = LBound(arr) To UBound(arr)
　　brr = Split(arr(i), ＂-＂)
　　For j = LBound(brr) To UBound(brr)
　　brr(j) = brr(j) + 1
　　Next j
　　arr(i) = Join(brr, ＂-＂)
　　Next i
　　Range(＂d1＂).resize(UBound(arr), 1) = Application.Transpose(arr)
　　End Sub
　　先把＂b1:b5＂单元格的内容转换后生成一个一维数组arr，再用For循环语句依次读取arr数组里的每一个数据，以＂-＂为分隔符拆分成一个一维数组brr，再对brr数组里的数值分别加1，再以＂-＂为分隔符连接成一个字符串还给arr数组。运行过程如下图所示：
　　往期精彩回顾：
　　学习VBA，报表做到飞 第二章 数组 2.2 数组的上界与下界
　　学习VBA，报表做到飞 第二章 数组 2.1 数组的声明、赋值及读取
　　学习VBA，报表做到飞 第一章 入门篇 1.27 过程与函数
　　我是云飞扬，职场财会人员，愿与大家分享表格制作和数据统计分析的技巧与方法，希望大家的工作更便捷，更轻松！