удаление пустых ячеек в активном столбце excel:
- Код: Выделить всё
Sub DelNull()
Dim rwIndex
For rwIndex = 1 To 1000
With ActiveSheet.Cells(rwIndex, ?[b]индекс_активной ячейки[/b]?)
If .Value = "" Then .Rows(rwIndex).Delete
End With
Next rwIndex
End Sub
не подскажите?
хм..
выразился как-то я странно
не индекс активной ячейки, а индекс столбца, в котором находится активная на момент запуска макроса ячейка