It can be solved with a UDF:
Function ExtrBold(str)
ExtrBold = quot;quot;
For s = 1 To Len(Range(str).Value)
If Range(str).Characters(1, s).Font.Bold Then
ExtrBold = Left(Range(str).Value, s)
Else
Exit Function
End If
Next s
End Function
Usage:
=ExtrBold(ADDRESS(1,1,4,1))
where ADDRESS(1,1,4,1) refers to cell A1
Regards,
Stefi
?bamse??ezt ?rta:
gt; Hello!
gt; I have a great list of names in a column.
gt; The names are in bold letters, and the titles is in normal letters.
gt;
gt; Is there a way to extract only the bold letters from these cells?
gt;
gt; I have spent a few hours searching for this but haven't seen any solutions
gt; for it.
gt;
gt; Most thankful
gt; /Henrik
gt;
gt;
- Nov 03 Mon 2008 20:47
Extract bold letters in a cell
close
全站熱搜
留言列表
發表留言