多個(gè)字符的合并和字符串按規(guī)律的拆分是經(jīng)常遇到的，如：

            A-REW-E-RWC-2-RWC 按分隔符-拆分成6個(gè)字符放在一個(gè)數(shù)組中

           有一組數(shù)array(23,45,7,1,76)想用分隔符-連接成一個(gè)字符串

   上面兩種情況VBA提供了一對(duì)函數(shù)，即：

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

              join(數(shù)組,"分隔符")   用分隔連接數(shù)組的每個(gè)元成一個(gè)字符串

     Sub t1()
      Dim arr, myst As String
       myst = "A-REW-E-RWC-2-RWC"
     arr = Split(myst, "-")  '按-分隔成一組數(shù)裝入數(shù)組中
     'MsgBox arr(0) '顯示數(shù)組的第一個(gè)數(shù)(分隔后的數(shù)組最小下標(biāo)為0,不是1),顯示結(jié)果為A
               MsgBox Join(arr, ",") '再用","把數(shù)組的每個(gè)值連接成一個(gè)字符串,結(jié)果為"A,REW,E,RWC,2,RWC"
           End Sub

    值得注意的是：split和join只能對(duì)一維數(shù)組進(jìn)行操作，如果是單元格或二維數(shù)組怎么辦？只有一條途徑，想辦法轉(zhuǎn)換為一維數(shù)組：

            Sub t2()
                 Dim ARR
                 ARR = Application.Transpose(Range("a1:a3")) ‘用轉(zhuǎn)置的方法，把單元格一列數(shù)據(jù)轉(zhuǎn)換成一維數(shù)組
                 MsgBox Join(ARR, "-")
            End Sub