Можно макросом примерно такого вида

Sub Макрос1()
'
'
'
N=1000
For i = 1 To N
If Cells(i, 1).Font.Bold = True Then
Cells(i, 2).Value = 1
End If
Next i
End Sub

N - количество строк, которые надо обработать
1 - номер столбца, содержащего жирный и не очень шрифт.
2 - номер служебного столбца для последующей сортировки, в который ставится "1" если шрифт рядом жирный