Макрос удаления всех нулевых значений в таблице

@Nicolle_88 · Регистрация: 23.05.2013

Author24 — интернет-сервис помощи студентам

Друзья, есть такая задача: нужно удалить все нулевые значения в заданном диапазоне [A2:BV791]
Я в написании макросов абсолютный ноль. Поэтому смогла написать только такую программку:

Sub del()
For j = 5 To 74
For i = 2 To 791
If Cells(i, j) = 0 Then
Cells(i, j).Offset.Select
Selection.Delete Shift:=xlUp
End If
Next i
Next j
End Sub

Она работает неправильно, поскольку при наличии двух нулей в столбце подряд она удаляет только один из них. Подскажите, как исправить. Нужно удалить все нули...

Спасибо!

toiai · 23.05.2013, 17:55

Что означает удалить все нули - очистить значение ячейки или .... Можно же установить соответствующие параметры.
Вот вариант очистки всех нулевых значений на листе:

Visual Basic

1	ActiveWindow.DisplayZeros = False

То есть не выводить нулевые значения на на экран

Добавлено через 9 минут
Если же удалять нулевые ячейки со смещением, то начинать надо снизу.

Visual Basic

Sub del()
    For j = 74 To 5 Step -1
        For i = 791 To 2 Step -1
            If Cells(i, j) = 0 Then
                Cells(i, j).Delete Shift:=xlUp
            End If
        Next i
    Next j
End Sub

@Nicolle_88 0 / 0 / 0 Регистрация: 23.05.2013 Сообщений: 3
		1
	Макрос удаления всех нулевых значений в таблице 23.05.2013, 16:04. Показов 4798. Ответов 1 Метки нет (Все метки) Друзья, есть такая задача: нужно удалить все нулевые значения в заданном диапазоне [A2:BV791] Я в написании макросов абсолютный ноль. Поэтому смогла написать только такую программку: Sub del() For j = 5 To 74 For i = 2 To 791 If Cells(i, j) = 0 Then Cells(i, j).Offset.Select Selection.Delete Shift:=xlUp End If Next i Next j End Sub Она работает неправильно, поскольку при наличии двух нулей в столбце подряд она удаляет только один из них. Подскажите, как исправить. Нужно удалить все нули... Спасибо! 0

	23.05.2013, 17:55