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数组.
