Extrai o valor em negrito da célula no Microsoft Excel (2007)

Question

Eu tenho uma planilha na qual as células contêm valores, um dos quais está em negrito. (É uma lista de tickers, o negrito é o principal ticker da empresa.) Eu gostaria de extrair o valor em negrito da célula.

Aquiestáumlinkcomdadosdeamostra: link

    

Answer 1

Isso deve funcionar:

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

Se seus dados estiverem na célula A1 , você deverá colocar na célula B1 a fórmula =findBold(A1) .