Подсчитайте длину жирного слова в строке

Question

Кто-нибудь может мне помочь?

У меня есть строка: CLR .CLR самая ...

Я хочу получить длину жирного слова

Answer 1

Вы можете изменить ниже:

Option Explicit

Sub test()

    Dim j As Long, Count As Long

    With ThisWorkbook.Worksheets("Sheet1") 'Change sheet name if needed

        'Lets say string appears in cell A1
        For j = 1 To Len(.Range("A1").Value)

            If .Range("A1").Characters(j, 1).Font.FontStyle = "Bold" Then
                Count = Count + 1
            End If

        Next j

        Debug.Print Count

    End With

End Sub