a1中有1,2,3,4,5,6这6个数字并有逗号，如何将1,2,3,4,5,6拆分到A1,b1,c1,d1,e1,f1中并消除逗号。谢谢

楼上都说用分列了干吗再写个宏？不明白。
直接用数据 － 分列，按逗号分就是了

利用分列的办法。其宏代码如下

Sub Macro1()
'
' Macro1 Macro
' 宏由 SKYLZY 录制，时间: 2011-12-2
'

'
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=True, Space:=True, Other:=False, FieldInfo:= _
Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1)), _
TrailingMinusNumbers:=True
End Sub

如图