Sub BoldOnlyC_UnBoldOnlyD()
Dim rowNum As Long
For rowNum = 2 To 49
Cells(rowNum, "C") = BoldText(Cells(rowNum, "L"))
Cells(rowNum, "D") = UnBoldText(Cells(rowNum, "L"))
Next
End Sub
Function BoldText(rng As Range) As String
Dim i As Long
For i = 1 To Len(rng.Value)
If rng.Characters(i, 1).Font.FontStyle = "Bold" Then
BoldText = BoldText & rng.Characters(i, 1).Text
End If
Next i
End Function
Function UnBoldText(rng As Range) As String
Dim i As Long
For i = 1 To Len(rng.Value)
If rng.Characters(i, 1).Font.FontStyle <> "Bold" Then
UnBoldText = UnBoldText & rng.Characters(i, 1).Text
End If
Next i
End Function
PS: you may add below statement before the variable declarations in the functions to make formulas recalculate each time when cells change.
Application.Volatile True