删除行的问题

sanson4760

请教老师一个问题：当C至E列为空或为零时将该行的A至E列删除,不要删除F列及以后的数据。谢谢！

zhenghui13

可以用个flag还进行判断，下面是手工代码，没有测试过.

1. for i=cells(65536,1).end(xlup).row to 2 step -1
   
2.     flag=False
   
3.     for j=3 to 5
   
4.          tmp=cells(i,j)
   
5.          if tmp="" or tmp=0 then flag=True
   
6.      exit for
   
7.     next j
   
8.     if flag=True then rows(i).delete
   
9. next i

复制代码

lsc900707

用个笨办法就可以：

1. Sub gj23w98()
   
2.     For i = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
   
3.         If Len(Cells(i, 3)) = 0 And Len(Cells(i, 4)) = 0 And Len(Cells(i, 5)) = 0 Then
   
4.             If Cells(i, 3).Value = 0 And Cells(i, 4).Value = 0 And Cells(i, 5).Value = 0 Then
   
5.                  Range(Cells(i, 1), Cells(i, 5)).Delete shift:=xlUp
   
6.             End If
   
7.         End If
   
8.     Next
   
9. End Sub

复制代码

sanson4760

lsc900707 发表于 2018-6-26 10:18
用个笨办法就可以：

非常感谢！