新手上路，请大神们指导

lienbao

Sub a2()
    Dim x As Integer
       For x = 1 To 500 Step 1
          If Sheet2.Rows(x).Find(Cells(x, 1)) = 2 Then
             Rows(x).Select
             Rows(x).Delete
        x = x - 1
       End If
    Next x
End Sub

lienbao

C:\Users\40341\Desktop\1638717967(1)

lienbao

错误提示

砂海

删除 使用 倒循环 , 从后向前

sam-wang

lienbao 发表于 2021-12-5 23:28

Sub test()
Dim xR As Range, xU As Range
For Each xR In ActiveSheet.Range("A1:A500").SpecialCells(xlCellTypeConstants).Rows
    If Not IsError(Application.Match(2, xR, 0)) Then
        If xU Is Nothing Then Set xU = xR Else Set xU = Union(xR, xU)
     End If
Next
If Not xU Is Nothing Then xU.EntireRow.Delete
End Sub