删除不需要的数据所在的整行

zccui1986 · 发表于 2011-3-12 12:08

如图

，姓名后面的三列如果都是0，或者没有数据，就要把整行删掉，请问有这样的函数吗？或者通过VBA来做？

99253415 · 发表于 2011-3-12 12:38

用辅助列就可以了 =Sum(B1:D1)>0 删除相应结果

长安布衣 · 发表于 2011-3-12 13:12

Sub ttt()
'Changanbuyi
myLast = Range("A65536").End(xlUp).Row
For i = myLast To 1 Step -1
mySum = Abs(IIf(IsNumeric(Cells(i, 2).Value), Cells(i, 2).Value, 0)) + _
         Abs(IIf(IsNumeric(Cells(i, 3).Value), Cells(i, 3).Value, 0)) + _
         Abs(IIf(IsNumeric(Cells(i, 4).Value), Cells(i, 4).Value, 0))
If mySum = 0 Then
   Cells(i, 2).EntireRow.Delete
End If
Next
End Sub

likun1005 · 发表于 2011-3-18 20:25

海天的好方法，学习了。

lijiawu1122 · 发表于 2011-3-18 20:56

这两种方法都很好,各有所长

qq414625718 · 发表于 2011-3-18 22:33

...h很厉害的说

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

[已解决] 删除不需要的数据所在的整行

如果不是数字也删除