从 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)。