宏语句

felosofey

哪位大神能给小弟编一条宏语句，意思如下如果A1有内容，B2为空，则删除此行

蒙蒙烟雪

1. Sub test()
   
2. Dim rng As Range, r&
   
3. Set rng = Rows(Rows.Count)
   
4. For r = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
   
5.     If Cells(r, 1) <> "" And Cells(r, 2) = "" Then Set rng = Union(rng, Rows(r))
   
6. Next
   
7. rng.EntireRow.Delete
   
8. End Sub

复制代码

蒙蒙烟雪

是A1有內容，B1為空吧。你A1, B2一起，到底刪除哪一行？

felosofey

蒙蒙烟雪 发表于 2015-1-28 16:13

大神太牛逼了！膜拜你！
我具体一下问题！
如果C列不为空，E列为空，则删除该行。所有sheet统一执行。
大神帮我！！

蒙蒙烟雪

felosofey 发表于 2015-1-28 17:00
大神太牛逼了！膜拜你！
我具体一下问题！
如果C列不为空，E列为空，则删除该行。所有sheet统一执行。
...

1. Sub test1()
   
2. Dim ws As Worksheet, rng As Range, r&
   
3. For Each ws In Sheets
   
4.     With ws
   
5.         Set rng = .Rows(Rows.Count)
   
6.         For r = .Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
   
7.             If .Cells(r, "C") <> "" And .Cells(r, "E") = "" Then Set rng = Union(rng, .Rows(r))
   
8.         Next
   
9.         rng.EntireRow.Delete
   
10.     End With
    
11. Next
    
12. End Sub

复制代码

felosofey

蒙蒙烟雪 发表于 2015-1-28 17:08

感谢！无以言表的感谢