请教各位老师一个小问题~~~

cxzahmg

我想将一个单元格内的数据分开成一列 想用宏来运行  不知道程序该怎么编
如图  就是把b31 单元格内的数据  分到A34-A42单元格内  并且原来b31内的数据也没有了  
注： 原来B31内的数据是由逗号隔开的
请各位老师帮我编段程序  不胜感激~！

gdw831001

Split应该就可以了

cxzahmg

gdw831001 发表于 2015-5-19 12:32
Split应该就可以了

可以举个例子嘛  

gdw831001

1. Sub jj()
   
2.     Dim arr
   
3.     arr = Split(Range("b11"), ",")
   
4.     [A14].Resize(UBound(arr, 1) + 1, 1) = Application.Transpose(arr)
   
5. End Sub

复制代码