Hi
Try this code VBA in a module
You may need change "Bold" to another FontStyle (in the portuguese version is "Negrito")
Sub SplitBold()
Dim a As Range, i As Integer, j As Integer
Application.ScreenUpdating = False
Set a = Selection
For i = 1 To a.Rows.Count
For j = 1 To Len(a(i, 1).Value) + 1 \ 4
a(i, j + 1).Value = Mid(a(i, 1), j * 4 - 3, 3)
a(i, j + 1).Font.Bold = a(i, 1).Cells(1, 1).Characters(Start:=4 * j - 3, Length:=3).Font.FontStyle = "Bold"
Next j
Next i
Application.ScreenUpdating = True
End Sub
Select the range A2:A10 (adjust as need, only one column) and run the code SplitBold.
Note that columns B2:R10 will be overwrited.
See the file
Bookmarks