使用Font.Characters设置Excel单元格文本格式时范围异常的问题

在使用VBA给Excel单元格设置文本格式时，遇到了两个不符合预期的问题：

• 尝试给第3-5个字符设为粗体，结果从第3个字符到文本末尾全部变成粗体
• 新增取消第30-32个字符粗体的逻辑后，结果第3-32个字符仍保持粗体

原代码：

Private Sub TestFormatting()
    Dim TSheet As Worksheet
    Set TSheet = Worksheets("Test")
    
    TSheet.Cells(5, 1) = "This is some text" & vbLf & "This is some more text"
    
    With TSheet.Cells(5, 1)
        For i = 3 To 5
            .Characters(i).Font.Bold = True
        Next i
    End With
End Sub

修改后代码：

Private Sub TestFormatting()
    Dim TSheet As Worksheet
    Set TSheet = Worksheets("Test")
    
    TSheet.Cells(5, 1) = "This is some text" & vbLf & "This is some more text"
    
    With TSheet.Cells(5, 1)
        For i = 3 To 5
            .Characters(i).Font.Bold = True
        Next i
        For i = 30 To 32
            .Characters(i).Font.Bold = False
        Next i
    End With
End Sub

问题原因 #

Characters方法仅传入起始位置参数时，Excel会默认将格式应用范围设为从起始位置到文本末尾的所有字符：

• 原代码循环设置i=3到5时，第一次执行.Characters(3).Font.Bold = True就已经把第3个字符到末尾全部设为粗体，后续循环操作不会改变结果
• 修改后代码执行取消30-32字符粗体时，每次.Characters(i).Font.Bold = False会把第i个字符到末尾设为非粗体，最终导致第3-29个字符还是粗体，第30到末尾为非粗体，视觉上呈现第3-32个字符仍为粗体的效果

正确写法 #

必须同时指定Start（起始位置）和Length（字符长度）参数，精准定位需要修改的字符范围，无需循环单个字符：

Private Sub TestFormatting()
    Dim TSheet As Worksheet
    Set TSheet = Worksheets("Test")
    
    TSheet.Cells(5, 1) = "This is some text" & vbLf & "This is some more text"
    
    With TSheet.Cells(5, 1)
        ' 第3-5个字符：起始位置3，共3个字符（5-3+1=3）
        .Characters(Start:=3, Length:=3).Font.Bold = True
        ' 第30-32个字符：起始位置30，共3个字符
        .Characters(Start:=30, Length:=3).Font.Bold = False
    End With
End Sub

内容的提问来源于stack exchange，提问作者MarkA