Здравствуйте. Я пытаюсь сделать макрос для нумерации строк по условию если ячейка имеет жирный шрифт. В Интернет я нашел такой код макроса.
Но он нумерует только если в соседней ячейки что-то содержится. Кто-нибудь мог бы подсказать, как можно переделать выше описанное условие. Заранее спасибо!
Код |
---|
Application.EnableEvents = False For Each oCell In Range([B21], [b10000]).Cells If Not IsEmpty(oCell) Then iCount = iCount + 1: oCell.Previous = iCount Next Application.EnableEvents = True |
Но он нумерует только если в соседней ячейки что-то содержится. Кто-нибудь мог бы подсказать, как можно переделать выше описанное условие. Заранее спасибо!