find and remove a string of a cell value with comma as delimiter
I just recorded this Macro and seems to work fine,
I highlited the range I wanted changed and clicked on the macro, and
voila,
they say the macro recorder will be a big thing someday!!!
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 2/28/2006 by Dave
'
'
Selection.TextToColumns Destination:=ActiveCell,
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
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))
End Sub
|