단일 셀에서 밑줄, 굵게 및 기울임 꼴을 사용하는 방법이 있습니까?

여러 셀에서이 작업을 수행하려면 아래 코드를 시작점으로 사용할 수 있습니다. 이해하는 데 도움이되는 주석을 코드에 제공했습니다.

Public Sub HUBSpecificStyle()
    Dim rng As Range
    Dim varContent, varFirstRow
    
    '\\Loop through all cells in selection
    For Each rng In Range("A2:B2") '\\ Set your range reference here
        varContent = Split(rng.Value, Chr(10)) '\\ Split cell contents by newline character
        With rng
            '\\ First two lines of row bold
            .Characters(1, Len(varContent(0) & Chr(10) & varContent(1))).Font.Bold = True
            '\\Third line underline
            .Characters(Len(varContent(0) & Chr(10) & varContent(1) & Chr(10)) + 1, Len(varContent(2))).Font.Underline = True
            '\\ Split first line with hyphens
            varFirstRow = Split(varContent(0), "-")
            '\\Third part italic
            .Characters(Len(varFirstRow(0) & "-" & varFirstRow(1) & "-") + 1, Len(varFirstRow(2))).Font.Italic = True
        End With
    Next rng

End Sub