字符串按指定分隔符分开
工具/原料
excel2007，字符串（有分隔符）
方法/步骤
1
将字符串粘贴到excel的B1单元格
2
开发工具-插入-表单控件-按钮，按住鼠标左键拖动出 按钮2，出现指定宏对话框-单击取消
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数组.