我试图写一个宏/ VBA将审查行12 - 451在我的Excel工作表。如果列“H”(在任何既定的行)包含零值,则该行应该被删除。
Excel的将用于上载程序,我们不能在列“H”任何零值
我已经宏记录了填充行12 - 与所需要的数据(通过“H”的列“A”)451,但我具有与所述片的代码我可以添加到宏这将循环问题(末尾)回流并删除具有在列“H”零值的任何行。
我试图记录“删除”微距,但无法弄清楚如何通过每行会使代码回路和删除那些与零值。
请让我知道,如果需要更多的信息。
试试这个:
Sub HKiller()
For i = 451 To 12 Step -1
If Cells(i, "H").Value = 0 Then Rows(i).Delete
Next i
End Sub
请注意,我们从下工作到顶部,以避免指数的问题。
我想同样的动作,即删除列,如果两列单元格中的任何一个具有“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
谢谢