[已解决]求版主及各高手赐一段代码，谢谢，指导一下新人

holidaysh

如附件，

1.在C列中查找关键字“Mixing  tower  U"所在行，删除此行（不包括此行）上面直到第二行的所有行（C1所在行保留）。

2.在C列中查找关键字“filler supply 05"所在行,删除此行（包括此行）向下所有行

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-29 12:36

1. Sub FindDelete()
   
2.     '没有做大小写匹配
   
3.     Dim s1 As String, s2 As String
   
4.     Dim rg As Range
   
5.     Dim iRow As Long
   
6.     On Error Resume Next
   
7.     '关闭刷屏
   
8.     Application.ScreenUpdating = False
   
9.     s1 = "Mixing tower U"
   
10.     s2 = "filler supply 05"
    
11.     Set rg = Range("c:c").Find(s1)
    
12.     If (Not rg Is Nothing) Then
    
13.         If rg.Row <> 2 Then Range("c2:c" & rg.Row - 1).EntireRow.Delete
    
14.     End If
    
15.     Set rg = Nothing
    
16.     iRow = Range("a1").End(xlDown).Row
    
17.     Set rg = Range("c:c").Find(s2)
    
18.     If (Not rg Is Nothing) Then
    
19.         If rg.Row <> iRow Then Range("c" & rg.Row + 1 & ":c" & iRow).EntireRow.Delete
    
20.     End If
    
21. End Sub

复制代码

重新改了下，之前逻辑关系不够严谨。

跳转到最佳答案楼层

hwc2ycy

1. Sub FindDelete()
   
2.     '没有做大小写匹配
   
3.     Dim s1 As String, s2 As String
   
4.     Dim rg As Range
   
5.     Dim iRow As Long
   
6.     On Error Resume Next
   
7.     '关闭刷屏
   
8.     Application.ScreenUpdating = False
   
9.     s1 = "Mixing tower U"
   
10.     s2 = "filler supply 05"
    
11.     Set rg = Range("c:c").Find(s1)
    
12.     If (Not rg Is Nothing) And rg.Row <> 2 Then Range("c2:c" & rg.Row - 1).EntireRow.Delete
    
13.     iRow = Range("a1").End(xlDown).Row
    
14. 
    
15.    Set rg = Range("c:c").Find(s2)
    
16.     If (Not rg Is Nothing) And rg.Row <> iRow Then Range("c" & rg.Row + 1 & ":c" & iRow).EntireRow.Delete
    
17. End Sub

复制代码

第2个关键字C列木有啊。

hwc2ycy

1. Sub FindDelete()
   
2.     '没有做大小写匹配
   
3.     Dim s1 As String, s2 As String
   
4.     Dim rg As Range
   
5.     Dim iRow As Long
   
6.     On Error Resume Next
   
7.     '关闭刷屏
   
8.     Application.ScreenUpdating = False
   
9.     s1 = "Mixing tower U"
   
10.     s2 = "filler supply 05"
    
11.     Set rg = Range("c:c").Find(s1)
    
12.     If (Not rg Is Nothing) Then
    
13.         If rg.Row <> 2 Then Range("c2:c" & rg.Row - 1).EntireRow.Delete
    
14.     End If
    
15.     Set rg = Nothing
    
16.     iRow = Range("a1").End(xlDown).Row
    
17.     Set rg = Range("c:c").Find(s2)
    
18.     If (Not rg Is Nothing) Then
    
19.         If rg.Row <> iRow Then Range("c" & rg.Row + 1 & ":c" & iRow).EntireRow.Delete
    
20.     End If
    
21. End Sub

复制代码

重新改了下，之前逻辑关系不够严谨。