One column converted to two - - HOW?

[RodneyW]

If someone sends me a database, with one cell with an entry such as "1234 Smith St, Apt 5"

Can it be converted to two cells, one with "1234 Smith Way" and another with "Apt 5"

Thanks in advance

 

[mohadin]

Hi
If text in A1

B1=LEFT(A1,FIND(",",A1)-1)
c1=RIGHT(A1,LEN(A1)-FIND(",",A1)-1)

 

[RodneyW]

Thank you, we;ll try that

 

[Fluff]

If you have an entire column like that you can use Text To Columns on the data tab & select Delimited > Next > Comma > Finish

 

[mohadin]

And if you like with code try for one cell
can easily amended for column

Sub spliteit()
x = Split(Range("a1"), ",")
Range("b1") = x(0)
Range("c1") = x(1)
End Sub

For data in column A

Sub spliteitC()
a = Application.Transpose(Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row))
For i = 1 To UBound(a)
x = Split(Range("a1"), ",")
Range("b" & i) = x(0)
Range("c" & i) = x(1)
Next
End Sub

 

[mohadin]

So sorry correction for the second code

Sub spliteitC()
a = Application.Transpose(Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row))
For i = 1 To UBound(a)
x = Split(a(i)), ",")
Range("b" & i) = x(0)
Range("c" & i) = x(1)
Next
End Sub