[已解决]删除代码

fangniuji

大家帮忙一下，E列是A列提取的编号 ，G列如果选择打×，就把A列%之上相对应编号删除，结果如B列，谢谢

最佳答案

月排行榜 / 总排行榜

suye1010

2013-1-3 11:53

Book3.rar (634.98 KB, 下载次数: 1, 售价: 1 个金币)

2013-1-3 13:16 上传

点击文件名下载附件

1. Sub 删除表头()
   
2. Dim arr0, i, Rng
   
3. arr0 = Range("E2:G20000")
   
4. For i = 1 To UBound(arr0)
   
5. If arr0(i, 1) <> "" And arr0(i, 3) = "×" Then
   
6. For Each Rng In Range("A1:A200000")
   
7. If Rng = "%" Then
   
8. Exit For
   
9. Else
   
10. If InStr(UCase(Rng), UCase("T" & Format(Val(Mid(arr0(i, 1), 2, 10)), "00"))) Then Rng.Delete
    
11. End If
    
12. Next
    
13. End If
    
14. Next i
    
15. End Sub

复制代码

跳转到最佳答案楼层

suye1010

Book3.rar (634.98 KB, 下载次数: 1, 售价: 1 个金币)

2013-1-3 13:16 上传

点击文件名下载附件

1. Sub 删除表头()
   
2. Dim arr0, i, Rng
   
3. arr0 = Range("E2:G20000")
   
4. For i = 1 To UBound(arr0)
   
5. If arr0(i, 1) <> "" And arr0(i, 3) = "×" Then
   
6. For Each Rng In Range("A1:A200000")
   
7. If Rng = "%" Then
   
8. Exit For
   
9. Else
   
10. If InStr(UCase(Rng), UCase("T" & Format(Val(Mid(arr0(i, 1), 2, 10)), "00"))) Then Rng.Delete
    
11. End If
    
12. Next
    
13. End If
    
14. Next i
    
15. End Sub

复制代码