怎么样用VBA根据条件来删除特定的值呢？

sam10131

大家好，见附件，这个excel我需要根据序号来判断是否为1-1,1-2，如果是，就把当行的颜色那个格给删除掉
为1及2这种序号则不做处理。

例如：
序号为1，不做处理。
序号为1-1，删除004#，让这个格子为空。
序号为1-2，删除004#，让这个格子为空。
序号为2，不做处理。
序号为2-1，删除004#，让这个格子为空。
序号为2-2，删除004#，让这个格子为空。


谢谢！

gdw831001

1. Sub del()
   
2.     For i = 6 To Range("a60000").End(3).Row
   
3.         If Range("a" & i) Like "*-*" Then
   
4.             Range("h" & i).ClearContents
   
5.         End If
   
6.     Next i
   
7. End Sub

复制代码

sam10131

gdw831001 发表于 2018-1-18 12:57

是噢，太给力了，谢谢您噢！
还有一个问题，如果我这个vba要对所有的sheet生效呢。

gdw831001

1. Sub del()
   
2.   For Each sht In Worksheets
   
3.     For i = 6 To sht.Range("a60000").End(3).Row
   
4.         If sht.Range("a" & i) Like "*-*" Then
   
5.             sht.Range("h" & i).ClearContents
   
6.         End If
   
7.     Next i
   
8.   Next
   
9. End Sub

复制代码

sam10131

谢谢老师！  ：）