三列条件同时满足

dgzwz

三列条件同时满足，数量1,数量2，数量3同时为空时删除整行

蓝桥玄霜

满足的例子：

2801959927

1. Option Explicit
   
2. Sub Main()
   
3.     Application.ScreenUpdating = False
   
4.     Dim i As Integer
   
5.     Dim jd1, jd2, jd3 As Boolean
   
6.     For i = Range("A4").End(xlDown).Row To 4 Step -1
   
7.         jd1 = Len(Cells(i, "F")) = 0
   
8.         jd2 = Len(Cells(i, "I")) = 0
   
9.         jd3 = Len(Cells(i, "L")) = 0
   
10.         If (jd1 And jd2 And jd3) Then Rows(i).Delete
    
11.         Debug.Print "删除第", i, "行"
    
12.     Next i
    
13.     Debug.Print "执行完毕"
    
14.     Application.ScreenUpdating = True
    
15. End Sub

复制代码

dgzwz

蓝桥玄霜 发表于 2023-2-10 10:51
满足的例子：

程序不能运行

tanglf188

1. Sub deleteemp()
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     With Sheet1.Range("A2")
   
5.         .AutoFilter Field:=6, Criteria1:="="
   
6.         .AutoFilter Field:=9, Criteria1:="="
   
7.         .AutoFilter Field:=12, Criteria1:="="
   
8.         Set tablee = .CurrentRegion
   
9.     End With
   
10.     Set tableeBody = tablee.Offset(2, 0).Resize(tablee.Rows.Count - 2, tablee.Columns.Count)
    
11.     If tablee.Rows.Count - 2 > 0 Then tableeBody.Delete
    
12.     Sheet1.ShowAllData
    
13.     Sheet1.Range("A1").AutoFilter
    
14.     Application.ScreenUpdating = True
    
15.     Application.DisplayAlerts = True
    
16. End Sub
    

复制代码

ykcbf1100

数组法。。。

dgzwz

ykcbf1100 发表于 2023-2-10 13:38
数组法。。。

会把最下面的一栏合计数也会删除

ykcbf1100

dgzwz 发表于 2023-2-10 14:32
会把最下面的一栏合计数也会删除

不可能啊。你上面数据不为0，下面合计栏就不可能为0 啊，合计行怎么可能删除呢？

再说，你的附件中有合计行吗？也没有啊。

dgzwz

ykcbf1100 发表于 2023-2-10 14:43
不可能啊。你上面数据不为0，下面合计栏就不可能为0 啊，合计行怎么可能删除呢？

再说，你的附件中有 ...

三列条件同时满足 这句.[a4:z10000].Clear

dgzwz

ykcbf1100 发表于 2023-2-10 14:43
不可能啊。你上面数据不为0，下面合计栏就不可能为0 啊，合计行怎么可能删除呢？

再说，你的附件中有 ...

这句好象会清掉合计.[a4:z10000].Clear