Вообще передать привет тому кто вёл таблицу. Макрос не напишу, но начал бы с
Function ШРИФТИМЯ(ЯЧЕЙКА As Range) As String
ШРИФТИМЯ = ЯЧЕЙКА.Font.FontStyle
End Function
Банально что бы можно было выделить "жирный" текст, а оттуда уже плясать с группировкой.
Но лучше конечно посидеть и написать макрос как сказал
BasiC2k 