View Single Post
  #2  
Old June 1st, 2010, 01:13 PM posted to microsoft.public.excel.newusers
Gary''s Student
external usenet poster
 
Posts: 7,584
Default text column - via macro

You can do this without macros, but try this:

Sub SplitUm()
Dim r1 As Range, r2 As Range
Set r1 = Intersect(ActiveSheet.UsedRange, Range("A:A"))
cutt = " - "
For Each r2 In r1
v = r2.Value
r2.Value = Split(v, cutt)(0)
r2.Offset(0, 1).Value = Split(v, cutt)(1)
Next
End Sub
--
Gary''s Student - gsnu201003


"Rohit" wrote:

Hi
Can someone write a macro for me to text column with the folloing

eg in Column A, I have 4602101 - AAAAABBBBBBBCCCCCC
so, I want macro to separate as put 4602101 in column A and the text in
column B