Извлечение жирного шрифта из ячейки в Microsoft Excel (2007)

Question

У меня есть электронная таблица, в которой ячейки содержат значения, одно из которых выделено жирным шрифтом. (Это список тикеров, жирный - основной тикер для компании.) Я хотел бы извлечь жирный шрифт из ячейки.

Вот ссылка с примерами данных:https://drive.google.com/file/d/0Bz3ZKmiPPjmuNmY3MlRyZFRXa2s/view?usp=sharing

Answer 1

Это должно работать:

Function findBold(ByVal rngText As Range) As String
    findBold = ""
    Dim theCell As Range
    Set theCell = rngText.Cells(1, 1)
    For i = 1 To Len(theCell.Value)
        If theCell.Characters(i, 1).Font.FontStyle = "Bold" Then
            theChar = theCell.Characters(i, 1).Text
            Results = Results & theChar
        End If
   Next i
   findBold = Results
End Function

Если ваши данные находятся в ячейке A1, тогда вы должны поместить в ячейку B1 формулу =findBold(A1) .