用下面的程序可删除
Sub 删除记录()
For i = 2 To 10
For j = 2 To 10
If Trim(Cells(j, 3)) = "1" Or Trim(Cells(j, 3)) = "2" Then
Rows(j).Delete
End If
Next j
Next j
End Sub
改一下
用下面的程序可删除
Sub 删除记录()
For i = 2 To 10
For j = 2 To 10
If Trim(Cells(j, 3)) = "1" Or Trim(Cells(j, 3)) = "2" Then
Rows(j).Delete
End If
Next j
Next i
End Sub