[已解决]满足条件怎样退出内循环直接执行外循环

aisini84

Dim x As Integer
Dim y As Integer
Dim z As Integer
Dim r As Integer
z = Sheets("单位工程总材料计划").[B65536].End(xlUp).Row
For x = 6 To z
   For y = 8 To 19
   r = Cells(x, y).Value
   If Cells(x, y).Value <> 0 Then      '满足条件就退出内循环
  Exit For
  End If
  Next y
    If r = 0 Then ‘当内循环完成后判定是否为0
    Rows(x).Select
    Selection.Delete Shift:=xlUp
    End If
Next x
End Sub          以上语句在满足为零的单元格删除不完  请教啊

最佳答案

月排行榜 / 总排行榜

zjdh

2013-1-7 08:38

Z = Sheets("单位工程总材料计划").[B65536].End(xlUp).Row
    For x = Z To 6 Step -1
        For y = 8 To 19
            If Cells(x, y).Value = 0 Then
                Rows(x).Delete
                Exit For
            End If
        Next
    Next

跳转到最佳答案楼层

zjdh

Z = Sheets("单位工程总材料计划").[B65536].End(xlUp).Row
    For x = Z To 6 Step -1
        For y = 8 To 19
            If Cells(x, y).Value = 0 Then
                Rows(x).Delete
                Exit For
            End If
        Next
    Next

feedyu

exit for
一次退出一个循环。

aisini84

谢谢   知道我问题在哪里了

dpdmlym

1. Z = Sheets("单位工程总材料计划").[B65536].End(xlUp).Row
   
2. For x = Z To 6 Step -1
   
3. For y = 8 To 19
   
4. If Cells(x, y).Value = 0 Then
   
5. Rows(x).Delete
   
6. Exit For
   
7. End If
   
8. Next
   
9. Next
   

复制代码