Как выделить жирным часть текста в ячейке excel

У меня есть строка внутри ячейки, и я пытаюсь выделить определенные части этой строки жирным шрифтом. У меня есть настройка кода, поэтому каждый случай представляет собой строку в этой ячейке.

Первая ячейка — это то, с чего я начинаю, а ячейка под ней — это то, что я пытаюсь сделать. Ниже мой код того, что у меня есть.

Sub test()

            For Each cel In Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row)
             
                 Dim arr, line As Long, pos As Long, txt, length, dashPos
                 
                 arr = Split(cel.Value, Chr(10)) ' Spliting cell contents by newline character
                 
                 pos = 1
                 For line = 1 To UBound(arr) + 1
                     
                     txt = arr(line - 1)
                     length = Len(txt)
                 
                     'check which line we're on...
                     Select Case line
                         Case 4: 'Underline on line 4
                             cel.Characters(pos, length).Font.Underline = True
                         Case 5: 'Bold the team players
                            
                            
                         Case 6: 'Underline on line 6
                             cel.Characters(pos, length).Font.Underline = True
                     End Select
                 
                     pos = pos + Len(txt) + 1 'start position for next line
                 Next line
    
                Next cel
End Sub

Поскольку вы ищете определенный шаблон, я подумал, что это можно сделать с помощью регулярных выражений, поскольку каждое совпадение в объекте MatchCollection2 будет иметь начальный индекс, включающий длину захваченного шаблона. Представим себе следующие образцы данных:

Теперь мы можем применить следующий код:

Sub Test()

Dim str As String: str = [A1]
Dim colMatch, objMatch

With CreateObject("vbscript.regexp")
    .Global = True
    .Pattern = "S+:(?=.*$)"
    If .Test(str) = True Then
        Set colMatch = .Execute(str)
        For Each objMatch In colMatch
            Range("A1").Characters(objMatch.FirstIndex, objMatch.Length).Font.Bold = True
        Next
    End If
End With

End Sub

Результат:

О шаблоне регулярного выражения:

S+:(?=.*$)

Вы можете увидеть интерактивную демонстрацию здесь и небольшую разбивку ниже:

• S+: — 1+ непробельный символ до двоеточия включительно.
• (?= — позитивный взгляд на будущее:
  • .*$ — 0+ символов, кроме новой строки, до привязки конечной строки.
  • ) — закрыть позитивный взгляд на будущее.

Примечание. Нам нужно либо забыть о свойстве «Новая строка» объекта регулярного выражения, либо установить для него значение FALSE. В приведенном мною примере я просто не включил его, потому что тогда по умолчанию будет FALSE. Если было установлено значение true, привязка конечной строки не будет просто соответствовать концу всей строки, а будет соответствовать концу каждой строки (чего мы хотим избежать, если не хотим соответствовать «Server:»).