Hi Everyone,
I've got text in cells that is as follows
Is there a way i can seperate this column into columns B and C.Column A Excel Microsoft Microsoft Excel etc
i.e. I want the Bolded values in column B and the non bold in column C
CheersColumn A Column B Column C Excel Microsft Excel Microsoft Microsoft Excel Microsoft Excel
Is the data always in this format? Couldn't you just use text to columns on the space?
Click the * below to say thanks
Girls sleep with guys who use photoshop, but marry the ones who work with Excel
Corduroy pillows: They're making headlines!
Did you mean: recursion
http://www.google.com/search?hl=en&q=recursion
Try This Code
Sub SplitBold() Dim i As Long Dim c As Integer For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row For c = 1 To VBA.Len(Range("A" & i)) If Range("A" & i).Characters(c, 1).Caption <> " " Then If Range("A" & i).Characters(c, 1).Font.FontStyle = "Bold" Then Range("B" & i) = Range("B" & i) & Range("A" & i).Characters(c, 1).Caption Range("B" & i).Font.Bold = True Else Range("C" & i) = Range("C" & i) & Range("A" & i).Characters(c, 1).Caption End If End If Next Next End Sub
Last edited by Kelshaer; 01-05-2012 at 10:07 AM.
Regards,
Khaled Elshaer
www.BIMcentre.com
Remember To Do the Following....
- Thank those who have helped you by clicking the Star below their post.
- Mark your post SOLVED if it has been answered satisfactorily:
- Select Thread Tools (on top of your 1st post)
- Select Mark this thread as Solved
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Reply With Quote
Bookmarks