Удаление всей строки на основе значения в ячейке с помощью цикла

Question

Я пытаюсь написать макрос / vba, который будет проверять строки 12 - 451 в моем листе Excel.Если столбец «H» (в любой из указанных строк) содержит нулевое значение, эту строку следует удалить.

Excel будет использоваться для программы загрузки, и у нас не может быть нулевых значений в столбце "H"

У меня записан макрос, который заполняет строки 12 - 451 (столбцы "A")через "H") с необходимыми данными, но у меня возникают проблемы с фрагментом кода, который я могу добавить к макросу (в конце), который возвратится и удалит любую строку со значением ноль в столбце "H".

Я попытался записать макрос "удалить", но не могу понять, как сделать цикл кода в каждой строке и удалить те, которые имеют нулевое значение.

• ПРИМЕЧАНИЕ. - СтолбецЗначения «H» будут варьироваться в зависимости от числовых данных, которые будут содержать нули в этих данных (т.е. 100 341,00).Это значение должно быть сохранено.Только те ячейки, которые содержат ТОЛЬКО «0», должны быть исключены.Скобки НЕ включены в лист загрузки ...

Пожалуйста, дайте мне знать, если вам нужна дополнительная информация.

Answer 1

Я пытаюсь выполнить то же действие, т. Е. Удалить столбец, если в любой из двух ячеек столбца есть «0», а затем удалить строку.Я изменил приведенный выше код.любезно предлагаю.

    Sub test()
    Dim Lastrow As Long, i As Long
    'LastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column

    With ThisWorkbook.Worksheets("Sheet1")

    Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row

    For i = 0 To Lastrow Step 1
        If Cells(i, "E" Or "F").Value = 0 Then Rows(i).Delete
        Lastrow = .Cells(.Rows.Count, "A").End(xlUp).Row
    Next i
    End With
End Sub

Спасибо

Answer 2

Дайте эту попытку:

Sub HKiller()
    For i = 451 To 12 Step -1
        If Cells(i, "H").Value = 0 Then Rows(i).Delete
    Next i
End Sub

Обратите внимание, что мы работаем снизу вверх, чтобы избежать проблем с индексами.