EXCEL使用宏自动删除符合条件的某一行-excel宏 删除行,excel删除所有宏

通过抄宏删除袭SHEET2中信息在百SHEET1中所度在的行

代码问如答下：

Sub test()
  Dim rn2, rn1 As Range
Application.ScreenUpdating = False
 For Each rn2 In Sheet2.Range("a2:a1000")
      For Each rn1 In Sheet1.Range("a2:a1000")
          If rn1 = rn2 Then
              rn1.EntireRow.Delete
          End If
       Next
   Next
Application.ScreenUpdating = True
End Sub

通过来宏删除自SHEET2中信息在百SHEET1中所在度的行

代码问如答下：

Sub test()
  Dim rn2, rn1 As Range
Application.ScreenUpdating = False
 For Each rn2 In Sheet2.Range("a2:a1000")
      For Each rn1 In Sheet1.Range("a2:a1000")
          If rn1 = rn2 Then
              rn1.EntireRow.Delete
          End If
       Next
   Next
Application.ScreenUpdating = True
End Sub