爱疯 发表于 2012-3-19 12:30
Sub a()
Columns(1).Copy Range("b1")
Columns(2).Replace " ", ""
爱疯大大,你好。我试着录了一下,代码如下,看不懂啊。
Sub Macro2()
'
' Macro2 Macro
'
'
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1)), _
TrailingMinusNumbers:=True
End Sub
下面这个是针对A1单元格,分行的操作,也不是很懂,能否再帮帮忙?
Sub qiege()
Dim arr As Variant
arr = Split(Cells(1, 1), ",")
Cells(1, 1).Resize(UBound(arr) + 1, 1) = Application.Transpose(arr)
End Sub
|