Группировка по жирному шрифту

Пользователь

Сообщений: 6 Регистрация: 02.02.2017

07.03.2017 17:14:47

Добрый день!
Есть огромный файл (100 000 строк) надо автоматически сгруппировать все, что находится ниже жирного шрифта, пример в приложении.

Прикрепленные файлы

Книга12.xlsx (9.16 КБ)

«Нынешняя молодежь привыкла к роскоши, она отличается дурными манерами, презирает авторитеты, не уважает старших, дети спорят со взрослыми, жадно глотают пищу, изводят учителей». (Сократ, V в. до н.э.)

yozhik

Пользователь

Сообщений: 957 Регистрация: 01.01.1970

07.03.2017 17:32:02

Код

Sub b()
lr = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To lr
    If Cells(i, 1).Font.Bold = True Then
        i = i + 1
        j = i
        Do While Cells(i, 1).Font.Bold = False
            i = i + 1
            If i > lr Then Exit Do
        Loop
        i = i - 1
        Rows(j & ":" & i).Group
    End If
Next
End Sub

g.blitz Пользователь Сообщений: 6 Регистрация: 02.02.2017	#3 07.03.2017 17:51:14 yozhik, Спасибо огромное, вы сэкономили мне 4 часа моей жизни) «Нынешняя молодежь привыкла к роскоши, она отличается дурными манерами, презирает авторитеты, не уважает старших, дети спорят со взрослыми, жадно глотают пищу, изводят учителей». (Сократ, V в. до н.э.)

Читают тему