Friday 5 December 2014

Name Split with space

Sub Name_Split_with_space()
    Columns("A:A").Select ' Place your data in column a and then run the macros
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
    Range("A1").Select
End Sub

No comments:

Post a Comment