Cách tách chữ in đậm ra trong excel

https://www.extendoffice.com/documents/excel/1651-excel-extract-bold-text.html

-------------

Function GetBold(rng As Range) As String
Dim I As Long
Dim X As Characters
    For I = 1 To Len(rng)
        Set X = rng.Characters(I, 1)
        If X.Font.Bold Then
            GetBold = GetBold & X.Text
        Else
            Exit For
        End If
    Next I
End Function

Key

http://www.msofficegurus.com/post/Extract-only-bold-text-in-an-Excel-cell.aspx

Extract Bold Text Only From List By Using Defined Function