Удаление строк при отсутствии закрашенных ячеек

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление строк при отсутствии закрашенных ячеек (Макросы/Sub)

iGenex

Дата: Понедельник, 19.10.2015, 11:50 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 10

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте, уважаемые форумчане.
Помогите сделать макрос, который бы удалял строки по условию, что если в строке нет ни одной закрашенной ячейки.
И удалял столбцы в которых нет ни одной закрашенной ячейки.
Заранее спасибо.

К сообщению приложен файл: Monitoring_repo.xlsx (24.9 Kb)

Ответить

Gustav

Дата: Понедельник, 19.10.2015, 12:32 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2760

Репутация: 1140 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

[vba]

Код

Sub io()
    Dim r As Range, c As Range, i As Long
    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        Set r = ActiveSheet.UsedRange.Rows(i)
        If Not IsNull(r.Interior.ColorIndex) Then r.EntireRow.Delete
    Next i
    For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
        Set c = ActiveSheet.UsedRange.Columns(i)
        If Not IsNull(c.Interior.ColorIndex) Then c.EntireColumn.Delete
    Next i
End Sub

[/vba]
P.S. Даже правильнее с более простыми условиями:
[vba]

Код

Sub io()
    Dim r As Range, c As Range, i As Long
    For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
        Set r = ActiveSheet.UsedRange.Rows(i)
        If r.Interior.ColorIndex = xlColorIndexNone Then r.EntireRow.Delete  'где xlColorIndexNone = -4142
    Next i
    For i = ActiveSheet.UsedRange.Columns.Count To 1 Step -1
        Set c = ActiveSheet.UsedRange.Columns(i)
        If c.Interior.ColorIndex = xlColorIndexNone Then c.EntireColumn.Delete
    Next i
End Sub

[/vba]