检查表格里面B列单元格，如果单元格式空的，或者单元格里面的内容是文字“废弃”，...

lyq123d

检查表格里面B列单元格，如果单元格式空的，或者单元格里面的内容是文字“废弃”，则将对应的行删除，求程序。

suxiong

1. Sub a()
   
2. '空白的可以用：
   
3. Range("a1:a5").SpecialCells(4).Row.Delete
   
4. '如果有值的，可以把值放到数组里，在循环删出。
   
5. End Sub
   

复制代码

ligh1298

Sub 删除()
Row = [b65536].End(3).Row
For Each Rng In Range("b1:b" & Row)
If Rng = "" Or Rng.Value = "废弃" Then
Rng.Rows.Delete
End If
Next
End Sub

lyq123d

ligh1298 发表于 2013-6-8 16:59
Sub 删除()
Row = .End(3).Row
For Each Rng In Range("b1:b" & Row)

这个好像不行，我是要删除整行，这个没有把正行删除，好像只删除了那个单元格，下面的往上移了

ligh1298

1. Sub 删除()
   
2. Row = [b65536].End(3).Row
   
3. For Each Rng In Range("b1:b" & Row)
   
4. If Rng = "" Or Rng.Value = "废弃" Then
   
5. Range(Cells(Rng.Row, "a"), Cells(Rng.Row, "iv")).Delete
   
6. End If
   
7. Next
   
8. End Sub
   

复制代码

lyq123d

ligh1298 发表于 2013-6-8 17:51

这个正确，谢谢。