[求助]为什么还有空的行没删掉呢?(附件已上传)

pmctiger

爲何不將循環改爲下面語句

Range("A1:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Select
Selection.Delete Shift:=xlUp
Cells(1, 1).Select

wormofsky

以下是引用[I]taller[/I]在2005-12-12 18:47:30的发言：

以下是引用[I]bluesharp[/I]在2005-12-12 16:52:29的发言：
从小到大就一定不能全部删除么？

如果不存在连续空行，那么两种方式的结果都是正确的，存在连续空行时从小到大删除就会出现遗漏

我认为从小到大也可以做到，包括存在连续空行的情况。请看 9lFvASAD.rar (10.04 KB, 下载次数: 9)

2006-3-19 18:39 上传

点击文件名下载附件
[求助]为什么还有空的行没删掉呢?(附件已上传)

Private Sub CommandButton1_Click() Dim i%, j% i = 1 For j = 1 To Range("A65536").End(xlUp).Row If Cells(i, 1).Value <>0 Then i = i + 1 Else Rows(i).Delete End If Next j MsgBox "恭喜恭喜, 清理完毕!" End Sub

[此贴子已经被作者于2006-3-19 18:40:11编辑过]

Long_III

早上还回答了这个问题，你可以搜索一下

删除要从最后一个到最早一个循环删除哦

Long_III

请上传附件及代码！或搜索一下

啊一

QUOTE:

以下是引用pmctiger在2006-3-19 16:48:12的发言：

爲何不將循環改爲下面語句  

      Range("A1:A1000").SpecialCells(xlCellTypeBlanks).EntireRow.Select
      Selection.Delete Shift:=xlUp
      Cells(1, 1).Select

我也觉得这样快，效率高。

chenhuafu

这样确实快一些：

Sub CommandButton1_Click()
    Dim i As Integer
   
    i = Range("A65536").End(xlUp).Row
    
    Range("A1:A" & i).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

lidning

谢谢  又学到了一个好办法

rchal

很好学习中。。