[已解决]向高手求解答关于搜索，clear,delete

mokerry

问题在附件中，谢谢！

最佳答案

月排行榜 / 总排行榜

ws278106483

2012-6-12 11:41

附件跟上，楼主看一下。记得回愎一下吧。觉得好给个最佳吧

跳转到最佳答案楼层

hrpotter

1. Sub test()
   
2.     Dim i As Long
   
3.     Application.ScreenUpdating = False
   
4.     For i = 1 To Range("a65536").End(xlUp).Row
   
5.         If Cells(i, 1) = "SNN" Then
   
6.             Cells(i, 1).Clear
   
7.             Cells(i, 2).Delete xlToLeft
   
8.             Cells(i, 4).Delete xlToLeft
   
9.         End If
   
10.     Next
    
11.     Application.ScreenUpdating = True
    
12. End Sub

复制代码

ws278106483

1. 
   
2. Sub Macro2()
   
3. Dim rg As Range
   
4.    For Each rg In Range("A1:A18")
   
5.     If rg.Value = "SNN" Then
   
6.       rg.ClearContents
   
7.       x = rg.Row
   
8.       
   
9.       Range("B" & x).ClearContents
   
10.       Range("E" & x).ClearContents
    
11.       Range("B" & x).Value = Range("C" & x).Value
    
12.       Range("c" & x).Value = Range("d" & x).Value
    
13.       Range("d" & x).ClearContents
    
14.     End If
    
15.    Next rg
    
16.    
    
17. End Sub
    
18. 
    
19. 
    

复制代码

ws278106483

附件跟上，楼主看一下。记得回愎一下吧。觉得好给个最佳吧

ws278106483

楼主不回话的啊！！！！