删除基于该值的整个行中的一个细胞与一个环

问题描述 投票:-1回答:2

我试图写一个宏/ VBA将审查行12 - 451在我的Excel工作表。如果列“H”(在任何既定的行)包含零值,则该行应该被删除。

Excel的将用于上载程序,我们不能在列“H”任何零值

我已经宏记录了填充行12 - 与所需要的数据(通过“H”的列“A”)451,但我具有与所述片的代码我可以添加到宏这将循环问题(末尾)回流并删除具有在列“H”零值的任何行。

我试图记录“删除”微距,但无法弄清楚如何通过每行会使代码回路和删除那些与零值。

  • 注 - 列“H”的值将与将包含数据(即100,341.00)内零的数字数据而变化。此值应保持。只有那些含有仅应被消除为“0”的细胞。括号中不包括在上传表...

请让我知道,如果需要更多的信息。

excel vba
2个回答
0
投票

试试这个:

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

请注意,我们从下工作到顶部,以避免指数的问题。


0
投票

我想同样的动作,即删除列,如果两列单元格中的任何一个具有“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

谢谢

© www.soinside.com 2019 - 2024. All rights reserved.