excel如何将字符串按指定分隔符分开

1、将字符串粘贴到excel的B1单元格

2、开发工具-插入-表单控件-按钮，按住鼠标左键拖动出 按钮2，出现指定宏对话框-单击取消

3、单击查看代码

4、将一下代码粘贴，保存！

Sub 按钮2_Click()

    Dim Arr As Variant

    Arr = Split(Cells(1, 2), ",")

    Cells(1, 1).Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr)

End Sub

5、鼠标单击按钮2，运行VBA程序。运行成功

Arr = Split(Cells(1, 2), ",")：用，作为分割符，分割B1字符串，存入Arr数组。

 Cells(1, 1).Resize(UBound(Arr) + 1, 1) = Application.Transpose(Arr)：就是把 一个单元格区域 赋值给一个Arr数组.