[已解决]急！请求各位大侠帮忙。

1091126096

下面代码用来删除一个工作表中的多余行，这些行包含公式，结果为空的要删除。但操作时只能删除几行，还有一些行未能删除，要多次操作，不知何故，请各位大侠帮忙。

Sub 删除单科统计表多余行()
   Sheets("单科统计表").Select
    Dim rng As Range
    For Each rng In Range("a:a")
        If rng.Row > Application.ActiveSheet.UsedRange.Rows.Count Then Exit For
        If rng.Value = "" Then Rows(rng.Row).Delete
    Next rng
End Sub

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-8-16 17:38

1. Sub 删除单科统计表多余行()
   
2.    Sheets("单科统计表").Select
   
3.     Dim i As Integer
   
4.     Dim iMaxRows As Integer
   
5.     iMaxRows = Application.ActiveSheet.UsedRange.Rows.Count
   
6.     For i = iMaxRows To 1 Step -1
   
7.         If Cells(i, 1) = "" Then Rows(i).Delete
   
8.     Next i
   
9. End Sub
   

复制代码

跳转到最佳答案楼层

放浪形骸

我还是喜欢用FOR ... TO....NEXT比较好
遇到删除的时候把迭代的变量减少一个就可以了。

估计你这个问题出现在删除连续空行的时候。
删除了某个空行之后，下一行就移入这个空行原先所在的位置，然后在循环的过程中自动跳过了对这一行的判断。所以如果下一行也为空行的话就跳过了哦。

砂海

删除要用倒循环，不然有跳行现象。

1091126096

回复 放浪形骸 的帖子

我是初学者，请帮忙修改。十分感激。

放浪形骸

1. Sub 删除单科统计表多余行()
   
2.    Sheets("单科统计表").Select
   
3.     Dim i As Integer
   
4.     Dim iMaxRows As Integer
   
5.     iMaxRows = Application.ActiveSheet.UsedRange.Rows.Count
   
6.     For i = iMaxRows To 1 Step -1
   
7.         If Cells(i, 1) = "" Then Rows(i).Delete
   
8.     Next i
   
9. End Sub
   

复制代码

1091126096

回复 放浪形骸 的帖子

辛苦了，谢谢您!

放浪形骸

1091126096 发表于 2011-8-16 17:49
回复 放浪形骸 的帖子

辛苦了，谢谢您!

不客气，大家共同进步某