-excel函数 宏,函数公式excel

Sub 删除指定欠货客户()
Dim i, r
r = ActiveSheet.[a65536].End(xlUp).Row
For i = 1 To r
If (ActiveSheet.Cells(i, 10) = "76665" Or ActiveSheet.Cells(i, 10) = "66900" Or ActiveSheet.Cells(i, 10) = "50192") Then
Rows(i).Delete
Else
End If
Next i
End Sub

以上测试来通过，不过我觉的“筛选”源---“删除行”岂不是更简单...但我一直用EXCEL2007, 2003的不知道具体操作zd