[已解决]删除有空白单元格的那一行

victory610

要求：如果某行中只要有一个单元格为空，就删除该行。

谢谢。

最佳答案

月排行榜 / 总排行榜

fffox

2014-2-18 16:08

1. Sub test()
   
2.     Dim Rng As Range
   
3.     Set Rng = Cells.SpecialCells(xlCellTypeBlanks)
   
4.     If Not Rng Is Nothing Then
   
5.         Rng.EntireRow.Delete
   
6.     End If
   
7. End Sub

复制代码

跳转到最佳答案楼层

fffox

1. Sub test()
   
2.     Dim Rng As Range
   
3.     Set Rng = Cells.SpecialCells(xlCellTypeBlanks)
   
4.     If Not Rng Is Nothing Then
   
5.         Rng.EntireRow.Delete
   
6.     End If
   
7. End Sub

复制代码

云影

1. Sub test()
   
2. Dim rg As Range
   
3.   For Each rg In Range("a1").CurrentRegion
   
4.      If rg.Value = "" Then
   
5.         rg.EntireRow.Delete
   
6.      End If
   
7.   Next
   
8. End Sub
   

复制代码

victory610

不好意思，3楼的答案也很精彩，只是我只能把最佳答案给一个人。谢谢了。

hetianjun888

学习了