Сообщество Чайников

Вопрос

Как в Excel-таблице удалить строки, которые, например, имеют пустую ячейку в определенном столбце? Например, выделил нужный столбец, запустил макрос, он по условию строки поудалял.

Ответ

Dim i As Integer, j As Long, m As Long, s As String
i = ActiveCell.Column
j = 1
ActiveCell.SpecialCells(xlLastCell).Activate
m = ActiveCell.Row
Do Until j >= m
     If Cells(j, i).Value = "" Then
         s = j & ":" & j
         Range(s).Delete
         m = m — 1
     Else
         j = j + 1
     End If
Loop

Alex Juice