Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Страницы: 1
RSS
[ Закрыто ] удалить строку из массива
 
Добрый день,
Имеем массив range("b1:c10" ;) . Нужно удалить из него те строки, в которых колонка b имеет нулевое значение.
Заранее спасибо.
 
Код
Public Sub DeleteCell()
    Dim i As Long, vLast As Long
    vLast = 6: i = 2
    Do While i <= vLast
        If WorksheetFunction.IsNumber(Cells(i, 2).Value) Then
            If Cells(i, 2).Value = 0 Then
                Range(Cells(i, 2), Cells(i, 3)).Delete shift:=xlShiftUp
                vLast = vLast - 1
            Else
                i = i + 1
            End If
        Else
            i = i + 1
        End If
    Loop
    For i = 6 To 2
    Next i
End Sub
 
Как удалить строки по условию?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
Там рассказывается, как удалять целые строки, немного не то, что нужно.

Воспользуюсь еще этой темой, чтобы не плодить лишние.
сделал пункт контекстного меню, но он дублируется, если открыть несколько подобных файлов, как с этим бороться?
' With Application.CommandBars("cell"  ;)  .Controls.Add(Type:=msoControlButton, temporary:=True, before:=1)
' .Caption = "Календарь"
' .OnAction = "calendar"
' End With
Изменено: Oleg - 25 Апр 2013 17:10:59
 
Цитата
Oleg пишет:
Воспользуюсь еще этой темой, чтобы не плодить лишние.
лучше воспользуйтесь правилами форума. Там четко сказано: один вопрос - одна тема. Не надо все свои вопросы в одну тему сваливать.

Как я понял тема исчерпана - во избежание дальнейших нарушений тему закрываю.
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Читают тему (гостей: 1)
Наверх