三列条件同时满足

dgzwz · 发表于 2023-2-10 15:03

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

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

三列条件同时满足

dgzwz · 发表于 2023-2-10 15:05

dgzwz 发表于 2023-2-10 15:03
三列条件同时满足

.[a4:z10000].Clear

dgzwz · 发表于 2023-2-10 15:06

2801959927 发表于 2023-2-10 11:08

有的行没有删除

chxw68 · 发表于 2023-2-10 15:17

Sub test()
Dim r%, i%
Dim arr, brr
Dim rng As Range
With Worksheets("sheet1")
.AutoFilterMode = False
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("a1:q" & r)
Set rng = .Rows(r + 1)
For i = 4 To UBound(arr)
If arr(i, 2) <> "小计" And Len(arr(i, 6)) = 0 And Len(arr(i, 9)) = 0 And Len(arr(i, 12)) = 0 Then
Set rng = Union(rng, .Rows(i))
End If
Next
rng.Delete
End With
End Sub

复制代码

chxw68 · 发表于 2023-2-10 15:18

参与一下。

ykcbf1100 · 发表于 2023-2-10 15:31

本帖最后由 ykcbf1100 于 2023-2-10 15:47 编辑

dgzwz 发表于 2023-2-10 15:03
三列条件同时满足

从1楼下载的附件中没有合计行。即便是有合计行，也不会删除吧。
哦，知道了，你图片上的最大行在B列，我求的最大行在A列，这个语句中把"a"改成"B"就行了。

dgzwz · 发表于 2023-2-10 15:42

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

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

如果能解决把最后一行小计栏不删除就好

sxbjzjf110 · 发表于 2023-2-10 16:07

参与一下

dgzwz · 发表于 2023-2-10 18:49

ykcbf1100 发表于 2023-2-10 15:31
从1楼下载的附件中没有合计行。即便是有合计行，也不会删除吧。
哦，知道了，你图片上的最大行在B列，我 ...

里面的公式全部清除了，能否不清除公式

hwf0101 · 发表于 2023-2-11 08:56

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

这段代码好用,运行成功

		自动登录	找回密码
密码			免费注册

[求助] 三列条件同时满足