Comments on: Detect bold text in MS Excel

Question: Detect bold text in MS Excel

beniamino — Sun, 02 Nov 2008 14:36:39 -0800

I have a very large MS Excel spreadsheet in Mac Office 2008 (yuk). I want to find every cell that contains bold text and append an asterisk to it -- i.e. "bold cell text" becomes "bold cell text*". I can probably find a Windows machine if necessary. How can this be done automatically?

By: pompomtom

pompomtom — Sun, 02 Nov 2008 15:01:55 -0800

The following macro will do it, though it'll take a while, as it considers every cell on the sheet.
If you know the extent of your spreadsheet, you can change "Cells" to "Range("A1:Z10000") or something to speed it up.

Sub MarkBold()

For Each c In Cells
If c.Font.Bold = True Then c.Value = c.Value & "*"
Next c

End Sub

...alternatively - if you also want to de-boldify as per your example text, use:

Sub MarkBold()

For Each c In Cells
If c.Font.Bold = True Then
c.Value = c.Value & "*"
c.Font.Bold = False
End If

Next c

End Sub

By: beniamino

beniamino — Sun, 02 Nov 2008 15:14:33 -0800

Perfect! Thanks pompomtom, you just saved me hours of typing.

By: zixyer

zixyer — Sun, 02 Nov 2008 15:34:32 -0800

You should change "Cells" to "UsedRange" so it only looks at cells that are actually used.

Excel maintains a hidden "used range". You can tell its extent if you press CTRL+END, which takes you to the lower-right corner of the used range.

By: flabdablet

flabdablet — Sun, 02 Nov 2008 19:00:03 -0800

And one tiny, tiny nit, which I'm only going to pick because I see it all over the place and I've become allergic to it:

Testing a Boolean value for equality with True is redundant. Instead of



If c.Font.Bold = True Then

you can simply use



If c.Font.Bold Then