[已解决]按条件内容删除指定行

zhu086

测试.rar (2.57 KB, 下载次数: 4)

2016-6-27 12:11 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

02761752696

2016-6-27 13:38

1. Sub Click()
   
2. Application.ScreenUpdating = False
   
3. Dim r As Range, sj As Range, sh1, sh2
   
4. sh1 = Sheet1.UsedRange.Rows.Count
   
5. sh2 = Sheet2.UsedRange.Rows.Count
   
6. For Each sj In Sheet2.Range("A1:A" & sh2)
   
7.     For Each r In Sheet1.Range("A3:J" & sh1)
   
8.       If InStr(r, sj) Then
   
9.          r.EntireRow.Delete
   
10.     End If
    
11.     Next
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub

复制代码

跳转到最佳答案楼层

02761752696

1. Sub Click()
   
2. Application.ScreenUpdating = False
   
3. Dim r As Range, sj As Range, sh1, sh2
   
4. sh1 = Sheet1.UsedRange.Rows.Count
   
5. sh2 = Sheet2.UsedRange.Rows.Count
   
6. For Each sj In Sheet2.Range("A1:A" & sh2)
   
7.     For Each r In Sheet1.Range("A3:J" & sh1)
   
8.       If InStr(r, sj) Then
   
9.          r.EntireRow.Delete
   
10.     End If
    
11.     Next
    
12. Next
    
13. Application.ScreenUpdating = True
    
14. End Sub

复制代码