Excel VBA宏无法为单元格加粗文本添加前置分号，求问题排查

现有3列格式一致的数据，示例内容（单元格内多行文本）：

<strong>I Love Chocolate</strong>
I really love chocolate
I want to drink hot chocolate
<strong>I have a red bike</strong>
I buy it with my own money
<strong>I hate mouse</strong>
I hate mouse since I was little

预期效果：在单元格内每一行加粗文本前添加分号：

;<strong>I Love Chocolate</strong>
I really love chocolate
I want to drink hot chocolate
;<strong>I have a red bike</strong>
I buy it with my own money
;<strong>I hate mouse</strong>
I hate mouse since I was little

• 错误识别加粗标记：你的代码用*作为加粗文本的标识，但实际Excel单元格中的加粗是字符格式属性，并非文本内容里的*符号。你的数据里没有*，所以代码找不到任何需要处理的目标，自然没有效果。
• 未匹配多行文本结构：代码是全局扫描文本，但需求是针对单元格内的每一行（以换行符分隔）判断是否加粗，原逻辑没有拆分多行，也没有结合字符位置去检查格式。

Sub AddSemicolonBeforeBoldText()
    Dim rng As Range
    Dim cell As Range
    Dim textLines() As String
    Dim i As Integer
    Dim lineStart As Integer, lineEnd As Integer
    Dim isBoldLine As Boolean
    
    Set rng = ActiveSheet.UsedRange
    
    For Each cell In rng
        If cell.HasFormula Then GoTo ContinueLoop
        
        ' 将单元格文本按换行符拆分成行数组
        textLines = Split(cell.Value, vbLf)
        lineStart = 1
        
        For i = LBound(textLines) To UBound(textLines)
            lineEnd = lineStart + Len(textLines(i)) - 1
            isBoldLine = False
            
            ' 检查当前行的字符是否全部加粗（匹配示例中的整行加粗场景）
            On Error Resume Next ' 处理空行的情况
            isBoldLine = cell.Characters(lineStart, Len(textLines(i))).Font.Bold
            On Error GoTo 0
            
            If isBoldLine Then
                ' 在该行开头插入分号
                cell.Characters(lineStart, 0).Insert ";"
                ' 插入后后续行的起始位置需要偏移1位
                lineStart = lineEnd + 2
            Else
                lineStart = lineEnd + 1
            End If
        Next i
        
ContinueLoop:
    Next cell
End Sub

1. 先通过Split(cell.Value, vbLf)把单元格内的多行文本拆分成数组，方便逐行处理
2. 计算每一行在单元格文本中的起始和结束位置，检查该行的字符格式是否为加粗
3. 如果是加粗行，在该行的起始位置插入分号，同时调整后续行的位置（因为插入了一个字符，位置需要+1）
4. 加入了错误处理，避免空行导致的报错

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