学习VBA，报表做到飞 第二章 数组 2.3 Split与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数组。运行过程如下图所示：