desertshift ,
I assume that your raw data begins in cell A1.
Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).
Option Explicit
Sub SplitBold()
' stanleydgromjr, 11/21/2010, EF754022
Dim c As Range, a As Long, BS As String, NS As String
Application.ScreenUpdating = False
For Each c In Range("A1", Range("A" & Rows.Count).End(xlUp))
BS = "": NS = ""
For a = 1 To Len(Trim(c)) Step 1
If c.Characters(a, 1).Text = " " Then
BS = BS & c.Characters(a, 1).Text
NS = NS & c.Characters(a, 1).Text
ElseIf c.Characters(a, 1).Font.FontStyle = "Bold" Then
BS = BS & c.Characters(a, 1).Text
ElseIf c.Characters(a, 1).Font.FontStyle <> "Bold" Then
NS = NS & c.Characters(a, 1).Text
End If
Next a
c.Offset(, 1) = Trim(BS)
NS = Trim(NS)
If Left(NS, 1) = Chr(150) Then NS = Right(NS, Len(NS) - 1)
If Left(NS, 1) = Chr(45) Then NS = Right(NS, Len(NS) - 1)
c.Offset(, 2) = Trim(NS)
Next c
Application.ScreenUpdating = True
End Sub
Then run the SplitBold macro.
Bookmarks