Question

求excel宏代码：多条件删行，把C列单元格大于0的，A列单元格中包含字符“aa”的，删除整行。vba代码怎么写

Answer 1

Sub test()
Application.ScreenUpdating = False
Dim i As Long
For i = [a65536].End(xlUp).Row To 1 Step -1
If Range("c" & i) > 0 And Range("a" & i) Like "*aa*" Then Rows(i).Delete
Next
Application.ScreenUpdating = True
End Sub

追问

这三个回答中，你的回答最正确，删行应该倒着删。
如果条件改为：A列单元格中不包含字符“aa”，代码怎么写？

追答

If Range("c" & i) > 0 And not (Range("a" & i) Like "*aa*" ) Then Rows(i).Delete

Answer 2

dim r
for r=起始行 to 结束行
if cells(r,3)>0 and instr(cells(r,1), "aa")>0 then
rows(r).delete
r=r-1
end if
next r

追问

如果条件改为：A列单元格中不包含字符“aa”，代码怎么写？

追答

dim r
for r=起始行 to 结束行
if cells(r,3)>0 and instr(cells(r,1), "aa")=0 then
rows(r).delete
r=r-1
end if
next r

Answer 3

sub 删行()
dim i as integer
for i = 1 to worksheetfunction.countif(rang("A:A"),"<>"&"")
If cells(i,"A") like "aa" and cells (i,"C")=0 then rows(I).delete
next
end sub