Sub 清除()
For k = 1000 To 60 Step -1
If (Cells(k, 1) = -5 And Cells(k, 2) = 80) Or (Cells(k, 1) = 25 And Cells(k, 2) = 64) Then
Cells(k, 1).EntireRow.ClearContents
End If
Next
End Sub
功能区域为第60-1000行。
Sub aa()
For i = 1 To 1000
If Cells(i, 1) = -5 And Cells(i, 2) = 80 Or Cells(i, 1) = 25 And Cells(i, 2) = 64 Then Rows(i)=""
Next
End Sub
同行啊哥,weimin档?