|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Sub 删除() '方法一
Dim i As Integer
Dim y As Integer
Dim rng As Range, arr
Application.ScreenUpdating = False
Range("f3:f" & [a65536].End(xlUp).Row).FormulaR1C1 = "=COUNTIF(RC[-4]:RC[-1],0)"
On Error Resume Next
arr = Range("f3:f" & [a65536].End(xlUp).Row).Value
For i = 1 To UBound(arr)
If arr(i, 1) = 2 Then
If rng Is Nothing Then
Set rng = Rows(i + 2)
Else
Set rng = Union(rng, Rows(i + 2))
End If
End If
Next
rng.EntireRow.Delete
Application.ScreenUpdating = True
End Sub |
|