One way to do this is use the following function.
'-------------------------------------
Function splitText(r As Range, s As String, col As Byte)
Dim txt As String
Dim c
txt = r.Value
c = Split(txt, s)
splitText = c(col - 1)
End Function
'-------------------------------------
in cell B1 put the formula splitText(A1,",",1)
similarly, in cell C1 put the formula splitText(A1,",",2)
and so on.
Akhilesh Kumar Karna
On Thu, Nov 20, 2008 at 12:13 AM, Mike <[EMAIL PROTECTED]> wrote:
>
> Hi,
> i have a data populated into a column with company name and other data
> devided by a comma.
>
> So it looks something like:
>
> AAA Inc., Series1
> ABCD Ltd., Class 99
> 1234 Bank, Some Data 999
> and so on
>
> How could i put everything to the left from comma to column B and
> everything to the right from comma to column C?
> Thanks very much.
> Mike
>
>
>
>
>
> >
>
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
