Удаление строк - при пустой ячейке в столбце

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

wwizard

Дата: Четверг, 12.05.2016, 01:16 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 176

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

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

Прошу помощи в создании маленького скриптика. Есть небольшая табличка где в 10ом столбце, мы пишем производителей того или иного товара. Но так бывает что в этом столбце, нет наименований. Нужен маленький макросик, который может при условии что в 10 ом столбце, в ячейке, ничего нет - удалить всю строку: http://prntscr.com/b2yp24

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

Ответить

mathiax90

Дата: Четверг, 12.05.2016, 04:11 | Сообщение № 2

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 202

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

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

Excel 2007

[vba]

Код

Sub b()
Dim ws As Worksheet

'ws будет активным листом
Set ws = ActiveSheet

'цикл i от 5 до 1
For i = 5 To 1 step -1
    'если значение в ячейке в строке i столбца 2 = пустая строка, то
    If ws.Cells(i, 2) = "" Then
        'всю строку ячейки в строке i столбца 2 удалить
        ws.Cells(i, 2).EntireRow.Delete
    End If

Next i
End Sub

[/vba]