字符串怎么拆分成VBA数组？

答：数组的合并和字符串拆分（Join & Split）：

多个字符的合并和字符串按规律的拆分是经常遇到的，如：

            A-REW-E-RWC-2-RWC 按分隔符-拆分成6个字符放在一个数组中

           有一组数array(23,45,7,1,76)想用分隔符-连接成一个字符串

   上面两种情况VBA提供了一对函数，即：

              split（字符串,"分隔符"） 拆分字符串

              join(数组,"分隔符")   用分隔连接数组的每个元成一个字符串

     Sub t1()
      Dim arr, myst As String
       myst = "A-REW-E-RWC-2-RWC"
     arr = Split(myst, "-")  '按-分隔成一组数装入数组中
     'MsgBox arr(0) '显示数组的第一个数(分隔后的数组最小下标为0,不是1),显示结果为A
               MsgBox Join(arr, ",") '再用","把数组的每个值连接成一个字符串,结果为"A,REW,E,RWC,2,RWC"
           End Sub

    值得注意的是：split和join只能对一维数组进行操作，如果是单元格或二维数组怎么办？只有一条途径，想办法转换为一维数组：

            Sub t2()
                 Dim ARR
                 ARR = Application.Transpose(Range("a1:a3")) ‘用转置的方法，把单元格一列数据转换成一维数组
                 MsgBox Join(ARR, "-")
            End Sub