Удаление строк
Добавлено: 02 апр 2009, 13:44
Приведенный код удаляет строки, в которых данные столбца В записаны жирным шрифтом. Как удалить еще три строки расположенные ниже?
Код: Выделить всё
Sub DeleteBold()
Dim LastRow As Long, r As Long
LastRow = Range("B65536").End(xlUp).Row - 1
For r = LastRow To 1 Step -1
If Cells(r, 2).Font.Bold = True Then Rows(r).Delete
Next r
End Sub