Excel VBA -使用不同单元格中字符串的长度设置单元格中部分字符串的格式

Sub FormatPartialString()
    Dim cell As Range
    Dim str As String
    Dim len As Integer
    
    For Each cell In Selection
        str = cell.Value
        len = Len(str)
        
        ' 设置前5个字符为粗体
        If len >= 5 Then
            cell.Characters(1, 5).Font.Bold = True
        End If
        
        ' 设置后3个字符为斜体
        If len >= 3 Then
            cell.Characters(len - 2, 3).Font.Italic = True
        End If
    Next cell
End Sub